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

Kapitel 2 – Grundlagen 21
Return CopyRectangle( Window w, int x1, y1,
int x2, y2, width, height );
/* Der Teil des Fensters, der von (x1, y1) nach rechts die Breite
width, nach unten die Ausdehnung height hat, wird an die Stelle x2,
y2 übermalend kopiert. */
Return DrawLine( Window w, int x1, y1, x2, y2,
int width, ColorIndex idx );
/* Zieht eine Linie in das spezifizierte Window. Die Linie braucht
nicht an der Window-Umrandung abgeschert zu sein. Das Windowkoordinatensystem
hat seinen Origo in der oberen linken Ecke mit
positiver x-Achse nach rechts und positiver y-Achse nach unten
(Einheit: int). */
Return WriteText( Window w, char *info,
int x, y, ColorIndex idx );
/* Schreibt einen Text an die Stelle x, y in ein Fenster, Der Text
sollte ein terminierter String sein. Er wird gegen die Window-
Umrandung geklippt. Koordinaten wie bei DrawLine. */
Return SelectInput( Window w, Modus modi );
/* Bestimmt, welches Fenster ab jetzt welche Eingaben erhalten
bzw. registrieren soll. */
Input NextInput( Window w );
/* Holt eine Input-Aktivität für ein Fenster ab. Geliefert wird nur,
was vorher mit SelectInput() bestellt wurde. */
Wesentliche Definitionen sind weggelassen. Die Anwendung lautet:
Window einFenster;
Input dasEreignis;
Bool nicht_fertig = TRUE;
Return RetCode;
ColorIndex schwarz = 0, weiss = 1;
main()
{
RetCode = SetupWindowDisplay();
einFenster = OpenWindow(100, 100, 400, 400);