88 lines
2.2 KiB
Factor
88 lines
2.2 KiB
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: gadgets-buttons
|
|
DEFER: <button-paint>
|
|
|
|
IN: gadgets-labels
|
|
DEFER: set-label-color
|
|
DEFER: set-label-font
|
|
|
|
IN: gadgets-theme
|
|
USING: arrays gadgets kernel sequences styles ;
|
|
|
|
: solid-black << solid f @{ 0 0 0 }@ >> ;
|
|
|
|
: solid-white << solid f @{ 255 255 255 }@ >> ;
|
|
|
|
: solid-interior solid-white swap set-gadget-interior ;
|
|
|
|
: solid-boundary solid-black swap set-gadget-boundary ;
|
|
|
|
: plain-gradient
|
|
<< gradient f @{
|
|
@{ 240 240 240 }@
|
|
@{ 212 212 212 }@
|
|
@{ 212 212 212 }@
|
|
@{ 160 160 160 }@
|
|
}@ >> ;
|
|
|
|
: rollover-gradient
|
|
<< gradient f @{
|
|
@{ 255 255 255 }@
|
|
@{ 232 232 232 }@
|
|
@{ 232 232 232 }@
|
|
@{ 192 192 192 }@
|
|
}@ >> ;
|
|
|
|
: pressed-gradient
|
|
<< gradient f @{
|
|
@{ 192 192 192 }@
|
|
@{ 232 232 232 }@
|
|
@{ 232 232 232 }@
|
|
@{ 255 255 255 }@
|
|
}@ >> ;
|
|
|
|
: faint-boundary
|
|
<< solid f @{ 160 160 160 }@ >> swap set-gadget-boundary ;
|
|
|
|
: bevel-button-theme ( gadget -- )
|
|
plain-gradient rollover-gradient pressed-gradient
|
|
<button-paint> over set-gadget-interior
|
|
faint-boundary ;
|
|
|
|
: thumb-theme ( thumb -- )
|
|
plain-gradient over set-gadget-interior faint-boundary ;
|
|
|
|
: roll-button-theme ( button -- )
|
|
f solid-black solid-black <button-paint> over set-gadget-boundary
|
|
f f << solid f @{ 236 230 232 }@ >> <button-paint> swap set-gadget-interior ;
|
|
|
|
: caret-theme ( caret -- )
|
|
<< solid f @{ 255 0 0 }@ >> swap set-gadget-interior ;
|
|
|
|
: elevator-theme ( elevator -- )
|
|
<< gradient f @{
|
|
@{ 96 96 96 }@
|
|
@{ 112 112 112 }@
|
|
@{ 128 128 128 }@
|
|
}@ >> swap set-gadget-interior ;
|
|
|
|
: reverse-video-theme ( gadget -- )
|
|
solid-black swap set-gadget-interior ;
|
|
|
|
: display-title-theme
|
|
<< solid f @{ 216 232 255 }@ >> swap set-gadget-interior ;
|
|
|
|
: menu-theme ( menu -- )
|
|
dup solid-boundary
|
|
<< gradient f @{ @{ 216 216 216 }@ @{ 255 255 255 }@ }@ >>
|
|
swap set-gadget-interior ;
|
|
|
|
: label-theme ( label -- )
|
|
@{ 0 0 0 }@ over set-label-color
|
|
@{ "Monospaced" plain 12 }@ swap set-label-font ;
|
|
|
|
: editor-theme ( editor -- )
|
|
@{ 0 0 0 }@ over set-label-color
|
|
@{ "Monospaced" bold 12 }@ swap set-label-font ;
|