WebSVN – Kolibri OS – Diff – /programs/develop/cedit/SRC/Menu.ob07

 *)
 MODULE Menu;
 IMPORT
-    SYSTEM, G := Graph, List, K := KolibriOS;
+    SYSTEM, G := Graph, List, K := KolibriOS, U := Utils, KOSAPI;
+CONST
+    fontHeight = 22;
-CONST
+    fontWidth = 8;
     fontHeight = 22;
-    fontWidth = 8;
+    MainMenuHeight* = K.fontHeight + 7;
     disSelForeColor = disForeColor;
+TYPE
+	tMainItem* = POINTER TO descMainItem;
+    tMain* = POINTER TO RECORD (List.tList)
     	id: INTEGER
-TYPE
+    END;
     tMenu* = POINTER TO RECORD
+        tid*: INTEGER;
-        tid*: INTEGER;
+        active*, keyboard: BOOLEAN;
-        active*: BOOLEAN;
+        parent*, child: tMenu;
-        parent*, child: tMenu;
+        mainID: INTEGER;
         winX, winY, width*, height*: INTEGER;
         text: ARRAY 32 OF WCHAR;
         enabled, delim: BOOLEAN;
         child: tMenu
     END;
+    descMainItem = RECORD (List.tItem)
+        id*, x: INTEGER;
+        text: ARRAY 32 OF WCHAR;
+        menu*: tMenu;
+        main: tMain
+    END;
     tClick = PROCEDURE (menu: tMenu; id: INTEGER);
     tKey = PROCEDURE (menu: tMenu; key: INTEGER): BOOLEAN;
     tProc = PROCEDURE;
 VAR
     stack: ARRAY maxLEVEL + 1, 250000 OF INTEGER;
     TIDs: ARRAY maxLEVEL + 1 OF INTEGER;
     resetTimer: tProc;
     _open: PROCEDURE (m: tMenu; x, y: INTEGER);
-    redraw*: BOOLEAN;
+    (*redraw*: BOOLEAN;*)
 (*
     backColor, foreColor, selBackColor, selForeColor,
+    disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER;
+*)
+PROCEDURE AddMainItem* (main: tMain; text: ARRAY OF WCHAR; menu: tMenu);
+VAR
+	item, prev: tMainItem;
+BEGIN
+	NEW(item);
+	item.id := main.id + main.count;
+	COPY(text, item.text);
+	item.menu := menu;
+	item.main := main;
+	menu.mainID := item.id;
+	List.append(main, item);
+	prev := item.prev(tMainItem);
+	IF prev # NIL THEN
+		item.x := prev.x + LENGTH(prev.text)*fontWidth + 9
+	ELSE
+		item.x := 0
+	END
+END AddMainItem;
+PROCEDURE CreateMain* (id: INTEGER): tMain;
+VAR
+	res: tMain;
+	list: List.tList;
+BEGIN
+	NEW(res);
+	res.id := id;
+	list := List.create(res)
+	RETURN res
+END CreateMain;
+PROCEDURE drawMainItem (item: tMainItem);
+VAR
+    menuColor, textColor, n: INTEGER;
+BEGIN
+    IF item.menu.tid # 0 THEN
+        menuColor := K.textColor;
+        textColor := K.winColor
+    ELSE
+        menuColor := K.winColor;
+        textColor := K.textColor
+    END;
+    n := LENGTH(item.text);
+    K.DrawRect(item.x, 0, n*fontWidth + 2, MainMenuHeight, menuColor);
+    K.CreateButton(item.id + ORD({30}), item.x, 0, n*fontWidth + 2, MainMenuHeight, K.btnColor, "");
+    K.DrawText(item.x + 1, (MainMenuHeight - K.fontHeight) DIV 2 + 1, textColor, item.text)
+END drawMainItem;
+PROCEDURE DrawMain* (main: tMain);
+VAR
+	item: List.tItem;
+BEGIN
+	item := main.first;
+	WHILE item # NIL DO
+		drawMainItem(item(tMainItem));
+		item := item.next
+	END
+END DrawMain;
+PROCEDURE getMainID (m: tMenu): INTEGER;
+BEGIN
+	WHILE m.parent # NIL DO
+		m := m.parent
+	END
+	RETURN m.mainID
+END getMainID;
+PROCEDURE ClickMain* (main: tMain; btn: INTEGER): tMenu;
+VAR
+	item: List.tItem;
+	res: tMenu;
+BEGIN
+	item := List.getItem(main, btn - main.id);
+	IF item # NIL THEN
+		res := item(tMainItem).menu
+	ELSE
+		res := NIL
+	END
+	RETURN res
-    disBackColor, disForeColor, disSelBackColor, disSelForeColor: INTEGER;
+END ClickMain;
 *)
 PROCEDURE isSender* (tid: INTEGER): BOOLEAN;
 VAR
 END isSender;
-PROCEDURE exit (m: tMenu);
-BEGIN
+PROCEDURE exit (m: tMenu);
-    m.tid := 0;
+BEGIN
+    m.active := FALSE;
-    m.active := FALSE;
+   	resetTimer;
-    resetTimer;
+    m.tid := 0;
+    K.Exit
+END exit;
+PROCEDURE escape (m: tMenu);
+BEGIN
+    m.active := FALSE;
+    IF m.parent = NIL THEN
+    	resetTimer
+    END;
+    m.tid := 0;
     K.Exit
-END exit;
+END escape;
 PROCEDURE repaint (m: tMenu);
     y := mouseY - m.winY;
 END mouse;
+PROCEDURE close* (m: tMenu);
 VAR
-PROCEDURE close* (m: tMenu);
+	temp: INTEGER;
 BEGIN
     IF (m # NIL) & (m.tid # 0) THEN
     	IF m.child # NIL THEN
     		close(m.child);
     		m.child := NIL
     	END;
+    	temp := m.tid;
-        K.ExitID(m.tid);
+    	m.tid := 0;
-        m.tid := 0;
+        K.ExitID(temp);
         m.active := FALSE
     END
 END close;
+PROCEDURE click (m: tMenu; i: INTEGER);
-PROCEDURE click (m: tMenu; i: INTEGER);
+VAR
+    item: List.tItem;
+    p: tMenu;
+    id: INTEGER;
+BEGIN
-VAR
+	id := -1;
-    item: List.tItem;
+	IF i < 0 THEN
-    p: tMenu;
+		id := i
+	ELSE
+	    item := List.getItem(m.items, i);
+	    IF (item # NIL) & item(tItem).enabled & (item(tItem).child = NIL) THEN
+	    	id := item(tItem).id
-BEGIN
+	    END
-    item := List.getItem(m.items, i);
+    END;
-    IF (item # NIL) & item(tItem).enabled & (item(tItem).child = NIL) THEN
+    IF id # -1 THEN
-        m.click(m, item(tItem).id);
+	    m.click(m, id);
-        p := m.parent;
+	    p := m.parent;
-       	WHILE p # NIL DO
+	   	WHILE p # NIL DO
-       		p.child := NIL;
+	   		p.child := NIL;
-       		close(p);
+	   		close(p);
-       		p := p.parent
+	   		p := p.parent
-       	END;
+	   	END;
 PROCEDURE closeChild (m: tMenu);
 BEGIN
 	IF m.child # NIL THEN
-		redraw := FALSE;
+		(*redraw := FALSE;*)
 		close(m.child);
 		m.child := NIL
 	END
 END closeChild;
 PROCEDURE submenu (m: tMenu; keyboard: BOOLEAN): BOOLEAN;
+VAR
-PROCEDURE submenu (m: tMenu);
+	item: List.tItem;
-VAR
+	res: BOOLEAN;
+BEGIN
-	item: List.tItem;
+	res := FALSE;
-BEGIN
+    item := List.getItem(m.items, m.selItem);
+    IF (item # NIL) & item(tItem).enabled & (item(tItem).child # NIL) THEN
-    item := List.getItem(m.items, m.selItem);
+    	res := TRUE;
-    IF (item # NIL) & item(tItem).enabled & (item(tItem).child # NIL) THEN
+    	IF ~opened(item(tItem).child) THEN
-    	IF ~opened(item(tItem).child) THEN
+    		closeChild(m);
-    		closeChild(m);
+    		item(tItem).child.keyboard := keyboard;
     		_open(item(tItem).child, m.winX + m.width - 2, m.winY + m.selItem*fontHeight);
-    		m.child := item(tItem).child
+    		m.child := item(tItem).child;
+    	END
-    	END
+    ELSE
-    ELSE
+    	closeChild(m)
-    	closeChild(m)
+    END
-    END
+    RETURN res
 END submenu;
 PROCEDURE [stdcall] window (m: tMenu);
-PROCEDURE [stdcall] window (m: tMenu);
+VAR
-VAR
+    x, y: INTEGER;
+    key, temp: INTEGER;
-    x, y: INTEGER;
+    msState: SET;
-    key: INTEGER;
+    shift, ctrl: BOOLEAN;
-    msState: SET;
+BEGIN
-BEGIN
+    m.selItem := ORD(m.keyboard) - 1;
-    m.selItem := -1;
+    m.cliItem := -1;
-    m.cliItem := -1;
+    m.keyboard := FALSE;
+    K.SetEventsMask({0, 1, 5});
-    K.SetEventsMask({0, 1, 5});
+    WHILE TRUE DO
+        CASE K.WaitForEvent() OF
-    WHILE TRUE DO
+        |1:
-        CASE K.WaitForEvent() OF
+            draw_window(m)
-        |1:
+        |2:
-            draw_window(m)
+        	K.getKBState(shift, ctrl);
-        |2:
+            key := K.GetKey();
-            key := K.GetKey();
+            IF ~shift & ~ ctrl THEN
-            IF key DIV 65536 = 72 THEN
+	            IF key DIV 65536 = 72 THEN
-                DEC(m.selItem);
+	                DEC(m.selItem);
-                IF m.selItem < 0 THEN
+	                IF m.selItem < 0 THEN
-                    m.selItem := 0
+	                    m.selItem := m.items.count - 1
-                END
+	                END
-            ELSIF key DIV 65536 = 80 THEN
+	            ELSIF key DIV 65536 = 80 THEN
-                INC(m.selItem);
+	                INC(m.selItem);
-                IF m.selItem >= m.items.count THEN
+	                IF m.selItem >= m.items.count THEN
-                    m.selItem := m.items.count - 1
+	                    m.selItem := 0
-                END
+	                END
+	            ELSIF key DIV 65536 = 28 THEN
+	                IF m.selItem >= 0 THEN
-            ELSIF key DIV 65536 = 28 THEN
+	                    click(m, m.selItem)
+	                END;
-                IF m.selItem >= 0 THEN
+	                m.cliItem := -1
-                    click(m, m.selItem)
+	            ELSIF key DIV 65536 = 77 THEN
+	                IF ~submenu(m, TRUE) THEN
+	                	click(m, -(getMainID(m) + 1))
+	                END;
+	                m.cliItem := -1
+	            ELSIF key DIV 65536 = 75 THEN
+	            	IF m.parent # NIL THEN
+	                	escape(m)
+	            	ELSE
+	            		click(m, -(getMainID(m) - 1))
+	                END;
+	                m.cliItem := -1
+	            ELSIF key DIV 65536 = 1 THEN
+	            	escape(m)
+	            ELSE
-                END;
+	                IF m.key(m, key) THEN
-                m.cliItem := -1
+	                	IF m.parent # NIL THEN
+	                		temp := m.parent.tid;
-            ELSIF key DIV 65536 = 77 THEN
+	                		m.parent.tid := 0;
-                submenu(m)
+	                		K.ExitID(temp)
+	                	END;
+	                    exit(m)
+	                END
+                END
+            ELSE
-            ELSIF key DIV 65536 = 75 THEN
+                IF m.key(m, key) THEN
-            	IF m.parent # NIL THEN
+                	IF m.parent # NIL THEN
-                	exit(m)
+                		temp := m.parent.tid;
-                END
+                		m.parent.tid := 0;
-            ELSE
+                		K.ExitID(temp)
                 IF ({8, 9, 10, 16} * msState # {}) & ~isActive(m.child) THEN
                     exit(m)
                 END
             END;
             repaint(m);
-            submenu(m)
+            IF submenu(m, FALSE) THEN END
         END
     END
 END window;
 PROCEDURE open* (m: tMenu; x, y: INTEGER);
 VAR
 	L: INTEGER;
 BEGIN
     IF m.tid = 0 THEN
+        L := level(m);
+        IF KOSAPI.sysfunc3(18, 21, TIDs[L]) = 0 THEN
-        m.winX := x;
+        	m.winX := x;
-        m.winY := y;
+        	m.winY := y;
-        L := level(m);
-        SYSTEM.PUT(SYSTEM.ADR(stack[L][LEN(stack[0]) - 1]), m);
+	        SYSTEM.PUT(SYSTEM.ADR(stack[L][LEN(stack[0]) - 1]), m);
-        m.tid := K.CreateThread(SYSTEM.ADR(window), stack[L]);
+    	    m.tid := K.CreateThread(SYSTEM.ADR(window), stack[L]);
-        TIDs[L] := m.tid
+        	TIDs[L] := m.tid
-    END
+        END
+    END
 END open;
     NEW(m);
     m.tid := 0;
     m.active := FALSE;
     m.parent := NIL;
     m.child := NIL;
+    m.mainID := 0;
     m.items  := items;
     m.click := click;
     m.key := key;
     maxLength := 0;
     item := items.first(tItem);
     m.canvas := G.CreateCanvas(m.width + 1, m.height + 1);
     G.SetFont(m.canvas, m.font);
     RETURN m
 END create;
 (*
 PROCEDURE Redraw*;
 BEGIN
 	redraw := TRUE
 END Redraw;
 *)
 PROCEDURE init* (_resetTimer: tProc);
 VAR
 	i: INTEGER;
 BEGIN
-	Redraw;
+	(*Redraw;*)
 	resetTimer := _resetTimer;
 	_open := open;
 	FOR i := 0 TO maxLEVEL DO

Subversion Repositories Kolibri OS

(root)/programs/develop/cedit/SRC/Menu.ob07 – Rev 9182 → 9187