mirror of
https://github.com/Zeal-Operating-System/ZealOS.git
synced 2024-12-26 23:36:32 +00:00
98 lines
2.9 KiB
Text
Executable file
98 lines
2.9 KiB
Text
Executable file
//Puts the cursor at the bottom.
|
||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
||
"\nCd(\"::/Demo/Games\");Dir;\n";
|
||
|
||
TourPut(
|
||
"Now, we're going to add the CastleFrankenstein.HC program "
|
||
"to your PersonalMenu.\n\n"
|
||
"Press $$GREEN$$<CTRL-m>$$FG$$ to get to your PersonalMenu.\n");
|
||
InGetChar(CH_CTRLM);
|
||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
||
|
||
TourPut(
|
||
"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");
|
||
InGetChar(CH_CTRLL);
|
||
|
||
Sleep(500);
|
||
WinToTop;//Kludge
|
||
|
||
TourPut("$$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach \"Macro\".\n");
|
||
I64 i;
|
||
for (i=0;i<6;i++)
|
||
InGetKey(SC_CURSOR_DOWN);
|
||
|
||
TourPut("Press $$GREEN$$<SPACE>$$FG$$.\n");
|
||
InGetStr(" ");
|
||
|
||
TourPut(
|
||
"Now, we'll fill-in the visible tag of the macro. Then, "
|
||
"we'll fill-in the macro text.\n",TRUE);
|
||
InPrint(,"Click Here");
|
||
|
||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
||
InPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
|
||
|
||
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
||
InGetChar(CH_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");
|
||
InGetKey(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");
|
||
InGetStr(" ");
|
||
TourPut(
|
||
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
|
||
"are done.\n");
|
||
InUntilChar(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);
|
||
InPrint(," Click here for Pop-up version");
|
||
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
||
InPrint(,"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++)
|
||
InGetKey(SC_CURSOR_DOWN);
|
||
TourPut(
|
||
"Press $$GREEN$$<SPACE>$$FG$$ to check the box.\n");
|
||
InGetStr(" ");
|
||
|
||
TourPut("Press $$GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
||
InGetChar(CH_ESC);
|
||
|
||
TourPut("Press $$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n");
|
||
InGetKey(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");
|
||
InGetStr(" ");
|
||
|
||
Sleep(500);
|
||
WinToTop;//Kludge
|
||
|
||
TourPut(
|
||
"Move around with cursor keys and press $$GREEN$$<SHIFT-ESC>$$FG$$ when you "
|
||
"are done.\n");
|
||
InUntilChar(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
|
||
|