--- a/PositionableStream.st Mon Dec 13 21:51:49 1999 +0100
+++ b/PositionableStream.st Tue Dec 14 15:00:03 1999 +0100
@@ -693,8 +693,11 @@
request:(msg withCRs)
label:'Class redefinition in fileIn'
form:(WarningBox iconBitmap)
- buttonLabels:#('cancel' 'skip' 'debug' 'keep' 'keep all' 'continue' 'continue all')
- values:#(#abort #skip #debug #keep #keepAll #continue #continueForAll)
+"/ cg: now always keep the old packageID
+"/ buttonLabels:#('cancel' 'skip' 'debug' 'keep' 'keep all' 'continue' 'continue all')
+"/ values:#(#abort #skip #debug #keep #keepAll #continue #continueForAll)
+ buttonLabels:#('cancel' 'skip' 'debug' 'continue' 'continue all')
+ values:#(#abort #skip #debug #keep #keepAll)
default:#continue.
] ifFalse:[
action := self askForDebug:msg withCRs canContinueForAll:canContinueForAll.
@@ -747,8 +750,8 @@
].
^ lastValue
- "Modified: / 3.2.1999 / 11:30:10 / cg"
"Modified: / 10.9.1999 / 16:54:01 / stefan"
+ "Modified: / 14.12.1999 / 15:00:53 / cg"
! !
!PositionableStream methodsFor:'positioning'!
@@ -1034,6 +1037,6 @@
!PositionableStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.85 1999-10-16 11:12:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.86 1999-12-14 14:00:03 cg Exp $'
! !
PositionableStream initialize!