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
