equal
deleted
inserted
replaced
2184 applWindow client:layoutTool spec:#windowSpec builder:applBuilder. |
2184 applWindow client:layoutTool spec:#windowSpec builder:applBuilder. |
2185 applBuilder window:applWindow. |
2185 applBuilder window:applWindow. |
2186 layoutTool modifiedHolder:modifiedChannel. |
2186 layoutTool modifiedHolder:modifiedChannel. |
2187 |
2187 |
2188 helpTool := UIHelpTool new. |
2188 helpTool := UIHelpTool new. |
2189 helpTool createBuilder. |
|
2190 applBuilder := helpTool builder. |
2189 applBuilder := helpTool builder. |
2191 applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
2190 applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
2192 applWindow level:0. |
2191 applWindow level:0. |
2193 helpTool buildFromClass:specClass. |
2192 helpTool buildFromClass:specClass. |
2194 helpTool masterApplication:self. |
2193 helpTool masterApplication:self. |
2361 ]. |
2360 ]. |
2362 |
2361 |
2363 editor := MenuEditor new. |
2362 editor := MenuEditor new. |
2364 editor masterApplication:self. |
2363 editor masterApplication:self. |
2365 editor specClass: cls. |
2364 editor specClass: cls. |
2366 editor useHelpTool: self helpTool. |
2365 editor useHelpTool:(self helpTool). |
2367 |
2366 |
2368 selectorOrMenu class ~~ Menu |
2367 selectorOrMenu class ~~ Menu |
2369 ifTrue: [editor openModalOnClass:cls andSelector:selectorOrMenu] |
2368 ifTrue: [editor openModalOnClass:cls andSelector:selectorOrMenu] |
2370 ifFalse: [editor openModalOnMenu:selectorOrMenu]. |
2369 ifFalse: [editor openModalOnMenu:selectorOrMenu]. |
2371 |
|
2372 self helpTool updateList. |
|
2373 |
2370 |
2374 editor hasSaved ifTrue:[ |
2371 editor hasSaved ifTrue:[ |
2375 holder := self specTool aspectFor:#menuSelector. |
2372 holder := self specTool aspectFor:#menuSelector. |
2376 holder value:(editor specSelector). |
2373 holder value:(editor specSelector). |
2377 self accept. |
2374 self accept. |
2378 ^ self |
2375 ^ self |
2379 ]. |
2376 ]. |
2380 ! |
2377 ! |
2381 |
2378 |
2382 openHierarchicalListEditor |
2379 openHierarchicalListEditor |
2383 "opens a Hierarchical List Editor on current widget" |
2380 "opens a Hierarchical List Editor on current widget" |
2872 |
2869 |
2873 specClass := aClass isBehavior ifTrue:[aClass name] |
2870 specClass := aClass isBehavior ifTrue:[aClass name] |
2874 ifFalse:[aClass]. |
2871 ifFalse:[aClass]. |
2875 |
2872 |
2876 self helpTool buildFromClass:specClass. |
2873 self helpTool buildFromClass:specClass. |
2877 self helpTool updateList. |
|
2878 self clearModifiedFlag. |
2874 self clearModifiedFlag. |
2879 |
|
2880 ! ! |
2875 ! ! |
2881 |
2876 |
2882 !UIPainter methodsFor:'private tools'! |
2877 !UIPainter methodsFor:'private tools'! |
2883 |
2878 |
2884 helpTool |
2879 helpTool |
3838 |
3833 |
3839 code := painter generateWindowSpecMethodSource withCRs. |
3834 code := painter generateWindowSpecMethodSource withCRs. |
3840 (ReadStream on:code) fileIn. |
3835 (ReadStream on:code) fileIn. |
3841 |
3836 |
3842 self doGenerateAspectSelectorsMethod. |
3837 self doGenerateAspectSelectorsMethod. |
3843 |
3838 self helpTool doSave. |
3844 self helpTool installHelpSpecsOnClass:specClass. |
|
3845 |
|
3846 self updateInfoLabel. |
3839 self updateInfoLabel. |
|
3840 |
3847 modified := false. |
3841 modified := false. |
3848 painter resetModification. |
3842 painter resetModification. |
3849 (cls class includesSelector: specSelector) ifTrue:[ |
3843 (cls class includesSelector: specSelector) ifTrue:[ |
3850 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
3844 self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:. |
3851 ]. |
3845 ]. |