| 1 |
james |
25 |
REM > BootEditCode:Init |
| 2 |
|
|
|
| 3 |
|
|
DEF PROCInit |
| 4 |
|
|
|
| 5 |
|
|
P% = B% |
| 6 |
|
|
[OPT 2 |
| 7 |
|
|
EQUD 3: EQUD &502: EQUD 0 |
| 8 |
|
|
] |
| 9 |
|
|
SYS"Wimp_AddMessages", B% |
| 10 |
|
|
|
| 11 |
|
|
SYS"Wimp_OpenTemplate",, Task_Res2$ + "Templates" |
| 12 |
|
|
PROCWind_Load("IBox", 1) |
| 13 |
|
|
PROCWind_Load("Main", 1) |
| 14 |
|
|
PROCWind_Load("Boot", 1) |
| 15 |
|
|
PROCWind_Load("BootPane", 1) |
| 16 |
|
|
PROCWind_Load("Add", 1) |
| 17 |
|
|
PROCWind_Load("Remove", 1) |
| 18 |
|
|
SYS"Wimp_CloseTemplate" |
| 19 |
|
|
PROCWimp_IBoxVers |
| 20 |
|
|
SYS"WimpExt_LinkWindows",,, FNObject_Hand(0, "Boot", 0), FNObject_Hand(0, "BootPane", 0) |
| 21 |
|
|
|
| 22 |
|
|
File_Menu% = FNMess_Open(Task_Res2$ + "Menus", TRUE) |
| 23 |
|
|
PROCMenu_Make(">WIBox<Info,Quit", "IBar") |
| 24 |
|
|
PROCMenu_Make("All,None", "Boot") |
| 25 |
|
|
|
| 26 |
|
|
Task_IBar% = FNWimp_IconBarSprite("!" + Task_Name$, 10, 1, -1, 68) |
| 27 |
|
|
|
| 28 |
|
|
Boot_Loaded% = FALSE |
| 29 |
|
|
Task_PollMask% = Task_PollMask% AND NOT(1) |
| 30 |
|
|
Task_PollIdle% = 10 |
| 31 |
|
|
List_High% = 52 |
| 32 |
|
|
|
| 33 |
|
|
ENDPROC |
Parent Directory
| 
Revision Log