basis/tools/deploy/shaker/strip-gtk-icon.factor

   1 ! Copyright (C) 2010 Philipp Brüschweiler
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel tools.deploy.shaker literals namespaces
   4 vocabs.loader io.pathnames io.files io.encodings.binary ;
   5 IN: ui.backend.gtk
   6
   7 CONSTANT: get-icon-data
   8     $[
   9         deploy-vocab get
  10         dup vocab-dir "icon.png" append-path vocab-append-path
  11         [ exists? ] keep "resource:misc/icons/Factor_48x48.png" ?
  12         binary file-contents
  13     ]