TempleOSCDV4.05.ISO

Demo/DolDoc/ClickCallBack.CPP

@@ -20,7 +20,7 @@ U0 ClickCallBack()
   //Flags are explained here:
   //$LK,"::/Doc/DolDocOverview.TXT"$	$LK,"::/Doc/Widget.TXT"$
   //$LK,"Dollar Flags",A="MN:DOCEf_TAG"$		$LK,"ST_DOC_FLAGS",A="FF:::/Adam/DolDoc/DocInit.CPP,ST_DOC_FLAGS"$
-  "(Not preserved when <CTRL-t> and back.)\n\n";
+  "(Not preserved if you press <CTRL-t>.)\n\n";
   doc_e->left_cb=&MyLeftCB1;
   DocUnlock(DocPut);
 }
@@ -32,15 +32,16 @@ I64 MyLeftCB2(CDoc *,CDocEntry *)
   return cnts.jiffies;
 }
 
-U0 PopUpJiffiesCallBack()
+U0 PopUpJiffiesCallBack(I64 i)
 {
   CDoc *doc=DocNew;
-  CDocEntry *doc_e=DocPrint(doc,"\n\n\n$$BT+LC,\"Jiffies\"$$\n\n\n");
+  CDocEntry *doc_e=DocPrint(doc,
+	"Click %d more times\n\n\n$$BT+LC,\"Jiffies\"$$\n\n\n",i);
   doc_e->left_cb=&MyLeftCB2;
   "Current Jiffies:%d\n",PopUpMenu(doc);
   DocDel(doc);
 }
 
-PopUpJiffiesCallBack;
-PopUpJiffiesCallBack;
-PopUpJiffiesCallBack;
+PopUpJiffiesCallBack(3);
+PopUpJiffiesCallBack(2);
+PopUpJiffiesCallBack(1);

Demo/DolDoc/Form.CPP

@@ -1,15 +1,12 @@
 class FDStruct
-{//Use <CTRL-l> and select "Data" to generate the fmtstrs
-
-  //The number is the field from after the ':' to the end.
-  //See $LK,"Data Tag Width",A="FA:::/Adam/DolDoc/DocPlain.CPP,DataTagWidth"$.
-
-  F64 num1	fmtstr "$$DA-TRM,RT=F64,A=\"F64   1:%12.8f\"$$\n";
-  F64 num2	fmtstr "$$DA-TRM,RT=F64,A=\"F64   2:%12e\"$$\n";
-  I64 num3	fmtstr "$$DA-TRM,A=\"I64   1:0x%016X\"$$\n";
-  I64 num4	fmtstr "$$DA-TRM,A=\"I64   2:%12d\"$$\n";
+{//Use <CTRL-l> and select "Data", "List" or "Check Box"
+//to generate the fmtstrs.
+  F64 num1	fmtstr "$$DA-TRM,A=\"Float 1:%12.8f\"$$\n";
+  F64 num2	fmtstr "$$DA-TRM,A=\"Float 2:%12e\"$$\n";
+  I64 num3	fmtstr "$$DA-TRM,A=\"Int   1:0x%016X\"$$\n";
+  I64 num4	fmtstr "$$DA-TRM,A=\"Int   2:%12d\"$$\n";
   I64 type	fmtstr "$$LS,D=\"ST_PERSON_TYPE\"$$\n";
-  U8  name[32]	fmtstr "$$DA-P,LEN=31,A=\"Name   :%s\"$$\n";
+  U8  name[32]	fmtstr "$$DA-P,A=\"Name   :%s\"$$\n";
   U8  *address1	fmtstr "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
   U8  *address2	fmtstr "$$DA+M,A=\"Address:%s\"$$\n"; //+M is unlimited len U8 *.
   CDate datetime fmtstr "$$DA-TRM,A=\"Date   :%8D\"$$\n";