Remove redundant t >>fill? calls

2009-02-15 04:24:25 -06:00 · 2009-02-15 04:24:25 -06:00 · 9a1d324342
parent 634435d816
commit 9a1d324342
2 changed files with 2 additions and 3 deletions
--- a/basis/ui/gadgets/labeled/labeled.factor
+++ b/basis/ui/gadgets/labeled/labeled.factor
@ -24,7 +24,7 @@ CONSTANT: @bottom-right { 2 2 }
    "labeled-block-" prepend theme-image ;

 : labeled-icon ( name -- icon )
-    labeled-image <icon> dup interior>> t >>fill? drop ;
+    labeled-image <icon> ;

 CONSTANT: labeled-title-background
    T{ rgba f
--- a/basis/ui/gadgets/tabbed/tabbed.factor
+++ b/basis/ui/gadgets/tabbed/tabbed.factor
@ -11,8 +11,7 @@ TUPLE: tabbed-gadget < track tabs book ;
 <PRIVATE

 : <lip> ( -- gadget )
-    "active-tab-lip" theme-image <icon>
-    dup interior>> t >>fill? drop ;
+    "active-tab-lip" theme-image <icon> ;

 CONSTANT: active-tab-background
    T{ rgba