Merge branch 'master' of git://factorcode.org/git/factor
commit
f2a4750c3b
|
@ -135,7 +135,9 @@ SYMBOL: ui-notify-flag
|
|||
|
||||
: 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 -- )
|
||||
#! When unit testing gadgets without the UI running, the
|
||||
|
@ -214,7 +216,7 @@ M: gadget ungraft* drop ;
|
|||
|
||||
<PRIVATE
|
||||
|
||||
: graft-queue ( -- dlist ) \ graft-queue get ;
|
||||
: graft-queue ( -- dlist ) \ graft-queue ui-state ;
|
||||
|
||||
: unqueue-graft ( gadget -- )
|
||||
[ graft-node>> graft-queue delete-node ]
|
||||
|
|
|
@ -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 }
|
||||
}
|
|
@ -15,6 +15,6 @@ IN: hello-unicode
|
|||
] with-style
|
||||
] make-pane { 10 10 } <border> ;
|
||||
|
||||
: hello-unicode ( -- ) <hello-gadget> "გამარჯობა" open-window ;
|
||||
: hello-unicode ( -- ) [ <hello-gadget> "გამარჯობა" open-window ] with-ui ;
|
||||
|
||||
MAIN: hello-unicode
|
Loading…
Reference in New Issue