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

108
Programmierung graphischer Benutzerschnittstellen mit Tcl/Tk
Jetzt kommt das eigentliche Anzeigen der Seite. 1
proc notebook_display {win name} {
global nbInfo
}
set page ""
if {[info exists nbInfo($win-page-$name)]} {
set page $nbInfo($win-page-$name)
} elseif {[winfo exists $win.page$name]} {
set page $win.page$name
}
if {$page == ""} {
error "bad notebook page \"$name\""
}
notebook_fix_size $win
if {$nbInfo($win-current) != ""} {
pack forget $nbInfo($win-current)
}
pack $page -expand yes -fill both
set nbInfo($win-current) $page
Die Argumente sind der Name des Notizbuchs und der Name der Seite,
die angezeigt werden soll. Wenn der Seitenname ein symbolischer
Bezeichner ist, finden wir den Seitennamen im Slot nbInfo($winpage-$name),
den wir vorher erzeugt haben. Wir benutzen info
exists um herauszubekommen, ob ein solcher Eintrag existiert. Wir
lassen auch einfache Ziffern als Seitennamen zu, also z. B. 0, 1, 2, usw. In
diesem Fall finden wir den Namen mit der 2. Alternative (elseif).
Danach zeigen wir diese Seite an, wobei zuerst die gegenwärtige verschwinden
muß (pack forget).
Zuletzt müssen wir uns um die Größen des Notizbuchs kümmern. Die
Seiten werden in der Regel unterschiedlich groß sein. Bei jedem Seiten-
1. Die folgenden Prozeduren sind nicht in der Datei f218.tcl enthalten. Sie wurden
durch Einbinden des Paketes Efftcl durch das Kommando package require
Efftcl verfügbar gemacht. Dies gilt ebenfalls für die Prozeduren zum Umgang
mit den Radioboxen.