Tk

label .toplabel -text "Pick one"
button .helloButton -text "Hello" -command {puts "Hello"}
button .exitButton -text "Exit" -command exit
pack .toplabel -side top -padx 5 -pady 5
pack .helloButton -side left -padx 10 -pady 5
pack .exitButton -side right -padx 10 -pady 5

• Features
• Perl/Tk

Next

X Window Managers and Perl

Prev