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

Kapitel 9 – Der Gebrauch der Leinwand 193
Dann werden die kleineren Widgets in den Formularrahmen eingefügt,
wozu auch Trennlinien (Feld „-“)gehören. Das Füllen beginnt mit der
Ermittlung des Rahmennamens.
set form [scrollform_interior .sform]
Danach kommt die Schleife, wobei Widgetnamen, hier line1, line2,
usw., automatisch erzeugt werden müssen. Diese werden intern dann
durch das Präfix $form, z. B. zu .sform.vport.form.line17,
erweitert und können noch weitere Verlängerungen für die Marke und das
Eintragefeld (label bzw. entry) erhalten.
set counter 0
foreach field {
"Name:" "Address:" "City, State:"
"Phone:" "FAX:" "E-mail:"
"-"
"SSN:" "Birthdate:" "Marital Status:"
"-"
"Employer:" "Occupation:" "Annual Income:"
"-"
"Emergency Contact:" "Phone:"
} {
set line "$form.line[incr counter]"
if {$field == "-"} {
frame $line -height 2 -borderwidth 1 -relief sunken
pack $line -fill x -padx 4 -pady 4
} else {
frame $line
label $line.label -text $field -width 20 -anchor e
pack $line.label -side left
entry $line.info
pack $line.info -fill x
pack $line -side top -fill x
}
}
Ist der Rahmen komplett, wird sich der Formularrahmen dicht darumlegen
und seine Größenveränderung wird den -Event auslösen,
der scrollform_resize aufruft. Das passiert auch, falls wir
später weitere Zeilen in das Formular einfügen.