Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

236
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
fconfigure $sid -buffering line
frame .rbox
pack .rbox -padx 4 -pady 4
label .rbox.title -text \
"Optionen zum Erwerb eines Scheins:"
pack .rbox.title -side top -anchor w
frame .rbox.border -borderwidth 2 -relief groove
pack .rbox.border -expand yes -fill both
radiobutton .rbox.border.rb1 -text "Mündliche Prüfung" \
-variable current -value "Mündliche Prüfung"
pack .rbox.border.rb1 -side top -anchor w
radiobutton .rbox.border.rb2 -text "Klausur" \
-variable current -value "Klausur"
pack .rbox.border.rb2 -side top -anchor w
radiobutton .rbox.border.rb3 -text "Projektarbeit" \
-variable current -value "Projektarbeit"
pack .rbox.border.rb3 -side top -anchor w
frame .rbox.anmelder
pack .rbox.anmelder -padx 4 -pady 4
label .rbox.anmelder.label -text "Name:"
pack .rbox.anmelder.label -side left
entry .rbox.anmelder.student -relief sunken -bd 2
pack .rbox.anmelder.student -side left -anchor w \
-expand yes -fill x
frame .rbox.buttons -borderwidth 2 -relief groove
pack .rbox.buttons -expand yes -fill both
button .rbox.buttons.send -text "Send" -command {
puts $sid "[.rbox.anmelder.student get] $current"
}
pack .rbox.buttons.send -side left -padx 20 -pady 20
button .rbox.buttons.quit -text "Quit" -command {
catch {close $sid}
exit