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

Fix hang when running ui tests

db4
Slava Pestov 2009-03-25 22:54:31 -05:00
parent ff07c8f352
commit 6984c143e9
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -135,9 +135,7 @@ SYMBOL: ui-notify-flag
: forget-pref-dim ( gadget -- ) f >>pref-dim drop ; : forget-pref-dim ( gadget -- ) f >>pref-dim drop ;
: ui-state ( symbol -- value ) get [ "UI not running" throw ] unless* ; : layout-queue ( -- queue ) \ layout-queue get ;
: 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
@ -216,7 +214,8 @@ M: gadget ungraft* drop ;
<PRIVATE <PRIVATE
: graft-queue ( -- dlist ) \ graft-queue ui-state ; : graft-queue ( -- dlist )
\ graft-queue get [ "UI not running" throw ] unless* ;
: unqueue-graft ( gadget -- ) : unqueue-graft ( gadget -- )
[ graft-node>> graft-queue delete-node ] [ graft-node>> graft-queue delete-node ]