UIObjectView.st
changeset 3451 1c9aad7b074f
parent 3445 bd1aa4795dcf
child 3473 3449a8a8aecc
equal deleted inserted replaced
3450:28497108316d 3451:1c9aad7b074f
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1995 by eXept Software AG
     2  COPYRIGHT (c) 1995 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
  1144 
  1142 
  1145 resize:aComponent handle:aSymbol to:aPoint check:doCheck
  1143 resize:aComponent handle:aSymbol to:aPoint check:doCheck
  1146     "resize a views handle - if doCheck is true, only check if the handle would change
  1144     "resize a views handle - if doCheck is true, only check if the handle would change
  1147      (used to avoid flicker, when an aligned move would actually not move anything)"
  1145      (used to avoid flicker, when an aligned move would actually not move anything)"
  1148 
  1146 
       
  1147     <ignore: RBReturnsBooleanAndOtherRule rationale:'only returns boolean if doCheck' author:'cg'>
       
  1148     
  1149     |newX newY oldBottom oldTop oldLeft oldRight 
  1149     |newX newY oldBottom oldTop oldLeft oldRight 
  1150      oldOrigin oldCorner shiftTop shiftBottom shiftLeft shiftRight|
  1150      oldOrigin oldCorner shiftTop shiftBottom shiftLeft shiftRight|
  1151 
  1151 
  1152     aSymbol == #startPoint ifTrue:[
  1152     aSymbol == #startPoint ifTrue:[
  1153         doCheck ifTrue:[
  1153         doCheck ifTrue:[
  1217         self 
  1217         self 
  1218             shiftLayout:aComponent 
  1218             shiftLayout:aComponent 
  1219             top:shiftTop bottom:shiftBottom 
  1219             top:shiftTop bottom:shiftBottom 
  1220             left:shiftLeft right:shiftRight
  1220             left:shiftLeft right:shiftRight
  1221     ].
  1221     ].
       
  1222 
       
  1223     "Modified: / 16-07-2017 / 14:00:05 / cg"
  1222 !
  1224 !
  1223 
  1225 
  1224 resize:aView left:aPoint
  1226 resize:aView left:aPoint
  1225     "obsolete: resize a views left"
  1227     "obsolete: resize a views left"
  1226 
  1228