/[james]/archive/createj/!CreateJ/Files/Basic/Init
ViewVC logotype

Annotation of /archive/createj/!CreateJ/Files/Basic/Init

Parent Directory Parent Directory | Revision Log Revision Log


Revision 26 - (hide annotations) (download)
Thu Mar 13 17:23:07 2003 UTC (21 years, 8 months ago) by james
File size: 386 byte(s)
Initial import.

1 james 26 REM > {!}Code:Init
2    
3     DEF PROCInit
4    
5     P% = B%
6     [OPT 2
7     EQUD &502: EQUD 0
8     ]
9     SYS"Wimp_AddMessages", B%
10    
11     SYS"Wimp_OpenTemplate",, Task_Res2$ + "Templates"
12     PROCWind_Load("IBox", 1)
13     PROCWimp_IBoxVers
14     SYS"Wimp_CloseTemplate"
15    
16     File_Menu% = FNMess_Open(Task_Res2$ + "Menus", TRUE)
17     PROCMenu_Make(">WIBox<Info,Quit", "IBar")
18    
19     Task_IBar% = FNWimp_IconBarSprite("!" + Task_Name$, 10, 1, -1, 75)
20    
21     ENDPROC

  ViewVC Help
Powered by ViewVC 1.1.26