UIPainter>>#doBrowseAspectClass:
Fixes DNU when clicking to Browse button next to subcanvas major key edit field.
--- 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