Changeset 112 for widgets/arrow.r

Show
Ignore:
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:
1 modified

Legend:

Unmodified
Added
Removed

  • widgets/arrow.r

    r75 r112  
    1616        feel:   make default-feel [ 
    1717                redraw: make function! [face act pos] [ 
    18                         all [act = 'show face/color: either face/data [colors/btn-down] [colors/btn-up]] 
     18                        all [act = 'show face/color: either face/data [colors/state-light] [colors/theme-light]] 
    1919                ] 
    2020                engage: make function! [face act event] [ 
    … …  
    2929                ] 
    3030        ] 
    31         effect: reduce ['arrow colors/btn-text 'rotate 0] 
    32         edge:   default-edge 
    33         rebind: make function! [] [effect/2: colors/btn-text] 
     31        effect: reduce ['arrow colors/page 'rotate 0] 
     32        rebind: make function! [] [effect/arrow: colors/page] 
    3433        init:   make function! [] [ 
    3534                all [negative? size/y size/y: size/x]