steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "ui.gadgets.labeled: separate title-bar-interior with a comment why." 

This reverts commit cb575c1ba8.
clean-macosx-x86-32
John Benediktsson 2015-08-16 08:04:58 -07:00 committed by Alexander Iljin
parent 7ad6784911
commit a3b439047f
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/gadgets/labeled/labeled.factor
View File

@ -11,16 +11,13 @@ TUPLE: labeled-gadget < track content ;
M: labeled-gadget focusable-child* content>> ; M: labeled-gadget focusable-child* content>> ;
! gradients don't work as backgrounds on windows, see #152 and #1397 : <title-bar> ( title -- title-bar )
: title-bar-interior ( -- interior ) >label [ t >>bold? ] change-font
{ 0 4 } <border>
os windows? os windows?
[ toolbar-background <solid> ] [ toolbar-background <solid> ]
[ title-bar-gradient <gradient> ] [ title-bar-gradient <gradient> ]
if ; if >>interior ;
: <title-bar> ( title -- title-bar )
>label [ t >>bold? ] change-font
{ 0 4 } <border> title-bar-interior >>interior ;
PRIVATE> PRIVATE>