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.
class: Tools::NewSystemBrowser
authorClaus Gittinger <cg@exept.de>
Sat, 07 Feb 2015 17:01:15 +0100
changeset 15221 4a0de36e893c
parent 15220 56b706f31930
child 15222 0d92944a4a35
class: Tools::NewSystemBrowser changed:29 methods Smalltalk at:foo asSymbol -> Smallalk classNamed:foo
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/Tools__NewSystemBrowser.st	Sat Feb 07 16:41:46 2015 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Feb 07 17:01:15 2015 +0100
@@ -34366,7 +34366,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^ self classMenuCheckInAllChangedClassesUsingManager:mgr
 
@@ -34496,7 +34496,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCheckInUsingManager:mgr
 
@@ -34546,7 +34546,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCheckOutNewestUsingManager: mgr
 !
@@ -34573,7 +34573,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCheckOutUsingManager: mgr
 !
@@ -34605,7 +34605,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCompareAgainstNewestInRepositoryUsingManager:mgr
 
@@ -34673,7 +34673,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCompareAgainstOriginalInRepositoryUsingManager:mgr
 
@@ -34725,7 +34725,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCheckOutUsingManager: mgr
 !
@@ -35083,7 +35083,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCompareTwoRepositoryVersionsUsingManager:mgr
 
@@ -35195,7 +35195,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCompareWithRepositoryUsingManager:mgr
 
@@ -35481,7 +35481,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuRevisionLog:false usingManager:mgr
 
@@ -35539,7 +35539,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuShortRevisionLogUsingManager:mgr
 
@@ -39220,7 +39220,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^self methodListMenuCheckInClassUsingManager: mgr
 !
@@ -39626,7 +39626,7 @@
 classMenuCheckInBuildSupportFilesUsingManagerNamed:sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self classMenuCheckInBuildSupportFilesUsingManager:mgr
 
@@ -40329,7 +40329,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^self projectMenuCheckInAllUsingManager: mgr
 
@@ -40414,7 +40414,7 @@
 projectMenuCheckInBuildSupportFilesUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^self projectMenuCheckInBuildSupportFilesUsingManager: mgr
 
@@ -40454,7 +40454,7 @@
 projectMenuCheckInClassesUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuCheckInClassesUsingManager: mgr
 
@@ -40495,7 +40495,7 @@
 projectMenuCheckInExtensionsUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuCheckInExtensionsUsingManager: mgr
 
@@ -41034,7 +41034,7 @@
 projectMenuCheckOutNewestUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuCheckOutNewestUsingManager: mgr
 
@@ -41071,7 +41071,7 @@
 projectMenuCheckOutUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuCheckOutUsingManager: mgr
 
@@ -41337,7 +41337,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^self projectMenuCompareAgainstNewestInRepositoryUsingManager: mgr
 
@@ -42182,7 +42182,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuImport:true usingManager:mgr
 
@@ -42194,7 +42194,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuImport:false usingManager:mgr
 
@@ -42616,7 +42616,7 @@
 projectMenuRepositoryHistoryUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuRepositoryHistoryUsingManager: mgr
 !
@@ -42674,7 +42674,7 @@
 projectMenuSetTagOfBuildSupportFilesUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuSetTagOfBuildSupportFilesUsingManager: mgr
 !
@@ -42703,7 +42703,7 @@
 projectMenuSetTagUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     self projectMenuSetTagUsingManager: mgr
 !
@@ -46000,7 +46000,7 @@
 selectorMenuBrowseRepositoryVersionsUsingManagerNamed:sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^self selectorMenuBrowseRepositoryVersionsUsingManager: mgr
 
@@ -46067,7 +46067,7 @@
 selectorMenuCompareAgainstNewestInRepositoryUsingManagerNamed: sourceCodeManagerClassName
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^ self selectorMenuCompareAgainstNewestInRepositoryUsingManager: mgr
 
@@ -46098,7 +46098,7 @@
 
     |mgr|
 
-    mgr := Smalltalk at:sourceCodeManagerClassName asSymbol.
+    mgr := Smalltalk classNamed:sourceCodeManagerClassName.
     self assert:(mgr notNil).
     ^ self selectorMenuCompareClassAgainstNewestInRepositoryUsingManager: mgr
 
@@ -50191,38 +50191,38 @@
     <resource: #programMenu >
 
     ^ [
-	|m extensionProjectIDs classPackage item mgr|
-
-	sourceCodeManagerNameOrNil notNil ifTrue:[
-	    mgr := Smalltalk at:sourceCodeManagerNameOrNil asSymbol.
-	    self assert:(mgr notNil).
-	].
-
-	extensionProjectIDs := Set new.
-
-	self selectedClassesDo:[:eachClass |
-	    classPackage := eachClass package.
-	    eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
-		mthd package ~= classPackage ifTrue:[
-		    extensionProjectIDs add:mthd package.
-		]
-	    ]
-	].
-	extensionProjectIDs size > 0 ifTrue:[
-	    m := Menu new.
-	    extensionProjectIDs size > 1 ifTrue:[
-		item := MenuItem label:'All'.
-		item itemValue:[ self classMenuCheckInExtensionsUsingManager:mgr ].
-		m addItem:item.
-		m addSeparator.
-	    ].
-	    extensionProjectIDs asSortedCollection do:[:eachExtensionPackage |
-		item := MenuItem label:eachExtensionPackage.
-		item itemValue:[ self classMenuCheckInExtensionsFor: eachExtensionPackage usingManager:mgr ].
-		m addItem:item.
-	    ].
-	].
-	m
+        |m extensionProjectIDs classPackage item mgr|
+
+        sourceCodeManagerNameOrNil notNil ifTrue:[
+            mgr := Smalltalk classNamed:sourceCodeManagerNameOrNil.
+            self assert:(mgr notNil).
+        ].
+
+        extensionProjectIDs := Set new.
+
+        self selectedClassesDo:[:eachClass |
+            classPackage := eachClass package.
+            eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
+                mthd package ~= classPackage ifTrue:[
+                    extensionProjectIDs add:mthd package.
+                ]
+            ]
+        ].
+        extensionProjectIDs size > 0 ifTrue:[
+            m := Menu new.
+            extensionProjectIDs size > 1 ifTrue:[
+                item := MenuItem label:'All'.
+                item itemValue:[ self classMenuCheckInExtensionsUsingManager:mgr ].
+                m addItem:item.
+                m addSeparator.
+            ].
+            extensionProjectIDs asSortedCollection do:[:eachExtensionPackage |
+                item := MenuItem label:eachExtensionPackage.
+                item itemValue:[ self classMenuCheckInExtensionsFor: eachExtensionPackage usingManager:mgr ].
+                m addItem:item.
+            ].
+        ].
+        m
     ].
 
     "Modified: / 09-09-2012 / 13:11:49 / cg"
@@ -62068,11 +62068,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2173 2015-02-06 14:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2174 2015-02-07 16:01:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2173 2015-02-06 14:00:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2174 2015-02-07 16:01:15 cg Exp $'
 !
 
 version_HG
@@ -62081,7 +62081,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2173 2015-02-06 14:00:37 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2174 2015-02-07 16:01:15 cg Exp $'
 ! !
hg/stx-libtool