SMALLTALK K1ex127-.45ex51275ahler/Bothner

15.2 Bestwegsuche und grafische Anzeige von Verbindungen 331
anzeigenStationen
| namenListe |
namenListe := Suchverfahren bereitstellenPfadSammler reversed.
(self paneNamed:’ic-zwischenstationen’) contents: namenListe
Erfolgt auf eine der im Listenfeld angezeigten Stationen ein Mausklick, so soll –
ausgehend vom Abfahrtsort – die Entfernung zu der betreffenden Station angezeigt
werden. Dies läßt sich durch die Ausführung der folgenden Methode erreichen:
anzeigenEntfernung: aListPane
| station |
station := (self paneNamed:’ic-zwischenstationen’) selectedItem.
(self paneNamed:’ic-entfernung’) contents:
(’Entfernung: ’,
( (Suchverfahren bereitstellenPfadDic at:station) at:2 )
printString)
Um das IC-Netz und die jeweils ermittelte kürzeste Verbindung als Grafik – in dem
Grafikfeld – anzuzeigen, setzen wir die folgende Methode ein:
zeichnenICGrafiken
| blei |
blei := (self paneNamed: ’ic-netz’) pen.
blei erase.
blei drawRetainPicture: [self zeichnenICNetz: blei.
self zeichnenICBestweg: blei]
Hinweis:
ˆ “pen”:
Durch die Ausführung dieser Methode ordnen wir dem Empfänger-Objekt – in unserer
Situation einer Instanz der Klasse “GraphPane” – ein Objekt der Form “Stift”
zu, mit dem wir sowohl schreiben als auch zeichnen können.
ˆ “erase”:
Durch den Einsatz dieser Methode wird die jeweilige grafische Anzeige “ausradiert”,
die dem Empfänger-Objekt zugeordnet ist.
ˆ “drawRetainPicture:”:
Durch die Ausführung dieser Message wird es möglich, einer grafischen Anzeige weitere
Grafiken hinzuzufügen. Dabei können die angezeigten Grafiken z.B. innerhalb
des Fenster-Bausteins “GraphPane” mit dem Rollbalken verschoben werden.
Innerhalb der Methode “zeichnenICGrafiken” wird die Methode “zeichnenICNetz:”
zur Ausführung gebracht, die in der folgenden Form zu vereinbaren ist: