2007-11-16 01:19:13 -05:00
|
|
|
USING: dlists ui.gadgets kernel ui namespaces io.streams.string
|
2007-11-23 16:24:57 -05:00
|
|
|
io ;
|
2007-11-16 01:19:13 -05:00
|
|
|
IN: tools.test.ui
|
|
|
|
|
|
|
|
|
|
! We can't print to stdio here because that might be a pane
|
|
|
|
|
! stream, and our graft-queue rebinding here would be captured
|
|
|
|
|
! by code adding children to the pane...
|
|
|
|
|
: with-grafted-gadget ( gadget quot -- )
|
|
|
|
|
[
|
|
|
|
|
<dlist> \ graft-queue [
|
|
|
|
|
over
|
|
|
|
|
graft notify-queued
|
|
|
|
|
swap slip
|
|
|
|
|
ungraft notify-queued
|
|
|
|
|
] with-variable
|
|
|
|
|
] string-out print ;
|
