--- a/UIPainter.st Wed Feb 06 11:30:06 2008 +0100
+++ b/UIPainter.st Mon Feb 11 14:24:36 2008 +0100
@@ -4269,13 +4269,16 @@
doBrowseViewClass
"opens a browser on the selected widgets class"
- |selection|
+ |selection widget|
((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
- selection first class browse
- ] ifFalse: [
- selection class browse
- ]
+ widget := selection first
+ ] ifFalse:[
+ widget := selection
+ ].
+
+ widget isScrollWrapper ifTrue:[ widget := widget scrolledView].
+ widget class browse
!
doDefineClassAndSelector