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

widgets/tooltip.r

@@ -1 @@
-tooltip: make rebface [
+tooltip: make pill [
         tip:    {
                 USAGE:
@@ -8 +8 @@
         }
         size:   -1x-1
-        effect: [draw [pen colors/tooltip-edge line-width sizes/edge fill-pen colors/tooltip-fill box 0x0 0x0 effects/radius]]
-        font:   make default-font [color: colors/tooltip-text]
+        color:  colors/page
+;       edge:   default-edge
+        font:   default-font
         para:   make default-para [origin: 4x4 margin: 4x4]
         rate:   2
+        rebind: make function! [] [color: colors/page]
         init:   make function! [] [
+                effect/draw/pen: colors/text
                 either all [negative? size/x negative? size/y] [
                         size: 10000x10000
@@ -20 +23 @@
                         all [negative? size/y para: default-para-wrap size/y: 10000 size/y: 8 + second size-text self]
                 ]
-                poke effect/draw 9 size - 1x1
         ]
 ]