4976 doAskAndWrapWidgetInto |
4976 doAskAndWrapWidgetInto |
4977 "ask for a container class, |
4977 "ask for a container class, |
4978 and put the selected widget into a new instance of that one, |
4978 and put the selected widget into a new instance of that one, |
4979 which gets the wrapped widget's layout" |
4979 which gets the wrapped widget's layout" |
4980 |
4980 |
4981 |widgetClass list selectedSpec| |
|
4982 |
|
4983 Dialog information:'sorry - unfinished.'. |
4981 Dialog information:'sorry - unfinished.'. |
4984 ^ self. |
4982 ^ self. |
4985 selectedSpec := self selectedSpec. |
4983 "/ |widgetClass list selectedSpec| |
4986 selectedSpec isNil ifTrue:[^ self]. |
4984 "/ |
4987 |
4985 "/ selectedSpec := self selectedSpec. |
4988 list := UISpecification allSubclasses |
4986 "/ selectedSpec isNil ifTrue:[^ self]. |
4989 select:[:cls | |
4987 "/ |
4990 [ cls viewClass notNil |
4988 "/ list := UISpecification allSubclasses |
4991 and:[ cls supportsSubComponents ]] |
4989 "/ select:[:cls | |
4992 on: NotFoundError |
4990 "/ [ cls viewClass notNil |
4993 do:[ false ] |
4991 "/ and:[ cls supportsSubComponents ]] |
4994 ]. |
4992 "/ on: NotFoundError |
4995 list sort:[:a :b | a name < b name]. |
4993 "/ do:[ false ] |
4996 |
4994 "/ ]. |
4997 widgetClass := Dialog |
4995 "/ list sort:[:a :b | a name < b name]. |
4998 requestClass:'Wrap into (Spec or View Class):' |
4996 "/ |
4999 list:list |
4997 "/ widgetClass := Dialog |
5000 okLabel:'OK' |
4998 "/ requestClass:'Wrap into (Spec or View Class):' |
5001 initialAnswer:nil. |
4999 "/ list:list |
5002 widgetClass isNil ifTrue:[ |
5000 "/ okLabel:'OK' |
5003 ^ self |
5001 "/ initialAnswer:nil. |
5004 ]. |
5002 "/ widgetClass isNil ifTrue:[ |
5005 self wrapWidgetIntoClass:widgetClass |
5003 "/ ^ self |
|
5004 "/ ]. |
|
5005 "/ self wrapWidgetIntoClass:widgetClass |
5006 ! |
5006 ! |
5007 |
5007 |
5008 doBrowseActionMethod:aspectSelector |
5008 doBrowseActionMethod:aspectSelector |
5009 "browse or create the action method as entered in the field (button beside input filed pressed)" |
5009 "browse or create the action method as entered in the field (button beside input filed pressed)" |
5010 |
5010 |