Rev 9187 | Rev 9208 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9187 | Rev 9190 | ||
---|---|---|---|
Line 18... | Line 18... | ||
18 | *) |
18 | *) |
Line 19... | Line 19... | ||
19 | 19 | ||
Line 20... | Line 20... | ||
20 | MODULE Menu; |
20 | MODULE Menu; |
21 | 21 | ||
Line 22... | Line 22... | ||
22 | IMPORT |
22 | IMPORT |
23 | SYSTEM, G := Graph, List, K := KolibriOS, U := Utils, KOSAPI; |
23 | SYSTEM, G := Graph, List, K := KolibriOS, KOSAPI; |
24 | 24 | ||
Line 89... | Line 89... | ||
89 | VAR |
89 | VAR |
90 | stack: ARRAY maxLEVEL + 1, 250000 OF INTEGER; |
90 | stack: ARRAY maxLEVEL + 1, 250000 OF INTEGER; |
91 | TIDs: ARRAY maxLEVEL + 1 OF INTEGER; |
91 | TIDs: ARRAY maxLEVEL + 1 OF INTEGER; |
92 | resetTimer: tProc; |
92 | resetTimer: tProc; |
93 | _open: PROCEDURE (m: tMenu; x, y: INTEGER); |
93 | _open: PROCEDURE (m: tMenu; x, y: INTEGER); |
94 | (*redraw*: BOOLEAN;*) |
- | |
95 | (* |
94 | (* |
96 | backColor, foreColor, selBackColor, selForeColor, |
95 | backColor, foreColor, selBackColor, selForeColor, |
97 | disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER; |
96 | disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER; |
98 | *) |
97 | *) |
Line 352... | Line 351... | ||
352 | WHILE p # NIL DO |
351 | WHILE p # NIL DO |
353 | p.child := NIL; |
352 | p.child := NIL; |
354 | close(p); |
353 | close(p); |
355 | p := p.parent |
354 | p := p.parent |
356 | END; |
355 | END; |
357 | (*redraw := TRUE;*) |
- | |
358 | exit(m) |
356 | exit(m) |
359 | END |
357 | END |
360 | END click; |
358 | END click; |
Line 371... | Line 369... | ||
371 | 369 | ||
372 | 370 | ||
373 | PROCEDURE closeChild (m: tMenu); |
371 | PROCEDURE closeChild (m: tMenu); |
374 | BEGIN |
- | |
375 | IF m.child # NIL THEN |
372 | BEGIN |
376 | (*redraw := FALSE;*) |
373 | IF m.child # NIL THEN |
377 | close(m.child); |
374 | close(m.child); |
378 | m.child := NIL |
375 | m.child := NIL |
Line 637... | Line 634... | ||
637 | m.canvas := G.CreateCanvas(m.width + 1, m.height + 1); |
634 | m.canvas := G.CreateCanvas(m.width + 1, m.height + 1); |
638 | G.SetFont(m.canvas, m.font); |
635 | G.SetFont(m.canvas, m.font); |
639 | RETURN m |
636 | RETURN m |
640 | END create; |
637 | END create; |
Line 641... | Line -... | ||
641 | - | ||
642 | (* |
- | |
643 | PROCEDURE Redraw*; |
- | |
644 | BEGIN |
- | |
645 | redraw := TRUE |
- | |
646 | END Redraw; |
- | |
Line 647... | Line 638... | ||
647 | *) |
638 | |
648 | 639 | ||
649 | PROCEDURE init* (_resetTimer: tProc); |
640 | PROCEDURE init* (_resetTimer: tProc); |
650 | VAR |
641 | VAR |
651 | i: INTEGER; |
- | |
652 | BEGIN |
642 | i: INTEGER; |
653 | (*Redraw;*) |
643 | BEGIN |
654 | resetTimer := _resetTimer; |
644 | resetTimer := _resetTimer; |
655 | _open := open; |
645 | _open := open; |
656 | FOR i := 0 TO maxLEVEL DO |
646 | FOR i := 0 TO maxLEVEL DO |