basis/tools/test/ui/ui.factor

   1 USING: dlists ui.gadgets kernel ui namespaces io.streams.string
   2 io ;
   3 IN: tools.test.ui
   4
   5 ! We can't print to output-stream here because that might be a pane
   6 ! stream, and our graft-queue rebinding here would be captured
   7 ! by code adding children to the pane...
   8 : with-grafted-gadget ( gadget quot -- )
   9     [
  10         <dlist> \ graft-queue [
  11             over
  12             graft notify-queued
  13             dip
  14             ungraft notify-queued
  15         ] with-variable
  16     ] with-string-writer print ;