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

Annotation of /archive/bootedit/BootEdit/Basic/Menu

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

1 james 25 REM > BootEditCode:Menu
2    
3     DEF FNMenu_IBar_Info
4     PROCMenu_Window("IBox")
5     =1
6    
7     DEF FNMenu_IBar_Quit
8     Task_Quit% = TRUE
9     =1
10    
11     REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜
12    
13     DEF FNMenu_Boot_All
14     LOCAL List%, Icon%
15    
16     List% = FNHeap_Find(0, "BootList")
17     IF !List% = 0 THEN =0
18    
19     FOR Item% = 1 TO !List%
20     IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) = 0 THEN
21     !(List% + 4 + 80 * (Item% - 1)) = !(List% + 4 + 80 * (Item% - 1)) OR 1
22     SYS"Wimp_ForceRedraw", W%, 0, -(Item% * List_High%), 65536, -((Item% - 1) * List_High%)
23     ENDIF
24     NEXT
25    
26     FOR Item% = 1 TO !List%
27     IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN Numb% += 1
28     NEXT
29    
30     PROCWind_IconGrey("Boot", "Remove", -(Numb% = 0))
31     PROCWind_IconGrey("Boot", "Edit", -((Numb% <> 1) OR (Boot_Editing% = 2) OR (Boot_Editing% = 4)))
32    
33     =0
34    
35     DEF FNMenu_Boot_None
36     LOCAL List%, Icon%
37    
38     List% = FNHeap_Find(0, "BootList")
39     IF !List% = 0 THEN =0
40    
41     FOR Item% = 1 TO !List%
42     IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN
43     !(List% + 4 + 80 * (Item% - 1)) = !(List% + 4 + 80 * (Item% - 1)) AND NOT(1)
44     SYS"Wimp_ForceRedraw", W%, 0, -(Item% * List_High%), 65536, -((Item% - 1) * List_High%)
45     ENDIF
46     NEXT
47    
48     FOR Item% = 1 TO !List%
49     IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN Numb% += 1
50     NEXT
51    
52     PROCWind_IconGrey("Boot", "Remove", -(Numb% = 0))
53     PROCWind_IconGrey("Boot", "Edit", -((Numb% <> 1) OR (Boot_Editing% = 2) OR (Boot_Editing% = 4)))
54    
55     =0

  ViewVC Help
Powered by ViewVC 1.1.26