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

REM > BootEditCode:Menu

DEF FNMenu_IBar_Info
PROCMenu_Window("IBox")
=1

DEF FNMenu_IBar_Quit
Task_Quit% = TRUE
=1

REM ˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜˜

DEF FNMenu_Boot_All
LOCAL List%, Icon%

List% = FNHeap_Find(0, "BootList")
IF !List% = 0 THEN =0

 FOR Item% = 1 TO !List%
   IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) = 0 THEN
    !(List% + 4 + 80 * (Item% - 1)) = !(List% + 4 + 80 * (Item% - 1)) OR 1
    SYS"Wimp_ForceRedraw", W%, 0, -(Item% * List_High%), 65536, -((Item% - 1) * List_High%)
   ENDIF
 NEXT

 FOR Item% = 1 TO !List%
  IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN Numb% += 1
 NEXT

PROCWind_IconGrey("Boot", "Remove",  -(Numb% = 0))
PROCWind_IconGrey("Boot", "Edit",    -((Numb% <> 1) OR (Boot_Editing% = 2) OR (Boot_Editing% = 4)))

=0

DEF FNMenu_Boot_None
LOCAL List%, Icon%

List% = FNHeap_Find(0, "BootList")
IF !List% = 0 THEN =0

 FOR Item% = 1 TO !List%
   IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN
    !(List% + 4 + 80 * (Item% - 1)) = !(List% + 4 + 80 * (Item% - 1)) AND NOT(1)
    SYS"Wimp_ForceRedraw", W%, 0, -(Item% * List_High%), 65536, -((Item% - 1) * List_High%)
   ENDIF
 NEXT

 FOR Item% = 1 TO !List%
  IF (!(List% + 4 + 80 * (Item% - 1)) AND 1) THEN Numb% += 1
 NEXT

PROCWind_IconGrey("Boot", "Remove",  -(Numb% = 0))
PROCWind_IconGrey("Boot", "Edit",    -((Numb% <> 1) OR (Boot_Editing% = 2) OR (Boot_Editing% = 4)))

=0
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