# HG changeset patch # User Claus Gittinger # Date 834844881 -7200 # Node ID 570ef7f8667bd6ea37f0ff31ed56bc6094f88493 # Parent cb156455b0467a827488caa7fcee1bedb7b4b187 checkin from browser diff -r cb156455b046 -r 570ef7f8667b ExtStream.st --- a/ExtStream.st Sat Jun 15 15:19:40 1996 +0200 +++ b/ExtStream.st Sat Jun 15 15:21:21 1996 +0200 @@ -10,8 +10,6 @@ hereby transferred. " -'From Smalltalk/X, Version:2.10.9 on 13-jun-1996 at 01:14:41' ! - ReadWriteStream subclass:#ExternalStream instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite lastErrorNumber' @@ -378,12 +376,14 @@ ] ! -update:something +update:something with:aParameter from:changedObject "have to reopen files when returning from snapshot" something == #returnFromSnapshot ifTrue:[ - self reOpenFiles + self reOpenFiles ] + + "Created: 15.6.1996 / 15:19:59 / cg" ! ! !ExternalStream class methodsFor:'instance creation'! @@ -3511,6 +3511,6 @@ !ExternalStream class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.104 1996-06-13 00:10:22 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.105 1996-06-15 13:20:43 cg Exp $' ! ! ExternalStream initialize! diff -r cb156455b046 -r 570ef7f8667b ExternalStream.st --- a/ExternalStream.st Sat Jun 15 15:19:40 1996 +0200 +++ b/ExternalStream.st Sat Jun 15 15:21:21 1996 +0200 @@ -10,8 +10,6 @@ hereby transferred. " -'From Smalltalk/X, Version:2.10.9 on 13-jun-1996 at 01:14:41' ! - ReadWriteStream subclass:#ExternalStream instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite lastErrorNumber' @@ -378,12 +376,14 @@ ] ! -update:something +update:something with:aParameter from:changedObject "have to reopen files when returning from snapshot" something == #returnFromSnapshot ifTrue:[ - self reOpenFiles + self reOpenFiles ] + + "Created: 15.6.1996 / 15:19:59 / cg" ! ! !ExternalStream class methodsFor:'instance creation'! @@ -3511,6 +3511,6 @@ !ExternalStream class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.104 1996-06-13 00:10:22 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.105 1996-06-15 13:20:43 cg Exp $' ! ! ExternalStream initialize! diff -r cb156455b046 -r 570ef7f8667b FileDir.st --- a/FileDir.st Sat Jun 15 15:19:40 1996 +0200 +++ b/FileDir.st Sat Jun 15 15:21:21 1996 +0200 @@ -67,13 +67,15 @@ ObjectMemory addDependent:self ! -update:something +update:something with:aParameter from:changedObject "/ "/ currentDirectory may be different when restarted "/ something == #restarted ifTrue:[ - PathOfCurrentDirectory := nil + PathOfCurrentDirectory := nil ] + + "Created: 15.6.1996 / 15:20:21 / cg" ! ! !FileDirectory class methodsFor:'instance creation'! @@ -590,6 +592,6 @@ !FileDirectory class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.27 1996-04-25 16:15:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Attic/FileDir.st,v 1.28 1996-06-15 13:21:21 cg Exp $' ! ! FileDirectory initialize! diff -r cb156455b046 -r 570ef7f8667b FileDirectory.st --- a/FileDirectory.st Sat Jun 15 15:19:40 1996 +0200 +++ b/FileDirectory.st Sat Jun 15 15:21:21 1996 +0200 @@ -67,13 +67,15 @@ ObjectMemory addDependent:self ! -update:something +update:something with:aParameter from:changedObject "/ "/ currentDirectory may be different when restarted "/ something == #restarted ifTrue:[ - PathOfCurrentDirectory := nil + PathOfCurrentDirectory := nil ] + + "Created: 15.6.1996 / 15:20:21 / cg" ! ! !FileDirectory class methodsFor:'instance creation'! @@ -590,6 +592,6 @@ !FileDirectory class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.27 1996-04-25 16:15:05 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.28 1996-06-15 13:21:21 cg Exp $' ! ! FileDirectory initialize!