steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.gtk: hi-res icon awesomeness

locals-and-roots
Björn Lindqvist 2016-06-17 01:10:21 +02:00
parent d16e4272b2
commit 2c8b2d9bf5
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/deploy/shaker/strip-gtk-icon.factor
View File

@ -8,6 +8,6 @@ CONSTANT: get-icon-data
$[ $[
deploy-vocab get deploy-vocab get
dup vocab-dir "icon.png" append-path vocab-append-path dup vocab-dir "icon.png" append-path vocab-append-path
[ exists? ] keep "resource:misc/icons/Factor_48x48.png" ? [ exists? ] keep "resource:misc/icons/Factor_128x128.png" ?
binary file-contents binary file-contents
] ]

2
basis/ui/backend/gtk/gtk.factor
View File

@ -219,7 +219,7 @@ CONSTANT: action-key-codes
! in the docs and tools.deploy.shaker.gtk-icon ! in the docs and tools.deploy.shaker.gtk-icon
: get-icon-data ( -- byte-array/f ) : get-icon-data ( -- byte-array/f )
[ [
"resource:misc/icons/Factor_48x48.png" binary file-contents "resource:misc/icons/Factor_128x128.png" binary file-contents
] [ drop f ] recover ; ] [ drop f ] recover ;
: load-icon ( -- ) : load-icon ( -- )