equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995-1998 by eXept Software AG |
2 COPYRIGHT (c) 1995-1998 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6121 warn:(resources |
6119 warn:(resources |
6122 stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.' |
6120 stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.' |
6123 with:extentUsed printString allBold) |
6121 with:extentUsed printString allBold) |
6124 ]. |
6122 ]. |
6125 |
6123 |
6126 code := painter generateWindowSpecMethodSource withCRs. |
6124 code := painter generateWindowSpecMethodSource. |
6127 Class packageQuerySignal answer:specClass package do:[ |
6125 Class packageQuerySignal answer:specClass package do:[ |
6128 (ReadStream on:code) fileIn. |
6126 (ReadStream on:code) fileIn. |
6129 ]. |
6127 ]. |
6130 self doGenerateAspectSelectorsMethod. |
6128 self doGenerateAspectSelectorsMethod. |
6131 self helpTool doSave. |
6129 self helpTool doSave. |