Paste: deploy crash

Author: blei
Mode: factor
Date: Mon, 26 Jul 2010 18:14:32
Plain Text | 
IN: ui.backend.gtk

[..]

! This word gets replaced when deploying. See 'Vocabulary icons'
! in the docs and tools.deploy.shaker.gtk-icon
: get-icon-data ( -- byte-array )
    "vocab:ui/backend/gtk/icon.png" binary file-contents ;

============

in file tools.deploy.shaker.gtk-icon :

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 "vocab:ui/backend/gtk/icon.png" ?
        binary file-contents
    ]

New Annotation

Summary:
Author:
Mode:
Body: