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

Annotation of /archive/bootedit/BootEdit/Basic/Mess

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: 947 byte(s)
Initial import.

1 james 25 REM > BootEditCode:Mess
2    
3     DEF FNMessRec_3
4    
5     CASE B%!20 OF
6    
7     WHEN -2
8     IF B%!40 <> &2000 THEN ERROR Erro_Warn%, "%NotBoot"
9     Boot_Path$ = FNWimp_GetString(B% + 44)
10     IF NOT(FNWimp_FileExists(Boot_Path$ + ".!Run")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Choices")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Resources")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Utils")) OR NOT(FNWimp_FileExists(Boot_Path$ + ".Library")) THEN
11     ERROR Erro_Warn%, "%NotBoot"
12     ENDIF
13     PROCWind_SetTitle("Main", Boot_Path$)
14     PROCWind_OpenC("Main")
15     PROCWind_SetFocus("Main")
16     Boot_Loaded% = TRUE
17    
18     WHEN FNObject_Hand(0, "BootPane", 0)
19    
20     CASE Boot_Editing% OF
21     WHEN 1: PROCBoot_Load("PreDesktop")
22     WHEN 2: PROCBoot_Copy("PreDesk")
23     WHEN 3: PROCBoot_Load("Desktop")
24     WHEN 4: PROCBoot_Copy("Tasks")
25     ENDCASE
26    
27     OTHERWISE
28     =0
29    
30     ENDCASE
31    
32     B%!12 = B%!08
33     B%!16 = 4
34     SYS"Wimp_SendMessage", 17, B%, B%!04
35    
36     =0
37    
38     DEF FNMessUser_3
39     =FNMessRec_3

  ViewVC Help
Powered by ViewVC 1.1.26