Add ui.gadgets.icons

diff --git a/basis/ui/gadgets/icons/authors.txt b/basis/ui/gadgets/icons/authors.txt
new file mode 100644 (file)
index 0000000..d4f5d6b
--- /dev/null
+++ b/basis/ui/gadgets/icons/authors.txt
@@ -0,0 +1 @@
+Slava Pestov
\ No newline at end of file

diff --git a/basis/ui/gadgets/icons/icons.factor b/basis/ui/gadgets/icons/icons.factor
new file mode 100644 (file)
index 0000000..8f9baca
--- /dev/null
+++ b/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 ;
\ No newline at end of file