diff -r 766d2055ce4a -r f806d15778cd UIPainter.st
--- 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