--- a/UIPainter.st Thu Mar 06 15:43:57 2014 +0100
+++ b/UIPainter.st Thu Mar 06 15:44:53 2014 +0100
@@ -4978,31 +4978,31 @@
and put the selected widget into a new instance of that one,
which gets the wrapped widget's layout"
- |widgetClass list selectedSpec|
-
Dialog information:'sorry - unfinished.'.
^ self.
- selectedSpec := self selectedSpec.
- selectedSpec isNil ifTrue:[^ self].
-
- list := UISpecification allSubclasses
- select:[:cls |
- [ cls viewClass notNil
- and:[ cls supportsSubComponents ]]
- on: NotFoundError
- do:[ false ]
- ].
- list sort:[:a :b | a name < b name].
-
- widgetClass := Dialog
- requestClass:'Wrap into (Spec or View Class):'
- list:list
- okLabel:'OK'
- initialAnswer:nil.
- widgetClass isNil ifTrue:[
- ^ self
- ].
- self wrapWidgetIntoClass:widgetClass
+"/ |widgetClass list selectedSpec|
+"/
+"/ selectedSpec := self selectedSpec.
+"/ selectedSpec isNil ifTrue:[^ self].
+"/
+"/ list := UISpecification allSubclasses
+"/ select:[:cls |
+"/ [ cls viewClass notNil
+"/ and:[ cls supportsSubComponents ]]
+"/ on: NotFoundError
+"/ do:[ false ]
+"/ ].
+"/ list sort:[:a :b | a name < b name].
+"/
+"/ widgetClass := Dialog
+"/ requestClass:'Wrap into (Spec or View Class):'
+"/ list:list
+"/ okLabel:'OK'
+"/ initialAnswer:nil.
+"/ widgetClass isNil ifTrue:[
+"/ ^ self
+"/ ].
+"/ self wrapWidgetIntoClass:widgetClass
!
doBrowseActionMethod:aspectSelector