SMALLTALK K1ex127-.45ex51275ahler/Bothner

304 15 Programmierung von Suchverfahren
Mue := Station new eintragenName: ’München’.
Ful := Station new eintragenName: ’Fulda’.
Ber := Station new eintragenName: ’Berlin’.
Dre := Station new eintragenName: ’Dresden’.
Ham eintragenDirektverbindung: Koe.
Ham eintragenDirektverbindung: Ful.
Ham eintragenDirektverbindung: Ber.
Koe eintragenDirektverbindung: Kar.
Koe eintragenDirektverbindung: Mai.
Kar eintragenDirektverbindung: Stu.
Mai eintragenDirektverbindung: Fra.
Fra eintragenDirektverbindung: Stu.
Fra eintragenDirektverbindung: Mue.
Ful eintragenDirektverbindung: Mue.
Ber eintragenDirektverbindung: Dre
Dabei setzen wir die Instanz-Methoden “eintragenName:” und “eintragenDirektverbindung:”
ein, die wir ebenfalls in der Klasse “Station” durch
eintragenName: einName
direktVerbindung := OrderedCollection new.
name := einName
bzw. durch
eintragenDirektverbindung: einObjekt
direktVerbindung add: einObjekt
festlegen.
Um für eine Instanz der Klasse “Station” – z.B. beim Einsatz der Methode “inspect”
– eine aussagefähigere Anzeige als “OrderedCollection(a Station)” zu erhalten, redefinieren
wir in der Klasse “Station” die Basis-Methode “printOn:” in der folgenden
Form:
printOn: aStream
aStream nextPutAll: name
Für den Zugriff auf die einer Station zugeordneten Direktverbindungen legen wir
die Instanz-Methode “bereitstellenDirektverbindung” zusätzlich wie folgt fest:
bereitstellenDirektverbindung
∧ direktVerbindung
Insgesamt haben wir somit die folgende Situation: