SMALLTALK K1ex127-.45ex51275ahler/Bothner

14.2 Einsatz von Datenströmen 297
14.2.4 Weiterer Einsatz von Datenströmen
Anzeige von Objekten
Wie zuvor erwähnt, besteht die Möglichkeit, Datenströme nicht nur zur Sicherung
von Daten in einer Datei, sondern auch – für besondere Anwendungen – zur temporären
Sicherung zu verwenden.
Von dieser Möglichkeit wird z.B. systemseitig Gebrauch gemacht, wenn ein Ergebnis-
Objekt einer Anforderung unter Einsatz der Menü-Option “Show It” des Menüs
“Smalltalk” zur Anzeige gebracht werden soll.
In dieser Situation wird vom SMALLTALK-System automatisch die Methode “print-
String” ausgeführt, die folgendermaßen innerhalb der Klasse “Object” vereinbart
ist:
printString
|aStream aString|
RecursiveSet := Set new.
aString := String new: 20.
self printOn: (aStream := WriteStream on: aString).
∧ aStream contents
Hierbei wird auf die ebenfalls in der Klasse “Object” vereinbarte Methode “print-
On:” zurückgegriffen, die wie folgt festgelegt ist:
printOn: aStream
|aString|
aString := self class name.
(aString at: 1) isVowel
ifTrue: [aStream nextPutAll: ’an ’]
ifFalse: [aStream nextPutAll: ’a ’].
aStream nextPutAll: aString
Hinweis: Die innerhalb der Methode “printOn:” eingesetzten Messages “name” bzw.
“isVowel” dienen dazu, den Klassennamen des Empfänger-Objekts als Zeichenkette zu
ermitteln bzw. zu prüfen, ob es sich bei einem Zeichen um einen Vokal handelt.
Wollen wir z.B. eine aussagefähigere Darstellung als “an InWerteErfassung” erhalten,
wenn wir uns Objekte anzeigen lassen, die als Instanziierungen einer Unterklasse
von “WerteErfassung” eingerichtet wurden, so sollten wir innerhalb der Klasse
“WerteErfassung” die Methode “printOn:” z.B. in der folgenden Form redefinieren:
printOn: aStream
aStream nextPutAll: self class name.
aStream nextPutAll: ’ Inhalt von werteBag: ’.
self bereitstellenWerte do:
[:einObjekt|aStream nextPutAll: einObjekt,’ ’]