From 8480034d6e9179ed1096e61219110a3210f4a44f Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 10 Apr 2009 08:13:20 -0500
Subject: [PATCH] image-name instances can now be passed to <button> etc

---
 basis/ui/gadgets/icons/icons.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/ui/gadgets/icons/icons.factor b/basis/ui/gadgets/icons/icons.factor
index ddadb6b99e..123f7a540d 100644
--- a/basis/ui/gadgets/icons/icons.factor
+++ b/basis/ui/gadgets/icons/icons.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel accessors ui.images ui.pens
-ui.pens.image ui.gadgets ;
+ui.pens.image ui.gadgets ui.gadgets.labels ;
 IN: ui.gadgets.icons
 
 TUPLE: icon < gadget ;
@@ -9,4 +9,6 @@ TUPLE: icon < gadget ;
 : <icon> ( image-name -- icon )
     icon new swap <image-pen> t >>fill? >>interior ;
 
-M: icon pref-dim* dup interior>> pen-pref-dim ;
\ No newline at end of file
+M: icon pref-dim* dup interior>> pen-pref-dim ;
+
+M: image-name >label <icon> ;
\ No newline at end of file