Changeset 112 for widgets/radio-group.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/radio-group.r (modified) (4 diffs)

widgets/radio-group.r

@@ -47 +47 @@
                                 size:   siz
                                 text:   label
-                                effect: compose/deep [draw [pen (colors/edge) fill-pen (colors/edit) circle (as-pair sizes/cell * 1.5 sizes/cell * 2.5) (sizes/cell * 1.5)]]
+                                effect: compose/deep [draw [pen (colors/outline-light) fill-pen (colors/page) circle (as-pair sizes/cell * 1.5 sizes/cell * 2.5) (sizes/cell * 1.5)]]
                                 data:   index
                                 font:   default-font
@@ -53 +53 @@
                                 feel:   make default-feel [
                                         over: make function! [face act pos] [
-                                                face/effect/draw/pen: either act [colors/over] [colors/edge]
+                                                face/effect/draw/pen: either act [colors/outline-dark] [colors/outline-light]
                                                 show face
                                         ]
@@ -70 +70 @@
                                                                                 pf/picked: face/data
                                                                                 insert tail face/effect/draw reduce [
-                                                                                        'pen colors/true 'fill-pen colors/true 'circle as-pair sizes/cell * 1.5 sizes/cell * 2.5 sizes/cell - 1
+                                                                                        'pen colors/state-dark 'fill-pen colors/state-dark 'circle as-pair sizes/cell * 1.5 sizes/cell * 2.5 sizes/cell - 1
                                                                                 ]
                                                                                 show face
@@ -89 +89 @@
                         integer? picked
                         insert tail pane/:picked/effect/draw reduce [
-                                'pen colors/true 'fill-pen colors/true 'circle as-pair sizes/cell * 1.5 sizes/cell * 2.5 sizes/cell - 1
+                                'pen colors/state-dark 'fill-pen colors/state-dark 'circle as-pair sizes/cell * 1.5 sizes/cell * 2.5 sizes/cell - 1
                         ]
                 ]