with-grafted-gadget ( gadget quot -- )

Vocabulary

ui.gadgets.debug

Inputs

gadget	an object
quot	an object

Outputs

None

Definition

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

IN: ui.gadgets.debug

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