From 4339bda8cc7d37f988dd0e0a4eff2eb06f3b769b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 12 Feb 2009 02:09:35 -0600
Subject: [PATCH] Fix scrollbar thumb rendering

---
 basis/ui/gadgets/icons/icons.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/icons/icons.factor b/basis/ui/gadgets/icons/icons.factor
index deba794aed..27ffc3bd05 100644
--- a/basis/ui/gadgets/icons/icons.factor
+++ b/basis/ui/gadgets/icons/icons.factor
@@ -6,6 +6,6 @@ IN: ui.gadgets.icons
 TUPLE: icon < gadget ;
 
 : <icon> ( image-name -- icon )
-    icon new swap <image-pen> >>interior ;
+    icon new swap <image-pen> t >>fill? >>interior ;
 
 M: icon pref-dim* dup interior>> pen-pref-dim ;
\ No newline at end of file