19 lines
535 B
Factor
19 lines
535 B
Factor
! Copyright (C) 2008 Matthew Willis.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: prettyprint sequences ui.gadgets.panes
|
|
pango.cairo.gadgets math kernel cairo cairo.ffi
|
|
pango.cairo pango.gadgets tools.time namespaces assocs
|
|
threads io.backend io.encodings.utf8 io.files ;
|
|
|
|
IN: pango.cairo.samples
|
|
|
|
: hello-pango ( -- )
|
|
"monospace 10" "resource:extra/pango/cairo/gadgets/gadgets.factor"
|
|
normalize-path utf8 file-contents
|
|
<pango> gadget. ;
|
|
|
|
: time-pango ( -- )
|
|
[ hello-pango ] time ;
|
|
|
|
MAIN: time-pango
|