TempleOSCDV3.11.ISO

Misc/Tour/Tour4.AUT

@@ -1,34 +1,98 @@
-//This is an example of how you do documentation.
-
 //Puts the cursor at the bottom.
 Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
-"\nEd(\"::/Misc/Tour/Tour4.AUT.Z\");\n";
+"\nCd(\"::/Demo/Games\");Dir;\n";
+
+TourPut(
+"Now, we're going to add the CastleFrankenstein.CPP.Z program "
+"to your PersonalMenu.\n\n"
+"Press $$GREEN$$<CTRL-m>$$FG$$ to get to your PersonalMenu.\n");
+AFGetChar(CH_CTRLM);
 Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
-Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
-"//";
 
 TourPut(
-"Now, we'll add a link to a file using the $$GREEN$$<F4>$$FG$$ filename chooser.\n",
-TRUE);
+"Press $$GREEN$$<CTRL-l>$$FG$$ to invoke the insert text widgets wizard.\n\n"
+"(Pressing $$GREEN$$<CTRL-r>$$FG$$ invokes the graphic sprite resource editor.)\n");
+AFGetChar(CH_CTRLL);
 
-'' CH_CTRLL;
-Sleep(2000);
-'' CH_SPACE;
-Sleep(1500);
-'' CH_SPACE;
-Sleep(1500);
-Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
-Sleep(1500);
+Sleep(500);
+WinToTop;//Kludge
+
+TourPut("$$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach \"Macro\".\n");
+I64 i;
+for (i=0;i<6;i++)
+  AFGetKey(SC_CURSOR_DOWN);
+
+TourPut("Press $$GREEN$$<SPACE>$$FG$$.\n");
+AFGetStr(" ");
 
 TourPut(
-"Press $$GREEN$$<F4>$$FG$$ for the file chooser.  Then, "
-"pick a file and press $$GREEN$$<ESC>$$FG$$.");
-AFGetKey(SC_F4);
-Sleep(5000);
+"Now, we'll fill-in the visible tag of the macro.  Then, "
+"we'll fill-in the macro text.\n",TRUE);
+AFPrint(,"Click Here");
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+AFPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
+
 TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
 AFGetChar(CH_ESC);
 
-TourPut("Press $$GREEN$$<SHIFT-ESC>$$FG$$ to abort.\n");
-AFGetChar(CH_SHIFT_ESC);
+TourPut(
+"Press $$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.  "
+"($$GREEN$$<CTRL-ENTER>$$FG$$ does a page break.  "
+"$$GREEN$$<ENTER>$$FG$$ would execute the macro.)\n");
+AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+TourPut("Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
+AFGetStr(" ");
+TourPut(
+"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
+"are done.\n");
+AFUntilChar(CH_ESC,CH_SHIFT_ESC);
+
+TourPut(
+"Now, we'll do a fancier macro that pops-up a new window which dies when "
+"finished, returning mem to the system.\n",TRUE);
+Msg(MSG_KEY_DOWN,CH_CTRLM,0x43200000432);
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+Msg(MSG_KEY_DOWN,CH_CTRLL,0x42600000426);
+for (i=0;i<6;i++)
+  Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+AFPrint(," Click here for Pop-up version");
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
+AFPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_LEFT|SCF_CTRL);
+
+TourPut(
+"Press $$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach the \"Pop-Up\" check-box.\n");
+for (i=0;i<2;i++)
+  AFGetKey(SC_CURSOR_DOWN);
+TourPut(
+"Press $$GREEN$$<SPACE>$$FG$$ to check the box.\n");
+AFGetStr(" ");
+
+TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
+AFGetChar(CH_ESC);
+
+TourPut("Press $$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n");
+AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
+
+Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
+TourPut(
+"Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
+AFGetStr(" ");
+
+Sleep(500);
+WinToTop;//Kludge
+
+TourPut(
+"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
+"are done.\n");
+AFUntilChar(CH_ESC,CH_SHIFT_ESC);
+
+TourPut(
+"$$GREEN$$<CTRL-S>$$FG$$ to save your PersonalMenu file, if you wish.  "
+"Your PersonalMenu is special and does not save on $$GREEN$$<ESC>$$FG$$.\n",TRUE);
+
+'' CH_SHIFT_ESC;	//exit menu
 
-TourPut("Use $$GREEN$$<SHIFT F4>$$FG$$ to pick directories.\n",TRUE);