--- 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)"