# $XConsortium: buttons,v 1.3 94/04/01 16:33:15 matt Exp $
# This dish script draws a simple push button

proc push_me {message} {
    puts $message
    flush stdout
}

set button [
    widget_kit push_button [
    	figure_kit label [figure_kit default_style] "Push me"] [
    	action push_me "pushed"
    ]
]
main button [layout_kit margin [debug button "button"] 10.0]