# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1399292334 -7200
# Node ID 148a01b7abc0b499595ffbe76ac60b053d206dd2
# Parent  b33e0b8e60388cc0b67f928f5bf42027fc07ea63
class: UIPainter
added: #doBrowseAspectClassAndSelector:

diff -r b33e0b8e6038 -r 148a01b7abc0 UIPainter.st
--- a/UIPainter.st	Thu May 01 13:00:47 2014 +0200
+++ b/UIPainter.st	Mon May 05 14:18:54 2014 +0200
@@ -5079,6 +5079,26 @@
     "Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+doBrowseAspectClassAndSelector:classAspectAndSelectorAspect
+    | classAspect selector selectorAspect spec className class |
+
+    classAspect := classAspectAndSelectorAspect first. "/ #(#majorKey #minorKey)
+    selectorAspect := classAspectAndSelectorAspect second. "/ #(#majorKey #minorKey)
+
+    spec := painter specForSelection.
+    spec isNil ifTrue:[ self error: 'No spec!!'.].      
+    className := spec perform: classAspect.
+    class := self resolveName: className inClass: specClass.
+    class isNil ifTrue:[ 
+        Dialog warn: (resources string: 'No such class (%1)' with: className). 
+        ^ self.
+    ].
+    selector := spec perform: selectorAspect.
+    Smalltalk 
+        browseInClass: (self resolveName: className inClass: specClass) theMetaclass
+        selector:selector
+!
+
 doBrowseAspectMethod:aspectSelector
     "browse or create the aspect method as entered in the field (button beside input fieled pressed)"