ADMIN Magazin Gestapelt - Schneller und sicherer mit RAID (Vorschau)

Tclkit
Name
twapi
tablelist
BWidget
cwind
winico
snack
expect
Tabelle 1: Hilfreiche Packages
Funktion
Zugriffsfunktionen für Windows-API
Mehrspaltiges Tabellen-Widget mit vielfältigen Sonderfunktionen
Kombinierte Widgets
Simulation von Tastatur und Mauseingaben unter Windows
Anzeige von Icons in der Windows-Taskbar
Sound-Funktionen
Automatisierung von komplexeren Komandozeilen-Programmen, zum Beispiel
Zugänge mit Einmalpassworten
Abbildung 1:
Die Ausgabe des
Skripts »Hello.tcl«.
meiden, werden das Programm »tclkit.
exe« und die Datei »sdx.kit« in das gleiche
Verzeichnis wie das Skript »hello.tcl«
kopiert. Der Aufruf
tclkitsh sdx.kit qwrap hello.tcl U
‐runtime tclkit.exe
Nachdem das Skript erfolgreich getestet
ist, kann nun ein eigenständiges Programm
daraus erstellt werden. Dazu ist
wieder die Shell bezieungsweise Eingabeaufforderung
notwendig. Der Aufruf ist
unter Windows und Linux grundsätzlich
gleich. Unter Windows ist allerdings »tclkitsh«
zu verwenden. Im folgenden sollen
die Programmaufrufe unter Windows als
Beispiele dienen, weil der Programmierer
hier zwischen Text- und GUI-Modus unterscheiden
muss. Verwendet er dagegen
Linux, heißt es immer nur »tclkit«. Um
die Eingabe langer Pfadnamen zu vertcl«
ein Fenster mit dem Button „Hello
World“ an, das nach dem Klick auf den
Button beendet wird (Abbildung 1). Unter
Windows lässt sich diese Datei mit
einem Doppelklick starten.
GUIs mit Tk
Die ersten drei Zeilen des Programmcodes
werden nur unter Linux benötigt,
damit die Datei direkt ausgeführt werden
kann. Die Zeile
package require Tk
lädt die grafische Komponente Tk. Dies
ist beim Starten des Skripts mit der Tcl-
Laufzeitumgebung nicht nötig, wird allerdings
für die korrekte Ausführung mit
dem tclkit benötigt. Die Zeile 6 erzeugt
den „Hello World“-Button, die Zeile 7
zeigt den Button am Bildschirm an.
Das Skript »hello.tcl« lässt sich auch direkt
mit dem tclkit ausführen. Dazu gibt
man in einer Shell (oder im Cmd-Fenster)
im Verzeichnis des Skripts
tclkit hello.tcl
ein. Es öffnet sich wieder ein Fenster mit
dem Button „Hello World“.
Das erste Starpack
erzeugt die Datei »hello«, die nach dem
Umbenennen in »hello.exe« startbar ist.
Um jetzt unter Windows ein Programm
für Linux zu erzeugen, muss nur das Tclkit
für Linux (»tclkit‐8.5.9‐linux‐ix86«) in
das gleiche Verzeichnis kopiert werden.
Durch den Aufruf von
tclkitsh sdx.kit qwrap hello.tcl U
‐runtime tclkit‐8.5.9‐linux‐ix86
entsteht die Datei »hello«, die jetzt ein
ausführbares Programm für Linux ist.
Analog ist dies auch unter Linux für Windows
möglich. So lassen sich Programme
für verschiedene Rechner Plattformen
aus einem Quelltext erzeugen, da nur das
entsprechende Tclkit der Ziel-Plattform
mit dem Parameter »‐runtime« bei der
Erzeugung anzugeben ist. Es gilt aber zu
beachten, dass es die Verwendung plattformspezifischer
Packages ( zum Beispiel
»twapi« oder »registry« für Windows) unmöglich
machen kann, das Programm zu
portieren.
E
Listing 1: Ein Editor
01 #!/bin/sh
02 ##\
03 exec wish "$0" "$@"
04
05 package require BWidget
06 package require Tk
07
08 proc openfile {} {
09 global hw
10 set filename [tk_getOpenFile]
11 # Abbruch liefert einen leeren String zurück
12 if {[string bytelength $filename] != 0} {
13 set fp [open $filename r]
14 $hw.sw.t delete 1.0 end
15 $hw.sw.t insert end [read $fp]
16 close $fp
17 }
18 }
19
20 proc savefile {} {
21 global hw
22 set filename [tk_getSaveFile]
23 # Abbruch liefert einen leeren String zurück
24 if {[string bytelength $filename] != 0} {
25 set fp [open $filename w]
26 puts $fp [$hw.sw.t get 1.0 end]
27 close $fp
28 }
29 }
30
31 # Erzeuge Haupt Frame
32 MainFrame .mf
33 pack .mf ‐fill both ‐expand yes
34
35 # Erzeuge Toolbar
36 set tb [.mf addtoolbar]
37 set bbox [ButtonBox $tb.bbox ‐spacing 0 ‐padx
1 ‐pady 1]
38 $bbox add ‐command openfile \
39 ‐highlightthickness 0 ‐image [Bitmap::get
openfold] ‐takefocus 0 ‐relief link \
40 ‐borderwidth 1 ‐padx 1 ‐pady 1 \
41 ‐helptext "Öffnen"
42 $bbox add ‐command savefile \
43 ‐highlightthickness 0 ‐image [Bitmap::get
save] ‐takefocus 0 ‐relief link \
44 ‐borderwidth 1 ‐padx 1 ‐pady 1 \
45 ‐helptext "Speichern"
46
47 # Anzeigen der Toolbar
48 pack $bbox ‐side left ‐anchor w
49
50 # Fensterbereich ermitteln
51 set hw [.mf getframe]
52
53 # Textbereich mit Scrollbars
54 ScrolledWindow $hw.sw
55 text $hw.sw.t
56 $hw.sw setwidget $hw.sw.t
57
58 # Textbereich anzeigen
59 pack $hw.sw ‐fill both ‐expand yes
60
61 # Ctrl‐o und Ctrl‐s den Funktionen Öffnen und
Schließen zuordnen
62 bind . openfile
63 bind . savefile
www.admin-magazin.de
Admin
Ausgabe 06-2012
119