TempleOSCDV5.00.ISO

Demo/DolDoc/ClickCallBack.HC

@@ -2,10 +2,10 @@ I64 MyLeftCB1(CDoc *,CDocEntry *)
 {
   I64 i;
   for (i=500;i<1000;i+=25) {
-    Snd(i);
+    Snd(Freq2Ona(i));
     Sleep(10);
   }
-  Snd(0);
+  Snd;
   return 0;
 }
 

Demo/DolDoc/MenuBttn.HC

@@ -1,6 +1,6 @@
-//This example shows buttons.  Buttons return a menu val
+//This example shows bttns.  Bttns return a menu val
 //unless you rig them to send macros.  Menu entries are
-//about the same as buttons, but don't have a border.
+//about the same as bttns, but don't have a border.
 
 I64 PopUpFreq()
 {//See also $LK,"PopUpRangeI64",A="MN:PopUpRangeI64"$()
@@ -22,7 +22,7 @@ I64 PopUpFreq()
 #define MU_SND_ON	2
 #define MU_SND_OFF	3
 
-U0 MenuButton()
+U0 MenuBttn()
 {
   Bool done=FALSE;
   I64 i,j=0,freq=100;
@@ -34,7 +34,7 @@ U0 MenuButton()
 //Use <CTRL-l> to generate cursor movement expressions and check "Quote".
     "$$CM+CX-RE,-4$$Menu Demo\n\n";
     "$$LM,8$$"; //Set left margin
-//These are buttons that return a val from a menu selection.
+//These are bttns that return a val from a menu selection.
     if (!j)
       "\n$$BT,\"Snd On\",LE=MU_SND_ON$$\n\n\n";
     else
@@ -49,17 +49,17 @@ U0 MenuButton()
 	break;
       case MU_SND_ON:
 	j=freq;
-	Snd(j);
+	Snd(Freq2Ona(j));
 	break;
       case MU_SND_OFF:
 	j=0;
-	Snd(j);
+	Snd;
 	break;
       case MU_SET_FREQ:
 	freq=PopUpFreq;
 	if (j) {
 	  j=freq;
-	  Snd(j);
+	  Snd(Freq2Ona(j));
 	}
 	break;
       default:
@@ -69,7 +69,7 @@ U0 MenuButton()
   DocPut->flags=DocPut->flags&~DOCF_FORM |
 	old_flags & DOCF_FORM;
   DocClear;
-  Snd(0);
+  Snd;
 }
 
-MenuButton;
+MenuBttn;

Demo/DolDoc/TextDemo.HC

@@ -6,7 +6,7 @@
 	"UnderLine: $$UL,1$$Test$$UL,0$$\n\n"
 	"Link     : $$LK,\"Genesis,1:1\",\"BF:Genesis,1:1\"$$\n\n\n"
 
-	"Button   :     $$BT-X,\"OKAY\",LE=1$$\n\n\n\n";
+	"Bttn   :     $$BT-X,\"OKAY\",LE=1$$\n\n\n\n";
 
 //You can do it this way if you like.
 	"\nSuper    : 3$SY,-3$2$SY,0$=9\n\n"
@@ -19,4 +19,4 @@
 //<CTRL-SHIFT-T> on this link to toggle individual commands.
 	"Link     : $LK,"Genesis,1:1",A="BF:Genesis,1:1"$\n\n\n"
 
-	"Button   :     $BT,"OKAY",LE=1$\n\n\n\n";
+	"Bttn   :     $BT,"OKAY",LE=1$\n\n\n\n";