equal
deleted
inserted
replaced
2638 aView beIndependent. |
2638 aView beIndependent. |
2639 aView unmap. |
2639 aView unmap. |
2640 ! |
2640 ! |
2641 |
2641 |
2642 raiseTabView |
2642 raiseTabView |
2643 |appl| |
|
2644 |
2643 |
2645 self isLayoutToolSelected ifTrue:[ |
2644 self isLayoutToolSelected ifTrue:[ |
2646 helpTool window unmap. |
2645 helpTool window unmap. |
2647 specTool window unmap. |
2646 specTool window unmap. |
2648 layoutTool window realize. |
2647 layoutTool window realize. |
2658 specTool window realize. |
2657 specTool window realize. |
2659 |
2658 |
2660 "/ specTool selection:tabSelection. |
2659 "/ specTool selection:tabSelection. |
2661 ] |
2660 ] |
2662 ] |
2661 ] |
2663 |
|
2664 ! |
2662 ! |
2665 |
2663 |
2666 raiseUIView:aView |
2664 raiseUIView:aView |
2667 "raise the view which is an application or top view" |
2665 "raise the view which is an application or top view" |
2668 |
2666 |
3631 ! |
3629 ! |
3632 |
3630 |
3633 doSave |
3631 doSave |
3634 "saves the window spec" |
3632 "saves the window spec" |
3635 |
3633 |
3636 |code painter cls ns| |
3634 |code painter cls| |
3637 |
3635 |
3638 self askForSectionModification. |
3636 self askForSectionModification. |
3639 |
3637 |
3640 self hasSpecClassAndSelector ifFalse:[ |
3638 self hasSpecClassAndSelector ifFalse:[ |
3641 self doDefineClassAndSelector isNil ifTrue: [^nil] |
3639 self doDefineClassAndSelector isNil ifTrue: [^nil] |
3841 ! |
3839 ! |
3842 |
3840 |
3843 canvasSpec |
3841 canvasSpec |
3844 "returns spec assigned to canvas" |
3842 "returns spec assigned to canvas" |
3845 |
3843 |
3846 |spec list key block cls canvas modelBlock| |
3844 |spec list cls canvas| |
3847 |
3845 |
3848 spec := self windowSpecClass new. |
3846 spec := self windowSpecClass new. |
3849 canvas := self canvas. |
3847 canvas := self canvas. |
3850 |
3848 |
3851 spec fromView:(canvas topView) callBack:nil. |
3849 spec fromView:(canvas topView) callBack:nil. |