<bad-button> ( -- button )

Vocabulary

ui.gadgets.debug

Inputs

None

Outputs

button

an object

Definition

USING: kernel ui.gadgets.buttons ;

IN: ui.gadgets.debug

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