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

Contents of /archive/bootedit/BootEdit/Basic/Menu

Parent Directory Parent Directory | Revision Log Revision Log


Revision 25 - (show 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 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