92 lines
2.4 KiB
Factor
92 lines
2.4 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 T{ solid f { 0.0 0.0 0.0 1.0 } } ;
|
|
|
|
: solid-white T{ solid f { 1.0 1.0 1.0 1.0 } } ;
|
|
|
|
: solid-interior solid-white swap set-gadget-interior ;
|
|
|
|
: solid-boundary solid-black swap set-gadget-boundary ;
|
|
|
|
: plain-gradient
|
|
T{ gradient f {
|
|
{ 0.94 0.94 0.94 1.0 }
|
|
{ 0.83 0.83 0.83 1.0 }
|
|
{ 0.83 0.83 0.83 1.0 }
|
|
{ 0.62 0.62 0.62 1.0 }
|
|
} } ;
|
|
|
|
: rollover-gradient
|
|
T{ gradient f {
|
|
{ 1.0 1.0 1.0 1.0 }
|
|
{ 0.9 0.9 0.9 1.0 }
|
|
{ 0.9 0.9 0.9 1.0 }
|
|
{ 0.75 0.75 0.75 1.0 }
|
|
} } ;
|
|
|
|
: pressed-gradient
|
|
T{ gradient f {
|
|
{ 0.75 0.75 0.75 1.0 }
|
|
{ 0.9 0.9 0.9 1.0 }
|
|
{ 0.9 0.9 0.9 1.0 }
|
|
{ 1.0 1.0 1.0 1.0 }
|
|
} } ;
|
|
|
|
: faint-boundary
|
|
T{ solid f { 0.62 0.62 0.62 0.8 } } 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 pressed-gradient <button-paint> swap set-gadget-interior ;
|
|
|
|
: caret-theme ( caret -- )
|
|
T{ solid f { 1.0 0.0 0.0 1.0 } } swap set-gadget-interior ;
|
|
|
|
: elevator-theme ( elevator -- )
|
|
T{ gradient f {
|
|
{ 0.37 0.37 0.37 1.0 }
|
|
{ 0.43 0.43 0.43 1.0 }
|
|
{ 0.5 0.5 0.5 1.0 }
|
|
} } swap set-gadget-interior ;
|
|
|
|
: reverse-video-theme ( gadget -- )
|
|
solid-black swap set-gadget-interior ;
|
|
|
|
: display-title-theme
|
|
T{ solid f { 0.84 0.9 1.0 1.0 } } swap set-gadget-interior ;
|
|
|
|
: menu-theme ( menu -- )
|
|
dup solid-boundary
|
|
T{ solid f { 0.9 0.9 0.9 0.9 } } swap set-gadget-interior ;
|
|
|
|
: label-theme ( label -- )
|
|
{ 0.0 0.0 0.0 1.0 } over set-label-color
|
|
{ "Monospaced" plain 12 } swap set-label-font ;
|
|
|
|
: editor-theme ( label -- )
|
|
{ 0.0 0.0 0.0 1.0 } over set-label-color
|
|
{ "Monospaced" bold 12 } swap set-label-font ;
|
|
|
|
: status-theme ( label -- )
|
|
dup reverse-video-theme
|
|
{ 1.0 1.0 1.0 1.0 } over set-label-color
|
|
{ "Monospaced" plain 12 } swap set-label-font ;
|