equal
deleted
inserted
replaced
3148 showAtPointer; |
3148 showAtPointer; |
3149 accepted) ifFalse: [^false]. |
3149 accepted) ifFalse: [^false]. |
3150 self clearModified. |
3150 self clearModified. |
3151 painter resetModification |
3151 painter resetModification |
3152 ]. |
3152 ]. |
3153 ^true |
3153 ^ true |
3154 |
3154 |
3155 "Modified: / 20.5.1998 / 02:03:16 / cg" |
3155 "Modified: / 20.5.1998 / 02:03:16 / cg" |
3156 ! |
3156 ! |
3157 |
3157 |
3158 askForSaving |
3158 askForSaving |
4773 |
4773 |
4774 "/ Transcript showCR:'generating windowSpec code...'. |
4774 "/ Transcript showCR:'generating windowSpec code...'. |
4775 |
4775 |
4776 extentUsed := self canvas extent. |
4776 extentUsed := self canvas extent. |
4777 (extentUsed > (1024 @ 768)) ifTrue:[ |
4777 (extentUsed > (1024 @ 768)) ifTrue:[ |
4778 "/ (extentUsed > (800 @ 600)) ifTrue:[ |
|
4779 Dialog |
4778 Dialog |
4780 warn:(resources |
4779 warn:(resources |
4781 stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.' |
4780 stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.' |
4782 with:extentUsed printString allBold) |
4781 with:extentUsed printString allBold) |
4783 ]. |
4782 ]. |
4805 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
4804 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
4806 |
4805 |
4807 |classAndSelector| |
4806 |classAndSelector| |
4808 |
4807 |
4809 self askForSectionModification. |
4808 self askForSectionModification. |
4810 self askForModification ifFalse:[^ false]. |
4809 self hasSpecClassAndSelector ifTrue:[ |
|
4810 self askForModification ifFalse:[^ false]. |
|
4811 ]. |
4811 |
4812 |
4812 classAndSelector := ResourceSelectionBrowser |
4813 classAndSelector := ResourceSelectionBrowser |
4813 request: 'Save Window Spec In Class' |
4814 request: 'Save Window Spec In Class' |
4814 onSuperclass: #Object |
4815 onSuperclass: #Object |
4815 andClass: (specClassName ? #ApplicationModel) asSymbol |
4816 andClass: (specClassName ? #ApplicationModel) asSymbol |