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

image-name instances can now be passed to <button> etc

db4
Slava Pestov 2009-04-10 08:13:20 -05:00
parent a0ad6bda39
commit 8480034d6e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/icons/icons.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors ui.images ui.pens USING: kernel accessors ui.images ui.pens
ui.pens.image ui.gadgets ; ui.pens.image ui.gadgets ui.gadgets.labels ;
IN: ui.gadgets.icons IN: ui.gadgets.icons
TUPLE: icon < gadget ; TUPLE: icon < gadget ;
@ -10,3 +10,5 @@ TUPLE: icon < gadget ;
icon new swap <image-pen> t >>fill? >>interior ; icon new swap <image-pen> t >>fill? >>interior ;
M: icon pref-dim* dup interior>> pen-pref-dim ; M: icon pref-dim* dup interior>> pen-pref-dim ;
M: image-name >label <icon> ;