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

Kapitel 7 – Packen, Rastern, Plazieren von Fenstern 107
option add *Notebook.borderWidth 2 WidgetDefault
option add *Notebook.relief sunken WidgetDefault
Das Kommando pack propagate hilft uns die Größe zu kontrollieren.
Wir übergehen das hier momentan.
Die Information über den Zustand des Notizbuchs legen wir in einen
globalen Vektor nbInfo, dessen Felder die Seitenanzahl, die Liste der
Seiten und den Namen der gegenwärtigen Seite enthalten.
Die Prozedur notebook_create liefert den Namen des gerade
geschaffenen Notizbuchs zurück.
Jetzt schauen wir uns die Prozedur zum Erzeugen von Seiten an. Sie
verlangt den Namen des Notizbuchs und einen Namen für die Seite.
proc notebook_page {win name} {
global nbInfo
set page "$win.page[incr nbInfo($win-count)]"
lappend nbInfo($win-pages) $page
set nbInfo($win-page-$name) $page
frame $page
if {$nbInfo($win-count) == 1} {
after idle [list notebook_display $win $name]
}
return page
}
Zunächst werden neue, eindeutige Namen durch Hochzählen der Seitennummer
in nbInfo generiert. In unserem Notizbuch .nb entstehen so
für die Seitenfenster die Bezeichner .nb.page1, .nb.page2, usw.
Dieser neu generierte Name kommt in die Liste der Namen in nbInfo
und wird in der Variablen page gespeichert. Es wird ein frame dafür
erzeugt und der Name wird zurückgeliefert.
Ist es die erste Seite, wird sie angezeigt, sobald die Anwendung nichts
mehr zu tun hat. Insbesondere sollten dann auch die anderen Seiten generiert
worden sein, so daß deren Größe bekannt ist und damit das Notizbuch
richtig eingestellt werden kann. Das list-Kommando darin
bewirkt die richtige Aufbereitung der Argumente und wird in Abschnitt
3.1.5 [12] besprochen.