--- 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