equal
deleted
inserted
replaced
1664 !UIPainter methodsFor:'startup / release'! |
1664 !UIPainter methodsFor:'startup / release'! |
1665 |
1665 |
1666 closeRequest |
1666 closeRequest |
1667 "close all windows open by builder |
1667 "close all windows open by builder |
1668 " |
1668 " |
1669 |anyUnsavedChanges| |
|
1670 |
|
1671 self painter isModified ifTrue:[ |
1669 self painter isModified ifTrue:[ |
1672 (self confirm:'quit without saving ?') ifFalse:[ |
1670 (self confirm:'quit without saving ?') ifFalse:[ |
1673 ^ self |
1671 ^ self |
1674 ] |
1672 ] |
1675 ]. |
1673 ]. |
2154 |
2152 |
2155 "Modified: 17.6.1997 / 14:40:21 / cg" |
2153 "Modified: 17.6.1997 / 14:40:21 / cg" |
2156 ! |
2154 ! |
2157 |
2155 |
2158 doWindowSpec |
2156 doWindowSpec |
2159 |code code2 v| |
2157 |code v| |
2160 |
2158 |
2161 code := self painter generateWindowSpecMethodSource. |
2159 code := self painter generateWindowSpecMethodSource. |
2162 |
2160 |
2163 v := CodeView open. |
2161 v := CodeView open. |
2164 v contents:code. |
2162 v contents:code. |
2680 canvas pasteWithLayout. |
2678 canvas pasteWithLayout. |
2681 ] |
2679 ] |
2682 ! |
2680 ! |
2683 |
2681 |
2684 doStepOut |
2682 doStepOut |
2685 |item next prnt prop spVw index canvas to| |
2683 |item next prnt canvas| |
2686 |
2684 |
2687 ( (item := self selectedNode) isNil |
2685 ( (item := self selectedNode) isNil |
2688 or:[(prnt := item parent) isNil |
2686 or:[(prnt := item parent) isNil |
2689 or:[(next := prnt parent) isNil]] |
2687 or:[(next := prnt parent) isNil]] |
2690 ) ifTrue:[ |
2688 ) ifTrue:[ |