SMALLTALK K1ex127-.45ex51275ahler/Bothner

294 14 Langfristige Sicherung von Objekten
schreibenDatei: aString sichernBag: aBag
|ausgabeDatei|
ausgabeDatei := File pathName: aString.
aBag do: [:einObjekt|ausgabeDatei space; nextPutAll:einObjekt].
ausgabeDatei close
Diese Methode ist innerhalb der von uns im Abschnitt 13.3 eingerichteten Klasse
“AnforderungenView” zu vereinbaren. Ferner ist die innerhalb dieser Klasse festgelegte
Methode “ende:” wie folgt abzuändern:
ende: aTopPane
self close.
self schreibenDatei:(Prompter prompt:’Gib Dateiname:’ default:’’)
sichernBag:
( (Smalltalk at: ((Skalenniveau,’WerteErfassung’,Jahrgang)
asSymbol))
bereitstellenDateiwerte )
Hinweis: Als Ergebnis-Objekt von “(Prompter prompt: ’Gib Dateiname:’ default:”)”
resultiert derjenige Name, der in das Eingabefeld eines zuvor angezeigten Dialogfeldes als
gewünschter Dateiname eingetragen wurde.
Damit in dieser Form auf die bereits erfaßten Werte zugegriffen werden kann, ist die
Methode “bereitstellenDateiwerte” zusätzlich wie folgt innerhalb der Klasse “WerteErfassungView”
festzulegen:
bereitstellenDateiwerte
∧ daten bereitstellenWerte
Wird nach dieser Ergänzung die Lösung von PROB-9 in Form eines Laufzeit-
Systems erstellt und – ohne Entwicklungs-System – zur Ausführung gebracht, so
ist die Sicherung der erfaßten Punktwerte durch die Speicherung in einer Datei
gewährleistet.
Dies gibt uns die Möglichkeit, nach einem erneuten Start des Laufzeit-Systems auf
die gesicherten Punktwerte zuzugreifen, so daß auch die Fortsetzung einer Erfassung
durchführbar ist.
Um die Lösung von PROB-9 ergänzen zu können, stellen wir im folgenden Abschnitt
eine Methode vor, mit der der Zugriff auf den Inhalt der zuvor eingerichteten Datei
ermöglicht wird.
Hinweis: Es lassen sich nicht nur die Punktwerte selbst, sondern auch Messages sichern,
durch deren Ausführung eine ursprünglich vorhandene Instanz – samt der in ihr zuvor
gesammelten Punktwerte – automatisch wiederhergestellt werden kann. Damit diese Rekonstruktion
möglich ist, muß allerdings das Entwicklungs-System zur Verfügung stehen.
Derartige Messages werden in Form von Zeichenketten erhalten, die sich als Ergebnis-
Objekt der Message “storeString” ergeben. Dabei ist als Empfänger-Objekt jeweils dasjenige
Objekt aufzuführen, das wiederhergestellt werden können soll.
Weist z.B. die Instanz-Variable “daten” aus der Klasse “WerteErfassungModell” auf einen
Bag mit dem Punktwert “32”, der über den Einsatz von “InWerteErfassung11” als Instan-