# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1393326360 -3600
# Node ID 02c5bb5ce4eee2d18fe4b2fcfa6ad757b451e839
# Parent  0d6e497eb85fd1ed70538dc16902153aea3bece0
UIPainter>>#doBrowseAspectClass:

Fixes DNU when clicking to Browse button next to subcanvas major key edit field.

diff -r 0d6e497eb85f -r 02c5bb5ce4ee UIPainter.st
--- a/UIPainter.st	Tue Feb 18 18:15:19 2014 +0100
+++ b/UIPainter.st	Tue Feb 25 12:06:00 2014 +0100
@@ -5055,6 +5055,22 @@
     "Modified: / 28-01-2014 / 21:55:56 / cg"
 !
 
+doBrowseAspectClass: aspect
+    | spec className class |
+
+    spec := painter specForSelection.
+    spec isNil ifTrue:[ self error: 'No spec!!'.].      
+    className := spec perform: aspect.
+    class := self resolveName: className inClass: specClass.
+    class isNil ifTrue:[ 
+        Dialog warn: (resources string: 'No such class (%1)' with: className). 
+        ^ self.
+    ].
+    Smalltalk browseInClass: (self resolveName: className inClass: specClass)
+
+    "Created: / 24-02-2014 / 17:20:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 doBrowseAspectMethod:aspectSelector
     "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
 
@@ -5063,6 +5079,7 @@
     self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector
 
     "Modified: / 12-01-2008 / 10:32:15 / cg"
+    "Modified (format): / 24-02-2014 / 17:44:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown