Changeset 112 for widgets/menu.r

Timestamp:

12/31/07 22:18:08 (11 months ago)

Author:

ashley

Message:

Added pill.r
Scroller fixes
Major color / theme management changes (in progress)

Files:

• widgets/menu.r (modified) (2 diffs)

widgets/menu.r

@@ -9 +9 @@
         size:   100x5
         pane:   []
-        color:  colors/widget
-        rebind: make function! [] [color: colors/widget]
+        color:  colors/outline-light
+        rebind: make function! [] [color: colors/outline-light]
         init:   make function! [/local item item-offset] [
                 item-offset: 2x0
@@ -23 +23 @@
                                 feel:   make default-feel [
                                         over: make function! [face act pos] [
-                                                either act [select-row face] [deselect-row face]
+                                                either act [select-face face] [deselect-face face]
                                         ]
                                         engage: make function! [face act event] [
                                                 if act = 'up [
-                                                        ;       de-select previous entry
-                                                        if face/parent-face/data <> face [
-                                                                face/parent-face/data/color: none
-                                                                face/parent-face/data/font/color: black
-                                                                show face/parent-face/data
-                                                                face/parent-face/data: face
-                                                        ]
                                                         ;       evaluate block associated with choice
                                                         do select face/data choose face/parent-face face/options face/parent-face/offset + face/offset + as-pair 0 face/size/y extract face/data 2
+                                                        deselect-face face
                                                 ]
                                         ]