fixes
authorClaus Gittinger <cg@exept.de>
Thu, 22 Dec 2011 14:07:00 +0100
changeset 11014 f28d25cab495
parent 11013 c52144537d6d
child 11015 4960baf73c1c
fixes
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Thu Dec 22 14:02:54 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Dec 22 14:07:00 2011 +0100
@@ -29534,10 +29534,10 @@
     "Created: / 21-12-2011 / 18:20:19 / cg"
 !
 
-classMenuCheckInUsingManagerNamed:aManagerName
+classMenuCheckInUsingManagerNamed:sourceCodeManagerClassName
     "check a class into the source repository (with checks)"
 
-    self classMenuCheckInUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuCheckInUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 20:03:01 / cg"
 !
@@ -29607,12 +29607,12 @@
     "Created: / 21-12-2011 / 19:55:56 / cg"
 !
 
-classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:aManagerName
+classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:sourceCodeManagerClassName
     "open a diff-textView comparing the current (in-image) version
      with the the newest version found in the repository.
      That is the most recent version."
 
-    self classMenuCompareAgainstNewestInRepositoryUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuCompareAgainstNewestInRepositoryUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 20:35:43 / cg"
 !
@@ -29735,12 +29735,12 @@
     "Created: / 21-12-2011 / 20:28:18 / cg"
 !
 
-classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:aManagerName
+classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:sourceCodeManagerClassName
     "open a diff-textView comparing the current (in-image) version
      with the the base version found in the repository.
      That is the version on which the class was based upon, not the most recent one."
 
-    self classMenuCompareAgainstOriginalInRepositoryUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuCompareAgainstOriginalInRepositoryUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 22:50:51 / cg"
 !
@@ -30037,10 +30037,10 @@
     "Created: / 21-12-2011 / 20:28:43 / cg"
 !
 
-classMenuCompareTwoRepositoryVersionsUsingManagerNamed: aManagerName
+classMenuCompareTwoRepositoryVersionsUsingManagerNamed:sourceCodeManagerClassName
     "open a diff-textView comparing two versions found in the repository."
 
-    self classMenuCompareTwoRepositoryVersionsUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuCompareTwoRepositoryVersionsUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 23:13:40 / cg"
 !
@@ -30346,11 +30346,11 @@
     "Created: / 21-12-2011 / 20:28:48 / cg"
 !
 
-classMenuCompareWithRepositoryUsingManagerNamed:aManagerName
+classMenuCompareWithRepositoryUsingManagerNamed:sourceCodeManagerClassName
     "open a diff-textView comparing the current (in-image) version
      with the some version found in the repository."
 
-    self classMenuCompareWithRepositoryUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuCompareWithRepositoryUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 22:51:56 / cg"
 !
@@ -30596,10 +30596,10 @@
     "Created: / 21-12-2011 / 20:17:12 / cg"
 !
 
-classMenuRevisionLogUsingManagerNamed: aManagerName
+classMenuRevisionLogUsingManagerNamed:sourceCodeManagerClassName
     "show a classes revision log"
 
-    self classMenuRevisionLog:false usingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuRevisionLog:false usingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Modified: / 11-10-2011 / 20:31:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 23:02:10 / cg"
@@ -30662,10 +30662,10 @@
     "Created: / 21-12-2011 / 20:17:24 / cg"
 !
 
-classMenuShortRevisionLogUsingManagerNamed: aManagerName
+classMenuShortRevisionLogUsingManagerNamed:sourceCodeManagerClassName
     "show a short (last 20 entries) classes repository log"
 
-    self classMenuShortRevisionLogUsingManager:(Smalltalk at:aManagerName asSymbol)
+    self classMenuShortRevisionLogUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
 
     "Created: / 21-12-2011 / 23:12:15 / cg"
 !
@@ -34306,10 +34306,10 @@
     "Modified: / 12-09-2006 / 13:53:28 / cg"
 !
 
-classMenuCheckInBuildSupportFilesUsingManager: manager
+classMenuCheckInBuildSupportFilesUsingManager:aManagerOrNil
     self selectedNonMetaclassesDo:[:eachClass |
         eachClass isProjectDefinition ifTrue:[
-            self projectMenuCheckInBuildSupportFilesForProject:eachClass package definition:eachClass manager:manager
+            self projectMenuCheckInBuildSupportFilesForProject:eachClass package definition:eachClass usingManager:aManagerOrNil
         ]
     ]
 
@@ -34317,6 +34317,12 @@
     "Created: / 21-12-2011 / 20:28:09 / cg"
 !
 
+classMenuCheckInBuildSupportFilesUsingManagerNamed:sourceCodeManagerClassName
+    self classMenuCheckInBuildSupportFilesUsingManager:(Smalltalk at:sourceCodeManagerClassName asSymbol)
+
+    "Created: / 22-12-2011 / 14:04:45 / cg"
+!
+
 classMenuCopySourceToClipboard
     |stream|
 
@@ -34931,12 +34937,12 @@
         self warn:'No sourceCode manager - cannot checkin.'.
         ^ self.
     ].
-    self projectMenuCheckInBuildSupportFilesForProject:packageID definition:defClass manager:mgr
+    self projectMenuCheckInBuildSupportFilesForProject:packageID definition:defClass usingManager:mgr
 
     "Created: / 09-08-2006 / 18:59:42 / fm"
     "Modified: / 16-08-2006 / 18:38:49 / User"
-    "Modified: / 06-09-2011 / 08:00:43 / cg"
     "Modified: / 15-10-2011 / 22:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-12-2011 / 14:03:36 / cg"
 !
 
 projectMenuCheckInBuildSupportFilesForProject:packageID definition:defClass usingManager:mgr
@@ -44904,7 +44910,7 @@
     "Created: / 12-10-2011 / 16:04:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-classMenuSCMExtraForManagerNamed: sourceCodeManagerClassName
+classMenuSCMExtraForManagerNamed:sourceCodeManagerClassName
 
     <resource: #programMenu>
 
@@ -45066,7 +45072,7 @@
     "Created: / 12-10-2011 / 20:23:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-projectMenuSCMCompareBuildSupportFileForManagerNamed: sourceCodeManagerClassName
+projectMenuSCMCompareBuildSupportFileForManagerNamed:sourceCodeManagerClassName
 
     <resource: #programMenu>
 
@@ -54670,11 +54676,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1675 2011-12-22 10:05:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1676 2011-12-22 13:07:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1675 2011-12-22 10:05:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1676 2011-12-22 13:07:00 cg Exp $'
 !
 
 version_SVN