fixed no-version checkin into an existing container
authorClaus Gittinger <cg@exept.de>
Fri, 20 Dec 1996 01:10:54 +0100
changeset 878 c7b082dead36
parent 877 abb5e8b1a04d
child 879 8582038d1287
fixed no-version checkin into an existing container
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Thu Dec 19 14:45:06 1996 +0100
+++ b/BrowserView.st	Fri Dec 20 01:10:54 1996 +0100
@@ -2694,10 +2694,10 @@
                 ^ false.
             ].  
 
-            aClass updateVersionMethodFor:'changed container'.
+            aClass updateVersionMethodFor:'$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.220 1996-12-20 00:10:54 cg Exp $'.
 
             oldFileName notNil ifTrue:[
-                msg := ('changed source container from ' , oldFileName).
+                msg := ('forced checkin / source container change from ' , oldFileName).
             ] ifFalse:[
                 msg := 'defined source container'
             ].
@@ -2726,6 +2726,7 @@
                     ^ false.
                 ].
             ].
+
             self normalLabel.
             ^ true
         ] ifFalse:[
@@ -2752,7 +2753,7 @@
     box destroy.
     ^ false
 
-    "Modified: 8.11.1996 / 16:20:26 / cg"
+    "Modified: 20.12.1996 / 01:09:09 / cg"
 !
 
 classLoadNewRevision
@@ -8479,6 +8480,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.219 1996-12-19 13:45:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.220 1996-12-20 00:10:54 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Dec 19 14:45:06 1996 +0100
+++ b/BrwsrView.st	Fri Dec 20 01:10:54 1996 +0100
@@ -2694,10 +2694,10 @@
                 ^ false.
             ].  
 
-            aClass updateVersionMethodFor:'changed container'.
+            aClass updateVersionMethodFor:'$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.220 1996-12-20 00:10:54 cg Exp $'.
 
             oldFileName notNil ifTrue:[
-                msg := ('changed source container from ' , oldFileName).
+                msg := ('forced checkin / source container change from ' , oldFileName).
             ] ifFalse:[
                 msg := 'defined source container'
             ].
@@ -2726,6 +2726,7 @@
                     ^ false.
                 ].
             ].
+
             self normalLabel.
             ^ true
         ] ifFalse:[
@@ -2752,7 +2753,7 @@
     box destroy.
     ^ false
 
-    "Modified: 8.11.1996 / 16:20:26 / cg"
+    "Modified: 20.12.1996 / 01:09:09 / cg"
 !
 
 classLoadNewRevision
@@ -8479,6 +8480,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.219 1996-12-19 13:45:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.220 1996-12-20 00:10:54 cg Exp $'
 ! !
 BrowserView initialize!