14 lines
452 B
Factor
14 lines
452 B
Factor
! 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 ;
|
|
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_48x48.png" ?
|
|
binary file-contents
|
|
]
|