SMALLTALK K1ex127-.45ex51275ahler/Bothner

332 15 Programmierung von Suchverfahren
zeichnenICNetz: stift
| varDirekt|
stift defaultNib: 1.
Station allInstances do:
[:eineStation|stift place: eineStation gibKoordinaten.
stift circle:6.
stift centerText: eineStation gibName].
Station allInstances do:
[:eineStation|varDirekt := eineStation bereitstellenDirektverbindung.
(varDirekt isEmpty)
ifFalse: [varDirekt do:
[:einPaar|stift place: eineStation gibKoordinaten.
stift goto: (einPaar at:1) gibKoordinaten]]]
Hinweis: Den im folgenden aufgeführten Messages ist gemeinsam, daß sie ein Empfänger-
Objekt haben, das die Form eines “Stiftes” besitzt.
ˆ “defaultNib:”:
Durch die Ausführung dieser Methode läßt sich für einen “Stift” eine Strichstärke
festlegen.
ˆ “place:”:
Durch diese Methode wird der “Stift” gemäß der aufgeführten Lage-Koordinate
positioniert.
ˆ “circle:”:
Durch die Ausführung dieser Methode wird ein Kreis gezeichnet, dessen Radius als
Argument angegeben ist.
ˆ “centerText:”:
Durch diese Methode wird die Zeichenkette, die als Argument aufgeführt ist, an der
Stelle zentriert geschrieben, die durch die Position des “Stiftes” gekennzeichnet ist.
ˆ “goto:”:
Durch die Ausführung dieser Methode wird eine Linie gezogen. Sie beginnt an der
aktuellen Position des “Stiftes” und reicht bis zu der als Argument angegebenen
Lage-Koordinate.
Desweiteren wird die Methode “zeichnenICBestweg:” eingesetzt, die wie folgt festzulegen
ist:
zeichnenICBestweg: stift
| index stadt1 stadt2 varPfadSammler |
index := 1.
stift defaultNib: 5.
varPfadSammler := Suchverfahren bereitstellenPfadSammler.
(varPfadSammler isEmpty)
ifFalse: [(self paneNamed: ’ic-ueberschrift1’)
contents: ’IC-Verb existiert’.
(self paneNamed: ’ic-ueberschrift2’)
contents: ’Stationen:’.
(varPfadSammler size - 1) timesRepeat: