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

Kapitel 7 – Packen, Rastern, Plazieren von Fenstern 105
Der Aufbau einer ähnlichen Anwendung gestaltet sich wie folgt
(f218.tcl). Zuerst schaffen wir das Notebook.
notebook_create .nb
pack .nb -side bottom -expand yes -fill both -padx 4 \
-pady 4
Damit ist das Notizbuch grundsätzlich angelegt. Seiten werden mit einer
anderen Prozedur hinzugefügt, wobei die Seite zunächst ein leerer Frame
ist, den man später füllt.
set p1 [notebook_page .nb "Page #1"]
Ein möglicher Inhalt wäre etwa
label $p1.icon -bitmap info
pack $p1.icon -side left -padx 8 -pady 8
label $p1.mesg -text "Ein Text\nauf\nSeite 1"
pack $p1.mesg -side left -expand yes -pady 8
Eine zweite Seite sieht vielleicht wie folgt aus:
set p2 [notebook_page .nb "Page #2"]
label $p2.mesg -text "Ein anderer Text auf Seite 2"
pack $p2.mesg -side left -expand yes -pady 8 -padx 8
Diese Seiten haben symbolische Namen erhalten, unter denen wir sie später
aufrufen können, z. B. mit
notebook_display .nb "Page #1"
bzw. mit
notebook_display .nb "Page #2"
Diese beiden Kommandos stecken wir in die Radiobox, deren Entwicklung
in [12] im Kapitel 8.2.1 beschrieben wird.
radiobox_create .controls
pack .controls -side top -fill x -padx 4 -pady 4
radiobox_add .controls "Anzeigen Seite 1" \
{notebook_display .nb "Page #1"}
radiobox_add .controls "oder die 2. Seite" \
{notebook_display .nb "Page #2"}