Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
check for existing container and output a warnBox,
authorClaus Gittinger <cg@exept.de>
Mon, 09 Sep 1996 18:55:51 +0200
changeset 712 72dd9d6a9ea3
parent 711 748349e59632
child 713 bbed5ec2fbeb
check for existing container and output a warnBox, when adding a new class. (dont clobber existing container).
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Sat Sep 07 14:42:13 1996 +0200
+++ b/BrowserView.st	Mon Sep 09 18:55:51 1996 +0200
@@ -2343,6 +2343,14 @@
             ]
         ].
         info isNil ifTrue:[
+            creatingNew ifFalse:[
+                (self confirm:(resources string:'The repository already contains a container named "%3" in "%1/%2" !!\\Checkin %4 anyway ? (DANGER - be careful)'
+                         withArgs:(Array with:module with:package with:fileName with:aClass name)) withCRs)
+                    ifFalse:[
+                        ^ false
+                    ].
+            ].
+
             (self confirm:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:aClass name) withCRs)
                 ifFalse:[
                     ^ false
@@ -2422,7 +2430,7 @@
     box destroy.
     ^ false
 
-    "Modified: 10.4.1996 / 23:43:08 / cg"
+    "Modified: 9.9.1996 / 18:53:33 / cg"
 !
 
 classLoadRevision
@@ -7388,6 +7396,6 @@
 !BrowserView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.164 1996-09-07 12:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.165 1996-09-09 16:55:51 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sat Sep 07 14:42:13 1996 +0200
+++ b/BrwsrView.st	Mon Sep 09 18:55:51 1996 +0200
@@ -2343,6 +2343,14 @@
             ]
         ].
         info isNil ifTrue:[
+            creatingNew ifFalse:[
+                (self confirm:(resources string:'The repository already contains a container named "%3" in "%1/%2" !!\\Checkin %4 anyway ? (DANGER - be careful)'
+                         withArgs:(Array with:module with:package with:fileName with:aClass name)) withCRs)
+                    ifFalse:[
+                        ^ false
+                    ].
+            ].
+
             (self confirm:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:aClass name) withCRs)
                 ifFalse:[
                     ^ false
@@ -2422,7 +2430,7 @@
     box destroy.
     ^ false
 
-    "Modified: 10.4.1996 / 23:43:08 / cg"
+    "Modified: 9.9.1996 / 18:53:33 / cg"
 !
 
 classLoadRevision
@@ -7388,6 +7396,6 @@
 !BrowserView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.164 1996-09-07 12:38:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.165 1996-09-09 16:55:51 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool