<bad-button> ( -- button )

Vocabulary
ui.gadgets.debug

Definition

USING: kernel ui.gadgets.buttons ;

IN: ui.gadgets.debug

: <bad-button> ( -- button )
    "Click me if you dare" [ "Haha" throw ] <border-button> ;