<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> ;