diff --git a/basis/ui/gadgets/icons/icons.factor b/basis/ui/gadgets/icons/icons.factor index a7875c042b..5af31df55f 100644 --- a/basis/ui/gadgets/icons/icons.factor +++ b/basis/ui/gadgets/icons/icons.factor @@ -1,14 +1,16 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors kernel ui.gadgets ui.gadgets.labels ui.images -ui.pens ui.pens.image ; +ui.pens ui.pens.image ui.render ; IN: ui.gadgets.icons -TUPLE: icon < gadget ; +TUPLE: icon < gadget image ; : ( image-name -- icon ) - icon new swap t >>fill? >>interior ; + icon new swap t >>fill? >>image ; -M: icon pref-dim* dup interior>> pen-pref-dim ; +M: icon draw-gadget* dup image>> [ draw-interior ] [ drop ] if* ; + +M: icon pref-dim* dup image>> pen-pref-dim ; M: image-name >label ;