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.
methodDoubleClick
authorClaus Gittinger <cg@exept.de>
Wed, 22 Apr 1998 10:33:34 +0200
changeset 1572 17986c6f38bf
parent 1571 b1ee667932f6
child 1573 4b6ce12dff2b
methodDoubleClick
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Wed Apr 22 10:23:01 1998 +0200
+++ b/BrowserView.st	Wed Apr 22 10:33:34 1998 +0200
@@ -8580,42 +8580,40 @@
     |resources|
 
     currentMethod notNil ifTrue:[
-        currentMethod hasResource ifTrue:[
-            resources := currentMethod resources.
-            resources notNil ifTrue:[
-                (resources includesKey:#canvas) ifTrue:[
-                    UIPainter openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#menu) ifTrue:[
-                    MenuEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
-                    ImageEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#help) ifTrue:[
-                    UIHelpTool openOnClass:currentClass.
-                    ^ self
-                ].
-                (resources includesKey:#tableColumns) ifTrue:[
-                    DataSetBuilder openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#tabList) ifTrue:[
-                    TabListEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#hierarchicalList) ifTrue:[
-                    HierarchicalListEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-            ]
+        resources := currentMethod resources.
+        resources notNil ifTrue:[
+            (resources includesKey:#canvas) ifTrue:[
+                UIPainter openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#menu) ifTrue:[
+                MenuEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
+                ImageEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#help) ifTrue:[
+                UIHelpTool openOnClass:currentClass.
+                ^ self
+            ].
+            (resources includesKey:#tableColumns) ifTrue:[
+                DataSetBuilder openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#tabList) ifTrue:[
+                TabListEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#hierarchicalList) ifTrue:[
+                HierarchicalListEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
         ]
     ]
 
-    "Modified: / 22.4.1998 / 10:21:11 / cg"
+    "Modified: / 22.4.1998 / 10:26:26 / cg"
 !
 
 methodSelection:lineNr
@@ -11602,6 +11600,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.396 1998-04-22 08:23:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.397 1998-04-22 08:33:34 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Wed Apr 22 10:23:01 1998 +0200
+++ b/BrwsrView.st	Wed Apr 22 10:33:34 1998 +0200
@@ -8580,42 +8580,40 @@
     |resources|
 
     currentMethod notNil ifTrue:[
-        currentMethod hasResource ifTrue:[
-            resources := currentMethod resources.
-            resources notNil ifTrue:[
-                (resources includesKey:#canvas) ifTrue:[
-                    UIPainter openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#menu) ifTrue:[
-                    MenuEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
-                    ImageEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#help) ifTrue:[
-                    UIHelpTool openOnClass:currentClass.
-                    ^ self
-                ].
-                (resources includesKey:#tableColumns) ifTrue:[
-                    DataSetBuilder openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#tabList) ifTrue:[
-                    TabListEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-                (resources includesKey:#hierarchicalList) ifTrue:[
-                    HierarchicalListEditor openOnClass:currentClass andSelector:currentSelector.
-                    ^ self
-                ].
-            ]
+        resources := currentMethod resources.
+        resources notNil ifTrue:[
+            (resources includesKey:#canvas) ifTrue:[
+                UIPainter openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#menu) ifTrue:[
+                MenuEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            ((resources includesKey:#image) or: [resources includesKey:#fileImage]) ifTrue:[
+                ImageEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#help) ifTrue:[
+                UIHelpTool openOnClass:currentClass.
+                ^ self
+            ].
+            (resources includesKey:#tableColumns) ifTrue:[
+                DataSetBuilder openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#tabList) ifTrue:[
+                TabListEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
+            (resources includesKey:#hierarchicalList) ifTrue:[
+                HierarchicalListEditor openOnClass:currentClass andSelector:currentSelector.
+                ^ self
+            ].
         ]
     ]
 
-    "Modified: / 22.4.1998 / 10:21:11 / cg"
+    "Modified: / 22.4.1998 / 10:26:26 / cg"
 !
 
 methodSelection:lineNr
@@ -11602,6 +11600,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.396 1998-04-22 08:23:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.397 1998-04-22 08:33:34 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool