Subversion Repositories Kolibri OS

Rev

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