TCL Stand 20.8.2003: Aktuell TCL/TK 8.4.4.0 activestate.com + HTML-Baum


wish starten, öffnet Urfenster mit Namen "." und title wish

wm title . <Fenstername>

wm geometry . 640x480
wm geometry . 1024x768+0-0

wm maxsize .

Standardwidgets:

button
entry
label
text
canvas
scrollbar
listbox
frame
menue
menubutton
radiobutton
checkbutton
scale

Beispiel:

Textfenster autoexpand x und y:
text .t
pack .t -fill both

Knopf dazu:
button .b -text "press me" -command {.t insert end "Aua"}
pack .b

Eingabezeile mit ganzer Breite:
entry .e -textvariable der_input
pack .e -fill x

Widget umkonfigurieren:
.b configure -command {.t insert end "You entered $der_input\n"}

Binding an Eingabefeld:
bind .e <Return> {.t insert end "please eval $der_input"}

Ausgabe bunt:
bind .e <Return> {.t insert end "please eval $der_input" inrot}
.t tag configure inrot -foreground red
.t tag configure inrot -font {Times 12}

Menue für Fenster .
. configure -menu .ma
menu .ma

.ma add cascade -label File -menu .ma.f
 menu .ma.f
.ma.f add command -label Save -command {puts [tk_getSaveFile]}

.ma add cascade -label huhu -menu .ma.m
menu .ma.m -tearoff 0
.ma.m add command -label Open -command bell
.ma.m add separator
.ma.m add command -label Color -command {puts [tk_chooseColor]}


Anzeige aller Variablen:
info vars

Anzeige von Proceduren/Kommandos:
info procs/commands na*

Info über System:
parray tcl_platform




mehr unter Iwidgets:
package require Iwidgets
Proc in Namensraum: iwidgets::xxx

Dialogboxen:

tk_messageBox
tk_chooseColor
tk_getOpenFile
tk_getSaveFile


Demos (im Moment mit 8.3.5)
wish /usr/share/tk8.3/demos/widget