UIPainter.st
changeset 3222 85db156be933
parent 3218 16b714603368
child 3228 1653d1bda447
equal deleted inserted replaced
3221:0bd301f4d1e1 3222:85db156be933
     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.