112 lines
2.8 KiB
Plaintext
112 lines
2.8 KiB
Plaintext
//Puts the cursor at the bottom.
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN|SCF_CTRL);
|
|
"\nCd(\"::/Demo/Games\");Dir;\n";
|
|
|
|
PopUpOk(
|
|
"Now, we're going to add the\n"
|
|
"CastleFrankenstein.CPP.Z program\n"
|
|
"to your PersonalMenu.\n\n"
|
|
"Press $$GREEN$$<CTRL-m>$$FG$$\n"
|
|
"to get to your PersonalMenu.\n");
|
|
AFGetChar(CH_CTRLM);
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
|
Sleep(1000);
|
|
|
|
PopUpOk(
|
|
"$$GREEN$$<CTRL-l>$$FG$$ to invoke the\n"
|
|
"text-widget resource editor.\n"
|
|
"\n"
|
|
"($$GREEN$$<CTRL-r>$$FG$$ invokes the\n"
|
|
"graphic resource editor.)\n"
|
|
);
|
|
AFGetChar(CH_CTRLL);
|
|
|
|
Sleep(100);
|
|
PopUpOk(
|
|
"$$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach\n"
|
|
"\"Macro\".\n");
|
|
I64 i;
|
|
for (i=0;i<6;i++)
|
|
AFGetKey(SC_CURSOR_DOWN);
|
|
|
|
PopUpOk(
|
|
"$$GREEN$$<SPACE>$$FG$$.\n");
|
|
AFGetStr(" ");
|
|
Sleep(1000);
|
|
|
|
PopUpOk(
|
|
"Now, we'll fill-in the visible text\n"
|
|
"of the macro.\n");
|
|
AFPrint(,"Click Here");
|
|
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_DOWN);
|
|
PopUpOk("Now, we'll fill-in the macro text.\n");
|
|
AFPrint(,"Cd(\"::/Demo/Games\");;#include \"CastleFrankenstein\";\\n");
|
|
|
|
PopUpOk("$$GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
|
AFGetChar(CH_ESC);
|
|
Sleep(1000);
|
|
|
|
PopUpOk(
|
|
"Press $$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n"
|
|
"($$GREEN$$<CTRL-ENTER>$$FG$$ does a page break and $$GREEN$$<ENTER>$$FG$$\n"
|
|
"would execute the macro.)\n");
|
|
AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
|
|
Sleep(1000);
|
|
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
|
PopUpOk(
|
|
"Press $$GREEN$$<SPACE>$$FG$$ to test it.\n");
|
|
AFGetStr(" ");
|
|
AFUntilChar(CH_ESC,CH_SHIFT_ESC);
|
|
|
|
PopUpOk(
|
|
"Now, we'll do a fancier macro that pops-up\n"
|
|
"a new window which dies when finished,\n"
|
|
"returning mem to the system.\n");
|
|
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);
|
|
|
|
PopUpOk(
|
|
"$$GREEN$$<CURSOR-DOWN>$$FG$$ until you reach\n"
|
|
"the \"Pop-Up\" check-box.\n");
|
|
for (i=0;i<2;i++)
|
|
AFGetKey(SC_CURSOR_DOWN);
|
|
PopUpOk(
|
|
"$$GREEN$$<SPACE>$$FG$$ to check the box.\n");
|
|
AFGetStr(" ");
|
|
Sleep(500);
|
|
|
|
PopUpOk("$$GREEN$$<ESC>$$FG$$ to exit the form.\n");
|
|
AFGetChar(CH_ESC);
|
|
Sleep(500);
|
|
|
|
PopUpOk("$$GREEN$$<CTRL-SHIFT-ENTER>$$FG$$ to insert a line feed.\n");
|
|
AFGetKey(SC_ENTER|SCF_CTRL|SCF_SHIFT);
|
|
Sleep(500);
|
|
|
|
Msg(MSG_KEY_DOWN,0,SC_CURSOR_UP|SCF_CTRL);
|
|
PopUpOk(
|
|
"$$GREEN$$<SPACE>$$FG$$ to test it.\n");
|
|
AFGetStr(" ");
|
|
Sleep(3000);
|
|
|
|
PopUpOk(
|
|
"$$GREEN$$<CTRL-S>$$FG$$ to save your\n"
|
|
"PersonalMenu file, if you wish.\n"
|
|
"Your PersonalMenu is special and\n"
|
|
"does not save on $$GREEN$$<ESC>$$FG$$.\n");
|
|
if (Fs->parent_task->popup_task) {
|
|
'' CH_SHIFT_ESC;
|
|
Sleep(100);
|
|
}
|
|
'' CH_SHIFT_ESC; //exit menu
|
|
|