--- a/Tools__NewSystemBrowser.st Mon Oct 29 12:41:53 2012 +0100
+++ b/Tools__NewSystemBrowser.st Mon Oct 29 17:58:06 2012 +0100
@@ -45,7 +45,7 @@
DefaultSortByNameAndInheritance LastLiteralReplacementType
LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
LastNewProjectType LastClassProcessingBlockString
- RecentlyClosedList'
+ RecentlyClosedList LastClassSearchBoxShowedFullName'
poolDictionaries:''
category:'Interface-Browsers-New'
!
@@ -13365,7 +13365,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepository
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -13373,13 +13373,20 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepository
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepository
translateLabel: true
@@ -13446,7 +13453,7 @@
nil
)
- "Modified: / 26-09-2012 / 12:11:16 / cg"
+ "Modified: / 28-10-2012 / 11:57:54 / cg"
!
classDataBaseRepositoryMenu
@@ -13525,7 +13532,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -13534,7 +13541,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:
translateLabel: true
argument: DataBaseSourceCodeManager
@@ -13542,6 +13549,14 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepositoryUsingManagerNamed:
+ translateLabel: true
+ argument: DataBaseSourceCodeManager
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepositoryUsingManagerNamed:
translateLabel: true
@@ -13595,6 +13610,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 11:58:35 / cg"
!
classFileBasedRepositoryMenu
@@ -13673,7 +13690,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -13682,7 +13699,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:
translateLabel: true
argument: FileBasedSourceCodeManager
@@ -13743,6 +13760,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 11:58:48 / cg"
!
classGitMenu
@@ -13811,7 +13830,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -13820,7 +13839,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:
translateLabel: true
argument: GitSourceCodeManager
@@ -13828,6 +13847,14 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepositoryUsingManagerNamed:
+ translateLabel: true
+ argument: GitSourceCodeManager
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepositoryUsingManagerNamed:
translateLabel: true
@@ -13880,6 +13907,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 11:59:05 / cg"
!
classMenuSCMCommon
@@ -13986,7 +14015,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -13995,7 +14024,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:
translateLabel: true
argument: SourceCodeManagerNamePlaceholder
@@ -14003,6 +14032,14 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepositoryUsingManagerNamed:
+ translateLabel: true
+ argument: SourceCodeManagerNamePlaceholder
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepositoryUsingManagerNamed:
translateLabel: true
@@ -14046,7 +14083,7 @@
)
"Modified: / 12-10-2011 / 20:24:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 23-07-2012 / 15:15:29 / cg"
+ "Modified: / 28-10-2012 / 11:59:42 / cg"
!
classMenuSCMExtra_CVS
@@ -14705,7 +14742,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -14714,7 +14751,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepositoryUsingManagerNamed:
translateLabel: true
argument: MercurialSourceCodeManager
@@ -14722,6 +14759,14 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepositoryUsingManagerNamed:
+ translateLabel: true
+ argument: MercurialSourceCodeManager
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepositoryUsingManagerNamed:
translateLabel: true
@@ -14774,6 +14819,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 12:00:06 / cg"
!
classPerforceMenu
@@ -14879,7 +14926,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepository
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -14887,7 +14934,7 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepository
translateLabel: true
showBusyCursorWhilePerforming: true
@@ -14952,6 +14999,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 12:00:23 / cg"
!
classSCMMenu
@@ -15068,7 +15117,7 @@
)
(MenuItem
enabled: hasClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: classMenuCompareAgainstNewestInRepository
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
@@ -15076,13 +15125,20 @@
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
- label: 'Compare with Original in Repository...'
+ label: 'Compare with Original in Repository'
itemValue: classMenuCompareAgainstOriginalInRepository
translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: classMenuCompareAgainstStableInRepository
+ translateLabel: true
+ showBusyCursorWhilePerforming: true
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository...'
itemValue: classMenuCompareWithRepository
translateLabel: true
@@ -15122,6 +15178,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 11:54:14 / cg"
! !
!NewSystemBrowser class methodsFor:'menu specs-SCM-project'!
@@ -15241,7 +15299,13 @@
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
+ itemValue: projectMenuCompareAgainstNewestInRepository
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable Version in Repository'
itemValue: projectMenuCompareAgainstNewestInRepository
translateLabel: true
)
@@ -15387,7 +15451,7 @@
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: projectMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
argument: GitSourceCodeManager
@@ -15435,7 +15499,7 @@
nil
)
- "Modified: / 25-07-2012 / 19:05:17 / cg"
+ "Modified: / 28-10-2012 / 12:02:13 / cg"
!
projectMenuSCMCommon
@@ -15539,13 +15603,21 @@
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: projectMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
translateLabel: true
argument: SourceCodeManagerNamePlaceholder
)
(MenuItem
enabled: hasProjectSelectedAndSourceCodeManagerHolder
+ label: 'Compare with Stable in Repository'
+ itemValue: projectMenuCompareAgainstStableInRepositoryUsingManagerNamed:
+ translateLabel: true
+ argument: SourceCodeManagerNamePlaceholder
+ isVisible: false
+ )
+ (MenuItem
+ enabled: hasProjectSelectedAndSourceCodeManagerHolder
label: 'Compare with Repository at Date...'
itemValue: projectMenuCompareAgainstRepositoryUsingManagerNamed:
translateLabel: true
@@ -15602,8 +15674,8 @@
nil
)
- "Modified: / 23-07-2012 / 15:16:15 / cg"
"Modified: / 26-07-2012 / 12:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 28-10-2012 / 12:02:19 / cg"
!
projectMenuSCMCompareBuildSupportFile
@@ -16111,14 +16183,14 @@
)
(MenuItem
enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: selectorMenuCompareAgainstNewestInRepository
translateLabel: true
labelImage: (ResourceRetriever ToolbarIconLibrary repositoryVersions 'Compare with Newest in Repository...')
)
(MenuItem
enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare Class with Newest in Repository...'
+ label: 'Compare Class with Newest in Repository'
itemValue: selectorMenuCompareClassAgainstNewestInRepository
translateLabel: true
)
@@ -16135,6 +16207,8 @@
nil
nil
)
+
+ "Modified: / 28-10-2012 / 12:02:36 / cg"
!
selectorMenuSCMCommon
@@ -16177,7 +16251,7 @@
)
(MenuItem
enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare with Newest in Repository...'
+ label: 'Compare with Newest in Repository'
itemValue: selectorMenuCompareAgainstNewestInRepositoryUsingManagerNamed:
argument: SourceCodeManagerNamePlaceholder
translateLabel: true
@@ -16185,7 +16259,7 @@
)
(MenuItem
enabled: hasMethodSelectedAndSourceCodeManagerHolder
- label: 'Compare Class with Newest in Repository...'
+ label: 'Compare Class with Newest in Repository'
itemValue: selectorMenuCompareClassAgainstNewestInRepositoryUsingManagerNamed:
argument: SourceCodeManagerNamePlaceholder
translateLabel: true
@@ -16206,7 +16280,7 @@
)
"Modified: / 11-01-2012 / 14:05:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 23-07-2012 / 15:16:47 / cg"
+ "Modified: / 28-10-2012 / 12:02:47 / cg"
!
selectorMenuSCMSlice
@@ -19130,7 +19204,7 @@
|holder|
(holder := builder bindingAt:#showCoverageInformation) isNil ifTrue:[
- holder := false asValue.
+ holder := true"false" asValue.
builder aspectAt:#showCoverageInformation put: holder.
].
^ holder
@@ -19760,9 +19834,11 @@
!
hasApplicationOrHTTPServiceClassSelectedHolder
- ^ [ self hasApplicationClassSelected
- | self hasWebApplicationClassSelected
- | self hasStandaloneStartupClassSelected ]
+ ^ [
+ (self hasApplicationClassSelected
+ or:[ self hasWebApplicationClassSelected ])
+ or:[ self hasStandaloneStartupClassSelected ]
+ ]
"Created: / 04-02-2000 / 22:02:53 / cg"
!
@@ -32536,9 +32612,92 @@
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."
+ |currentClass rev revInfo|
+
+ currentClass := self theSingleSelectedLoadedNonMetaclassOrNil.
+ currentClass isNil ifTrue:[
+ self warn:'Cannot compare unloaded classes.'.
+ ^ self.
+ ].
+
+ manager isNil ifTrue:[
+ self halt.
+ ^ self
+ ].
+ revInfo := currentClass revisionInfoOfManager: manager.
+ revInfo ifNil:[
+ self warn:('The class seems to have no repository information for %1.' bindWith: manager managerTypeName).
+ ^ self
+ ].
+ rev := revInfo revision.
+ rev isNil ifTrue:[
+ self warn:'The class seems to have no repository information.'.
+ ^ self
+ ].
+ self classMenuCompareAgainstVersionInRepository:rev usingManager: manager
+!
+
+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."
+
+ |mgr|
+
+ mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+ self assert:(mgr notNil).
+ self classMenuCompareAgainstOriginalInRepositoryUsingManager:mgr
+
+ "Created: / 21-12-2011 / 22:50:51 / cg"
+!
+
+classMenuCompareAgainstStableInRepository
+ "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."
+
+ |currentClass mgr|
+
+ currentClass := self theSingleSelectedLoadedNonMetaclassOrNil.
+ currentClass isNil ifTrue:[
+ self warn:'Cannot compare unloaded classes.'.
+ ^ self.
+ ].
+ mgr := SourceCodeManagerUtilities default sourceCodeManagerFor:currentClass.
+ self classMenuCompareAgainstStableInRepositoryUsingManager:mgr.
+
+ "Modified: / 21-12-2011 / 22:49:35 / cg"
+!
+
+classMenuCompareAgainstStableInRepositoryUsingManager: manager
+ "open a diff-textView comparing the current (in-image) version
+ with the stable version found in the repository."
+
+ |currentClass rev|
+
+ currentClass := self theSingleSelectedLoadedNonMetaclassOrNil.
+ currentClass isNil ifTrue:[
+ self warn:'Cannot compare unloaded classes.'.
+ ^ self.
+ ].
+
+ rev := manager revisionForTag:'stable' inClass:currentClass.
+ rev isNil ifTrue:[
+ Dialog information:'No revision is tagged as "stable" in the repository'.
+ ^ self.
+ ].
+
+ self classMenuCompareAgainstVersionInRepository:rev usingManager: manager
+!
+
+classMenuCompareAgainstVersionInRepository:rev usingManager: manager
+ "open a diff-textView comparing the current (in-image) version
+ with a version found in the repository.
+ That is the version on which the class was based upon, not the most recent one."
+
|currentClass
- aStream comparedSource currentSource rev revInfo revString thisRevString mgr
- nm msg newestRev brwsr|
+ aStream comparedSource currentSource revString thisRevString
+ nm msg brwsr|
currentClass := self theSingleSelectedLoadedNonMetaclassOrNil.
currentClass isNil ifTrue:[
@@ -32547,27 +32706,11 @@
].
nm := currentClass name.
- mgr := manager.
- mgr isNil ifTrue:[
- ^ self
- ].
- revInfo := currentClass revisionInfoOfManager: manager.
- revInfo ifNil:[
- self warn:('The class seems to have no repository information for %1.' bindWith: mgr managerTypeName).
- ^ self
- ].
- rev := revInfo revision.
- rev isNil ifTrue:[
- self warn:'The class seems to have no repository information.'.
- ^ self
- ].
- "/
- "/ class in repository - ask for revision
- "/
+
msg := 'extracting revision %1'.
self busyLabel:msg with:rev.
self withActivityNotificationsRedirectedToInfoLabelDo:[
- aStream := mgr getSourceStreamFor:currentClass revision:rev.
+ aStream := manager getSourceStreamFor:currentClass revision:rev.
].
aStream isNil ifTrue:[
@@ -32603,7 +32746,7 @@
revString := rev.
"/ "/ this takes some time ... is it worth ?
-"/ (newestRev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
+"/ (newestRev := manager newestRevisionOf:currentClass) notNil ifTrue:[
"/ newestRev ~= rev ifTrue:[
"/ revString := rev , ' (newest is ' , newestRev , ')'
"/ ]
@@ -32631,20 +32774,6 @@
"Created: / 21-12-2011 / 20:28:18 / cg"
!
-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."
-
- |mgr|
-
- mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
- self assert:(mgr notNil).
- self classMenuCompareAgainstOriginalInRepositoryUsingManager:mgr
-
- "Created: / 21-12-2011 / 22:50:51 / cg"
-!
-
classMenuCompareClassExtensionsWithRepository
"open a diff-textView comparing the current (in-image) extensions of the selected class
with the some extensions version found in the repository."
@@ -41101,7 +41230,7 @@
resources check showingWhatLabel showFullNameHolder genShortNameListEntry|
resources := resourcesOrNil ? self class classResources.
- showFullNameHolder := false asValue.
+ showFullNameHolder := (LastClassSearchBoxShowedFullName ? false) asValue.
doWhat := doWhatByDefault.
canFind := navigationState notNil and:[ navigationState isFullBrowser ].
@@ -41263,7 +41392,7 @@
box panelView
addSubView:(showingWhatLabel := (Label label:(resources string:'Recently visited:')) adjust:#left) before:nil;
- addSubView:(check := CheckBox label:'Show Full Name (do not strip off Namespace)' model:showFullNameHolder) before:nil.
+ addSubView:(check := CheckBox label:(resources string:'Show Full Name (do not strip off Namespace)') model:showFullNameHolder) before:nil.
showFullNameHolder onChangeEvaluate:updateList.
box enterField origin:(0 @ check corner y).
box listView origin:(0 @ check corner y).
@@ -41273,6 +41402,8 @@
className isEmptyOrNil ifTrue:[^ nil "cancel"].
+ LastClassSearchBoxShowedFullName := showFullNameHolder value.
+
(className endsWith:$) ) ifTrue:[
className := ((className copyFrom:(className indexOfSubCollection:'(in ')+4)
copyWithoutLast:1)
@@ -47921,7 +48052,7 @@
"/ m addItem:item.
"/ ].
- (withLocalSenders | withSenderChain | withLocalImplementors | withImplementorChain) ifTrue:[
+ (withLocalSenders or:[ withSenderChain or:[ withLocalImplementors or:[ withImplementorChain]]]) ifTrue:[
m addSeparator.
].
@@ -47963,7 +48094,7 @@
l := mthd messagesSentToSelf.
] ifFalse:[
l := mthd messagesSent asArray.
- l := l , (mthd messagesPossiblySent asArray collect:[:each | each colorizeAllWith:Color grey]).
+ l := l , (mthd messagesPossiblySent asArray collect:[:each | each colorizeAllWith:Color darkGrey]).
].
l size > 0 ifTrue:[
l := l asSortedCollection.
@@ -57693,11 +57824,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1807 2012-10-24 18:50:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1808 2012-10-29 16:58:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1807 2012-10-24 18:50:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1808 2012-10-29 16:58:06 cg Exp $'
!
version_SVN