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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-03-25 11:15:41 -05:00
parent 1cc0b8f322 c36ae80c28
commit f2a4750c3b
3 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/gadgets/gadgets.factor
View File

@ -135,7 +135,9 @@ SYMBOL: ui-notify-flag
: forget-pref-dim ( gadget -- ) f >>pref-dim drop ; : forget-pref-dim ( gadget -- ) f >>pref-dim drop ;
: layout-queue ( -- queue ) \ layout-queue get ; : ui-state ( symbol -- value ) get [ "UI not running" throw ] unless* ;
: layout-queue ( -- queue ) \ layout-queue ui-state ;
: layout-later ( gadget -- ) : layout-later ( gadget -- )
#! When unit testing gadgets without the UI running, the #! When unit testing gadgets without the UI running, the
@ -214,7 +216,7 @@ M: gadget ungraft* drop ;
<PRIVATE <PRIVATE
: graft-queue ( -- dlist ) \ graft-queue get ; : graft-queue ( -- dlist ) \ graft-queue ui-state ;
: unqueue-graft ( gadget -- ) : unqueue-graft ( gadget -- )
[ graft-node>> graft-queue delete-node ] [ graft-node>> graft-queue delete-node ]

15
extra/hello-unicode/deploy.factor Normal file
View File

@ -0,0 +1,15 @@
USING: tools.deploy.config ;
H{
{ deploy-word-defs? f }
{ deploy-reflection 1 }
{ deploy-word-props? f }
{ deploy-compiler? t }
{ deploy-threads? t }
{ deploy-unicode? f }
{ "stop-after-last-window?" t }
{ deploy-name "hello-unicode" }
{ deploy-math? t }
{ deploy-ui? t }
{ deploy-io 2 }
{ deploy-c-types? f }
}

2
extra/hello-unicode/hello-unicode.factor
View File

@ -15,6 +15,6 @@ IN: hello-unicode
] with-style ] with-style
] make-pane { 10 10 } <border> ; ] make-pane { 10 10 } <border> ;
: hello-unicode ( -- ) <hello-gadget> "გამარჯობა" open-window ; : hello-unicode ( -- ) [ <hello-gadget> "გამარჯობა" open-window ] with-ui ;
MAIN: hello-unicode MAIN: hello-unicode