/[james]/archive/bootedit/BootEdit/Basic/Init
ViewVC logotype

Annotation of /archive/bootedit/BootEdit/Basic/Init

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (hide annotations) (download)
Thu Mar 13 12:54:50 2003 UTC (21 years, 7 months ago) by james
File size: 753 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26