4932 |
4932 |
4933 selectedSpec := self selectedSpec. |
4933 selectedSpec := self selectedSpec. |
4934 selectedSpec isNil ifTrue:[^ self]. |
4934 selectedSpec isNil ifTrue:[^ self]. |
4935 |
4935 |
4936 list := UISpecification allSubclasses |
4936 list := UISpecification allSubclasses |
4937 select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]]. |
4937 select:[:cls | |
|
4938 [ cls viewClass notNil] |
|
4939 on: NotFoundError |
|
4940 do:[ false ] |
|
4941 ]. |
4938 list sort:[:a :b | a name < b name]. |
4942 list sort:[:a :b | a name < b name]. |
4939 |
4943 |
4940 common := selectedSpec class commonReplacementClasses. |
4944 common := selectedSpec class commonReplacementClasses. |
4941 common notEmpty ifTrue:[ |
4945 common notEmpty ifTrue:[ |
4942 list addAllFirst:(common , (Array with:'-')). |
4946 list addAllFirst:(common , (Array with:'-')). |
4949 widgetClass isNil ifTrue:[ |
4953 widgetClass isNil ifTrue:[ |
4950 ^ self |
4954 ^ self |
4951 ]. |
4955 ]. |
4952 self replaceWidgetByClass:widgetClass |
4956 self replaceWidgetByClass:widgetClass |
4953 |
4957 |
4954 "Modified: / 12-01-2008 / 23:50:25 / cg" |
4958 "Modified: / 05-09-2012 / 19:31:22 / cg" |
4955 ! |
4959 ! |
4956 |
4960 |
4957 doBrowseActionMethod:aspectSelector |
4961 doBrowseActionMethod:aspectSelector |
4958 "browse or create the action method as entered in the field (button beside input filed pressed)" |
4962 "browse or create the action method as entered in the field (button beside input filed pressed)" |
4959 |
4963 |
5800 hideToolbar |
5804 hideToolbar |
5801 self toolBarVisibleHolder value:false |
5805 self toolBarVisibleHolder value:false |
5802 ! |
5806 ! |
5803 |
5807 |
5804 replaceWidgetByClass:aSpecOrWidgetClass |
5808 replaceWidgetByClass:aSpecOrWidgetClass |
5805 |specClass oldSpec newSpec painter| |
5809 |newSpecClass oldSpec newSpec| |
5806 |
5810 |
5807 (aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[ |
5811 (aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[ |
5808 specClass := aSpecOrWidgetClass. |
5812 newSpecClass := aSpecOrWidgetClass. |
5809 ] ifFalse:[ |
5813 ] ifFalse:[ |
5810 (aSpecOrWidgetClass isSubclassOf:View) ifTrue:[ |
5814 (aSpecOrWidgetClass isSubclassOf:View) ifTrue:[ |
5811 specClass := aSpecOrWidgetClass basicNew specClass. |
5815 newSpecClass := aSpecOrWidgetClass basicNew specClass. |
5812 ] ifFalse:[ |
5816 ] ifFalse:[ |
|
5817 newSpecClass := nil |
5813 ]. |
5818 ]. |
5814 ]. |
5819 ]. |
5815 specClass isNil ifTrue:[ |
5820 newSpecClass isNil ifTrue:[ |
5816 Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name. |
5821 Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name. |
5817 ^ self. |
5822 ^ self. |
5818 ]. |
5823 ]. |
5819 |
5824 |
5820 treeView isCanvasSelected ifTrue:[ |
5825 treeView isCanvasSelected ifTrue:[ |
5821 ^ self |
5826 ^ self |
5822 ]. |
5827 ]. |
5823 oldSpec := self selectedSpec. |
5828 oldSpec := self selectedSpec. |
5824 newSpec := specClass cloneFrom:oldSpec. |
5829 newSpec := newSpecClass cloneFrom:oldSpec. |
5825 |
5830 |
5826 painter := self painter. |
5831 self painter replaceSelectionBy:newSpec. |
5827 painter replaceSelectionBy:newSpec. |
5832 |
|
5833 "Modified: / 05-09-2012 / 19:24:40 / cg" |
5828 ! |
5834 ! |
5829 |
5835 |
5830 useBackgroundImage |
5836 useBackgroundImage |
5831 "select bitmap to underly" |
5837 "select bitmap to underly" |
5832 |
5838 |