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

230
}
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
frame $win -class Radiobox
if {$title != ""} {
label $win.title -text $title
pack $win.title -side top -anchor w
}
frame $win.border -borderwidth 2 -relief groove
pack $win.border -expand yes -fill both
bind $win "radiobox_destroy $win"
return $win
Die beachtenswerten Punkte sind:
• Der Prozedurname genügt den Konventionen, wonach das zu
erzeugende Widget, hier radiobox, zuerst genannt wird, dann
zum Anlegen das create-Suffix.
• Die Prozedur legt eine Hülle an (frame), die die Widgetkreation
umfaßt. Ihr Name wird nicht festverdrahtet, sondern als Argument
übergeben, somit kann einmal eine Radiobox mit
radiobox_create .installieren
und ein andermal eine andere Box mit
radiobox_create .deinstallieren
erzeugt werden.
• Die Prozedur setzt die Klasse auf Radiobox (großes R). Somit
können Vorbesetzungen in der Optionendatenbasis abgelegt werden,
etwa
option add *Radiobox.selectColor \
ForestGreen startupFile
wobei diese Einstellung nur die Radioboxes betrifft, nicht alle
Radiobuttons der Anwendung!
• Die Prozedur führt kein pack-Kommando aus, packt aber die
Widgetkomponenten im Inneren. Damit kann der Aufrufer entscheiden,
wie und mit welchem Geometriemanager, etwa durch
radiobox_create .flavors
pack .flavors -padx 4 -pady 4
er die erzeugte Hülle plazieren will.