PositionableStream.st
changeset 5098 4cb82101e94a
parent 4912 43182d65eaf2
child 5223 06cf79da1d4a
--- 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!