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

widgets/panel.r

@@ -1 @@
-panel: make rebface [
+panel: make pill [
         tip:    {
                 USAGE:
@@ -8 +8 @@
         }
         size:   -1x-1
-        effect: [draw [pen none fill-pen none box 0x0 0x0 effects/radius]]
-        feel:   make default-feel [
-                redraw: make function! [face act pos] [
-                        if act = 'show [
-                                all [   ; handle color change
-                                        face/color
-                                        face/effect/draw/pen: face/effect/draw/fill-pen: face/color
-                                        face/color: none
-                                ]
-                        ]
-                ]
-        ]
-        action: make default-action [
-                on-resize: make function! [face] [poke face/effect/draw 7 face/size - 1x1]
-        ]
         init:   make function! [] [
                 data: layout/only data