From 9a1d3243429252628408d4b5eb3fa7739efa8eca Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 15 Feb 2009 04:24:25 -0600
Subject: [PATCH] Remove redundant t >>fill? calls

---
 basis/ui/gadgets/labeled/labeled.factor | 2 +-
 basis/ui/gadgets/tabbed/tabbed.factor   | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/basis/ui/gadgets/labeled/labeled.factor b/basis/ui/gadgets/labeled/labeled.factor
index 4aae299ad6..319fd8cf70 100644
--- 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
diff --git a/basis/ui/gadgets/tabbed/tabbed.factor b/basis/ui/gadgets/tabbed/tabbed.factor
index 15402149fc..19c43272b3 100644
--- 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