with-grafted-gadget ( gadget quot -- )

Vocabulary
ui.gadgets.debug

Definition

USING: dlists io io.streams.string kernel namespaces
ui.gadgets.private ;

IN: ui.gadgets.debug

: with-grafted-gadget ( gadget quot -- )
    [
        <dlist> \ graft-queue set <dlist> \ layout-queue set
        over graft notify-queued dip ungraft notify-queued
    ] with-string-writer print ; inline