Add ui.gadgets.icons

basis/ui/gadgets/icons/authors.txt

@@ -0,0 +1 @@
+Slava Pestov

basis/ui/gadgets/icons/icons.factor

@@ -0,0 +1,12 @@
+! Copyright (C) 2009 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
+USING: kernel accessors ui.images ui.render ui.gadgets ;
+IN: ui.gadgets.icons
+
+TUPLE: icon < gadget image ;
+
+: <icon> ( image-name -- icon ) icon new swap >>image ;
+
+M: icon draw-gadget* image>> draw-image ;
+
+M: icon pref-dim* image>> image-dim ;