ui.backend.gtk: use a global variable to store the icon data

[factor.git] / basis / tools / deploy / shaker / strip-gtk-icon.factor

diff --git a/basis/tools/deploy/shaker/strip-gtk-icon.factor b/basis/tools/deploy/shaker/strip-gtk-icon.factor
index e444d9a390c4d8793f6d7cb7c32fc1f1691c3491..23c9b32a5a45ca3910d2e4267618260e7eb14b30 100644 (file)
--- a/basis/tools/deploy/shaker/strip-gtk-icon.factor
+++ b/basis/tools/deploy/shaker/strip-gtk-icon.factor
@@ -1,13 +1,6 @@
 ! Copyright (C) 2010 Philipp Brüschweiler
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel tools.deploy.shaker literals namespaces
-vocabs.loader io.pathnames io.files io.encodings.binary ;
+USING: namespaces tools.deploy.shaker ;
 IN: ui.backend.gtk
 
-CONSTANT: get-icon-data
-    $[
-        deploy-vocab get
-        dup vocab-dir "icon.png" append-path vocab-append-path
-        [ exists? ] keep "resource:misc/icons/Factor_128x128.png" ?
-        binary file-contents
-    ]
+deploy-vocab get vocab-icon-data icon-data set-global