Tk (Toolkit)
aus Wikipedia, der freien Enzyklopädie
Tk ist ein offenes, freies, und plattformübergreifendes Toolkit zur Programmierung von grafischen Benutzeroberflächen (GUIs), das sich gut für „quick and dirty“-Programmierung und für Prototypen eignet, aber auch zur Erstellung von kleinen bis mittleren Programmen für Unix (X), Windows (ab 95) und Macintosh. Das Kit wurde für Tcl (Tool Command Language) entwickelt und ist von dort aus einfach zu benutzen. Da es sich bewährte, wurden für Perl, Python (Tkinter) und Ruby auch Anbindungen entwickelt, weil diesen Programmiersprachen ein grafisches Toolkit fehlt.
Die Geometriemanager (bei Java werden sie Layout-Manager genannt) von Tk sind pack, grid und place. Die Unterschiede der Geometriemanager:
pack: Widgets werden in den "verbleibenden" Raum an der Oberseite, links, rechts oder unten angebracht. An der gegenüberliegenden Seite bleibt Platz für weitere Widgets. Hiermit kann man zunächst nur recht einfache Layouts erstellen, aber über die Verwendung von (geschachtelten) Frames können sie auch komplizierter werden. Besonderer Vorteil vonpack(und auchgrid) ist, dass bei entsprechenden Einstellungen sich das Layout hervorragend an wechselnde Fenstergrößen anpasst.grid: Teilt den Platz in ein Raster aus Zeilen und Spalten ein, ähnlich von Tabellen in einem Tabellenkalkulationsprogramm. Insbesondere Formulare (linke Spalte Feldnamen, rechte Spalte Eingabefelder) lassen sich hiermit schön erstellen.place: Ermöglicht völlig freie Anordnung von Widgets auf der Fläche. Großer Nachteil ist, dass die Anordnung dadurch ortsfest ist und sich nicht an wechselnde Fenstergröße anpassen kann. Die meisten Geometriemanager anderer Programmiersprachen arbeiten aber auch so, z. B. Formulare bei MS Access.
Komplexere Layouts erreicht man durch Verwenden von (geschachtelten) Frames. In jedem Frame darf nur einer der Geometriemanager verwendet werden, innerhalb einer Anwendung können aber durchaus alle drei vorkommen. Das bringt eine ungeahnte Flexibilität.
Dadurch, dass Tcl sehr gut mit Unicode umgehen kann (dies sogar einfach immer ungefragt tut), ist es sehr einfach, auch internationale Zeichen in Tk-Anwendungen sichtbar zu machen. Fremdsprachliche Namen beispielsweise machen also keine Probleme, auch keine kyrillischen, arabischen, griechischen, hebräischen oder fernöstlichen Zeichen – sofern die entsprechenden Zeichensätze vorhanden und korrekt installiert sind.
Ab den Versionen Tcl/Tk 8 wird 'native look and feel' geboten, d. h. bei Macintosh-Applikationen sitzt die Menüzeile immer am oberen Bildschirmrand, bei Windows und Unix dagegen am oberen Rand des jeweiligen Applikationsfensters. Auch andere Widgets sehen jeweils so aus, wie man es auf den verschiedenen Plattformen gewohnt ist.
Tk ist im allgemeinen im Lieferumfang von Tcl/Tk enthalten und ist frei verfügbar. Es gibt reichlich Zusatzsoftware, siehe auch Artikel zu Tcl. Bei den meisten Linux-Distributionen ist es vorhanden, für Windows und Mac kann man es kostenlos aus dem Internet laden, auch als Binärversion, d. h. man braucht es nicht selbst zu kompilieren. Dies ist bei Windows und Mac besonders wichtig, weil viele Anwender dort gar keinen Compiler installiert haben.
[Bearbeiten] Beispiele
Ein minimales Zeichenprogramm nach http://mini.net/tcl/9625 : verwendet wird ein canvas-Widget .c, auf das mit der Maus gezeichnet werden kann. Dazu werden „Bindings“ für die Ereignisse „linker Mausknopf gedrückt“ und „Bewegung mit linkem Mausknopf gedrückt“ vereinbart. Die Prozedur doodle stellt diese Bindungen her:
proc doodle {w {color black}} {
bind $w <1> [list doodle'start %W %x %y $color]
bind $w <B1-Motion> {doodle'move %W %x %y}
}
Bei linkem Mausklick wird ein Linienobjekt (dessen Anfangs- und Endpunkt noch zusammenfallen) angelegt:
proc doodle'start {w x y color} {
set ::_id [$w create line $x $y $x $y -fill $color]
}
Bei Mausbewegung wird das aktuelle Linienobjekt um eine Strecke verlängert:
proc doodle'move {w x y} {
$w coords $::_id [concat [$w coords $::_id] $x $y]
}
Das Hauptprogramm ist gerade einmal drei Zeilen lang:
pack [canvas .c -bg white] -fill both -expand 1
doodle .c
bind .c <Double-3> {%W delete all}
