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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 15 Feb 2006 18:26:13 +0100
changeset 6564 e33c56f5dac3
parent 6563 83a1be4da143
child 6565 692939ea40f4
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Wed Feb 15 18:26:01 2006 +0100
+++ b/NewSystemBrowser.st	Wed Feb 15 18:26:13 2006 +0100
@@ -9901,55 +9901,6 @@
     ^ box
 
     "Created: / 6.2.2000 / 01:07:11 / cg"
-!
-
-resourceEditorClassFor:aResource 
-    "resources are from a methods resource-info;
-     return an appropriate editor class."
-
-    (aResource == #canvas) ifTrue:[
-        ^ UIPainter
-    ].
-    (aResource == #menu) ifTrue:[
-        ^ MenuEditor
-    ].
-    ((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
-        ^ ImageEditor
-    ].
-    (aResource == #help) ifTrue:[
-        ^ UIHelpTool
-    ].
-    (aResource == #tableColumns) ifTrue:[
-        ^ DataSetBuilder
-    ].
-    (aResource == #tabList) ifTrue:[
-        ^ TabListEditor
-    ].
-    (aResource == #hierarchicalList) ifTrue:[
-        ^ HierarchicalListEditor
-    ].
-    ^ nil
-!
-
-resourceEditorClassForResources:resources
-    "resources are from a methods resource-info;
-     return an appropriate editor class."
-
-    #(
-        #canvas
-        #menu
-        #image
-        #fileImage
-        #help
-        #tableColumns
-        #tabList
-        #hierarchicalList
-    ) do:[:rsrcKey |
-        (resources includesKey:rsrcKey) ifTrue:[
-            ^ self resourceEditorClassFor:rsrcKey
-        ].
-    ].
-    ^ nil
 ! !
 
 !NewSystemBrowser methodsFor:'aspects'!
@@ -35869,11 +35820,15 @@
         "/
         editorClass := self class resourceEditorClassForResources:resources.
         editorClass notNil ifTrue: [
-            self withExecuteCursorDo:[
-                editorClass 
-                    openOnClass:mClass 
-                    andSelector:mSelector.
-                ^ self.
+            mClass isMeta ifTrue:[ 
+                "/ these uzdsakfhiv-stupid editors cannot edit nonMeta-methods - sigh
+
+                self withExecuteCursorDo:[
+                    editorClass 
+                        openOnClass:mClass theNonMetaclass
+                        andSelector:mSelector.
+                    ^ self.
+                ]
             ]
         ]
     ].
@@ -37252,7 +37207,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.904 2006-02-14 14:30:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.905 2006-02-15 17:26:13 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Wed Feb 15 18:26:01 2006 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Feb 15 18:26:13 2006 +0100
@@ -9901,55 +9901,6 @@
     ^ box
 
     "Created: / 6.2.2000 / 01:07:11 / cg"
-!
-
-resourceEditorClassFor:aResource 
-    "resources are from a methods resource-info;
-     return an appropriate editor class."
-
-    (aResource == #canvas) ifTrue:[
-        ^ UIPainter
-    ].
-    (aResource == #menu) ifTrue:[
-        ^ MenuEditor
-    ].
-    ((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
-        ^ ImageEditor
-    ].
-    (aResource == #help) ifTrue:[
-        ^ UIHelpTool
-    ].
-    (aResource == #tableColumns) ifTrue:[
-        ^ DataSetBuilder
-    ].
-    (aResource == #tabList) ifTrue:[
-        ^ TabListEditor
-    ].
-    (aResource == #hierarchicalList) ifTrue:[
-        ^ HierarchicalListEditor
-    ].
-    ^ nil
-!
-
-resourceEditorClassForResources:resources
-    "resources are from a methods resource-info;
-     return an appropriate editor class."
-
-    #(
-        #canvas
-        #menu
-        #image
-        #fileImage
-        #help
-        #tableColumns
-        #tabList
-        #hierarchicalList
-    ) do:[:rsrcKey |
-        (resources includesKey:rsrcKey) ifTrue:[
-            ^ self resourceEditorClassFor:rsrcKey
-        ].
-    ].
-    ^ nil
 ! !
 
 !NewSystemBrowser methodsFor:'aspects'!
@@ -35869,11 +35820,15 @@
         "/
         editorClass := self class resourceEditorClassForResources:resources.
         editorClass notNil ifTrue: [
-            self withExecuteCursorDo:[
-                editorClass 
-                    openOnClass:mClass 
-                    andSelector:mSelector.
-                ^ self.
+            mClass isMeta ifTrue:[ 
+                "/ these uzdsakfhiv-stupid editors cannot edit nonMeta-methods - sigh
+
+                self withExecuteCursorDo:[
+                    editorClass 
+                        openOnClass:mClass theNonMetaclass
+                        andSelector:mSelector.
+                    ^ self.
+                ]
             ]
         ]
     ].
@@ -37252,7 +37207,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.904 2006-02-14 14:30:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.905 2006-02-15 17:26:13 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool