Better error message if user forgets with-ui
parent
cb36d73b15
commit
c36ae80c28
|
@ -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 ]
|
||||
|
|
Loading…
Reference in New Issue