added: #projectMenuCheckInBuildSupportFilesUsingManagerNamed:
authorvrany
Tue, 24 Jan 2012 14:15:43 +0100
changeset 11192 bfd42a326528
parent 11191 789b1f2642f9
child 11193 bdfc09d65f51
added: #projectMenuCheckInBuildSupportFilesUsingManagerNamed: changed: #projectMenuCheckInBuildSupportFilesForProject:usingManager: #projectMenuCheckInBuildSupportFilesUsingManager:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Tue Jan 24 14:13:20 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Jan 24 14:15:43 2012 +0100
@@ -35900,9 +35900,6 @@
 !
 
 projectMenuCheckInBuildSupportFilesForProject:packageID usingManager: manager
-
-    <resource: #obsolete> "use ...Using:manager variant"
-
     |defClass mgr|
 
     defClass := ProjectDefinition definitionClassForPackage:packageID createIfAbsent:false.
@@ -35917,19 +35914,17 @@
         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"
     "Created: / 15-10-2011 / 22:32:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 20:25:21 / cg"
+    "Modified: / 24-01-2012 / 13:03:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuCheckInBuildSupportFilesUsingManager: manager
-
-    <resource: #obsolete> "use ...Using:manager variant"
-
     self selectedProjectsDo:[:packageToCheckIn |
         self projectMenuCheckInBuildSupportFilesForProject:packageToCheckIn usingManager: manager
     ]
@@ -35937,6 +35932,14 @@
     "Created: / 09-08-2006 / 19:04:52 / fm"
     "Created: / 15-10-2011 / 22:31:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 21-12-2011 / 20:18:34 / cg"
+    "Modified: / 24-01-2012 / 13:02:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+projectMenuCheckInBuildSupportFilesUsingManagerNamed: managerName
+
+    ^self projectMenuCheckInBuildSupportFilesUsingManager: (Smalltalk at:managerName asSymbol)
+
+    "Created: / 24-01-2012 / 13:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 projectMenuCheckInClasses
@@ -55723,11 +55726,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1700 2012-01-24 12:53:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1701 2012-01-24 13:15:43 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1700 2012-01-24 12:53:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1701 2012-01-24 13:15:43 vrany Exp $'
 !
 
 version_SVN