Changeset 102

Timestamp:

11/17/07 19:08:44 (13 months ago)

Author:

ashley

Message:

Added bistate option to check.r and check-group.r

Files:

• rebgui-ctx.r (modified) (1 diff)
• rebgui.r (modified) (5 diffs)
• widgets/check-group.r (modified) (1 diff)
• widgets/check.r (modified) (2 diffs)

rebgui-ctx.r

@@ -111 +111 @@
 ctx-rebgui: make object! [
 
-        build:          101
+        build:          102
         view*:          system/view
         locale*:        system/locale

rebgui.r

@@ -1 @@
-REBOL[version: 101]
+REBOL[version: 102]
 if system/version < 1.3.2[make error! "RebGUI requires View 1.3.2 or greater"]
 unless value? 'viewed?[
@@ -24 +24 @@
 ]
 ctx-rebgui: make object![
-build: 101 
+build: 102 
 view*: system/view 
 locale*: system/locale 
@@ -1504 +1504 @@
 Left and right mouse clicks alternate between Yes/No and Unknown respectively.
 OPTIONS:
-'info specifies read-only}
+'info specifies read-only
+'bistate disables right-click state}
 size: -1x5 
 text: "" 
@@ -1533 +1534 @@
 do select[
 down[face/data: either none? face/data[true][none]face/action/on-click face]
-alt-down[face/data: either none? face/data[false][none]face/action/on-click face]
+alt-down[
+unless find face/options 'bistate[
+face/data: either none? face/data[false][none]face/action/on-click face
+]
+]
 away[face/feel/over face false 0x0]
 ]act
@@ -1561 +1566 @@
 At runtime face/data is a block of logic (or none) indicating state of each check box.
 OPTIONS:
-'info specifies read-only}
+'info specifies read-only
+'bistate disables right-click state}
 size: 50x-1 
 pane:[]

widgets/check-group.r

@@ -11 +11 @@
                 OPTIONS:
                         'info specifies read-only
+                        'bistate disables right-click state
         }
         size:   50x-1

widgets/check.r

@@ -12 +12 @@
                 OPTIONS:
                         'info specifies read-only
+                        'bistate disables right-click state
         }
         size:   -1x5
@@ -41 +42 @@
                         do select [
                                 down            [face/data: either none? face/data [true] [none] face/action/on-click face]
-                                alt-down        [face/data: either none? face/data [false] [none] face/action/on-click face]
+                                alt-down        [
+                                        unless find face/options 'bistate [
+                                                face/data: either none? face/data [false] [none] face/action/on-click face
+                                        ]
+                                ]
                                 away            [face/feel/over face false 0x0]
                         ] act