17 lines
495 B
Factor
17 lines
495 B
Factor
|
USING: dlists ui.gadgets kernel ui namespaces io.streams.string
|
||
|
|
io ;
|
||
|
|
IN: tools.test.ui
|
||
|
|
|
||
|
! We can't print to output-stream 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
|
||
|
|
dip
|
||
|
|
ungraft notify-queued
|
||
|
|
] with-variable
|
||
|
] with-string-writer print ;
|