Better error message if user forgets with-ui

db4
Slava Pestov 2009-03-25 11:12:10 -05:00
parent cb36d73b15
commit c36ae80c28
1 changed files with 4 additions and 2 deletions

View File

@ -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 ]