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

widgets/check.r

@@ -16 +16 @@
         size:   -1x5
         text:   ""
-        effect: [draw [pen colors/edge fill-pen colors/edit box 0x0 0x0]]
+        effect: [draw [pen colors/outline-light fill-pen colors/page box 0x0 0x0]]
         font:   default-font
         para:   default-para-indented
@@ -28 +28 @@
                                 unless none? face/data [
                                         insert tail face/effect/draw reduce either face/data [
-                                                ['pen colors/true 'line-width sizes/cell / 3 'line as-pair 2 sizes/cell * 3 as-pair sizes/cell * 1.5 p2/y as-pair p2/x p1/y]
+                                                ['pen colors/state-dark 'line-width sizes/cell / 3 'line as-pair 2 sizes/cell * 3 as-pair sizes/cell * 1.5 p2/y as-pair p2/x p1/y]
                                         ][
-                                                ['pen colors/false 'line-width sizes/cell / 3 'line p1 p2 'line as-pair p2/x p1/y as-pair p1/x p2/y]
+                                                ['pen colors/state-dark 'line-width sizes/cell / 3 'line p1 p2 'line as-pair p2/x p1/y as-pair p1/x p2/y]
                                         ]
                                 ]
@@ -36 +36 @@
                 ]
                 over: make function! [face act pos] [
-                        face/effect/draw/pen: either act [colors/over] [colors/edge]
+                        face/effect/draw/pen: either act [colors/state-dark] [colors/outline-light]
                         show face
                 ]
@@ -62 +62 @@
                 if find options 'info [
                         feel/redraw self 'show none
-                        effect/draw/4: colors/widget
+                        effect/draw/4: colors/outline-light
                         feel: make default-feel []
                 ]