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

Remove redundant t >>fill? calls

db4
Slava Pestov 2009-02-15 04:24:25 -06:00
parent 634435d816
commit 9a1d324342
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,7 +24,7 @@ CONSTANT: @bottom-right { 2 2 }
"labeled-block-" prepend theme-image ; "labeled-block-" prepend theme-image ;
: labeled-icon ( name -- icon ) : labeled-icon ( name -- icon )
labeled-image <icon> dup interior>> t >>fill? drop ; labeled-image <icon> ;
CONSTANT: labeled-title-background CONSTANT: labeled-title-background
T{ rgba f T{ rgba f

3
basis/ui/gadgets/tabbed/tabbed.factor
View File

@ -11,8 +11,7 @@ TUPLE: tabbed-gadget < track tabs book ;
<PRIVATE <PRIVATE
: <lip> ( -- gadget ) : <lip> ( -- gadget )
"active-tab-lip" theme-image <icon> "active-tab-lip" theme-image <icon> ;
dup interior>> t >>fill? drop ;
CONSTANT: active-tab-background CONSTANT: active-tab-background
T{ rgba T{ rgba