SparrowOSTS_121127.ISO

2018-09-08 21:45:28 +02:00
1 parent 0e9364ff4c
commit e57428affb
@@ -0,0 +1,39 @@
+public I64 PopUpTourPart()
+{
+  I64 i;
+  CDoc *doc=DocNew;
+  DocPutS(doc,"$$FG,PURPLE$$SparrowOS Tours$$FG$$\n\n"
+	"$$CM+LX,4,4$$$$BT,\"Part  1: The basics\",1$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  2: Editing and running programs\",2$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  3: Adding macros to your personal menu\",3$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  4: Choose filename, choose dir\",4$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  5: WordStat\",5$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  6: Search (Grep)\",6$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  7: Editor filter\",7$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  8: Debugging\",8$$"
+	"$$CM+LX,4,4$$$$BT,\"Part  9: Wow!!\",9$$"
+	"$$CM+LX,4,4$$$$BT,\"Part 10: Test Suite\",10$$"
+	"$$CM+LX,4,4$$$$BT,\"Done\",DOCM_CANCEL$$\n");
+  doc->flags|=DOCF_FORM;
+  i=ServantUser("WinMax;DocMenuDo(0x%X,0);",doc);
+  DocDel(doc);
+  return i;
+}
+
+U0 TourMenu()
+{
+  U8 buf[128];
+  I64 i;
+  while (TRUE) {
+    i=PopUpTourPart;
+    if (i>=1) {
+      SPrintF(buf,"::/SparrowOS/Misc/Tour/Tour%X.AUT.Z",i);
+      ExeFile(buf);
+    } else
+      break;
+  }
+}
+
+"DocClear;WinMax;\n";
+TourMenu;
+"Cd(\"HOME\");\n";