UISpecificationTool.st
changeset 364 c175e197f050
parent 350 28128eeb98f0
child 367 5a78ebab56ff
equal deleted inserted replaced
363:10683a97de93 364:c175e197f050
   361         modifiedHolder addDependent:self.
   361         modifiedHolder addDependent:self.
   362     ].
   362     ].
   363 
   363 
   364 ! !
   364 ! !
   365 
   365 
       
   366 !UISpecificationTool methodsFor:'actions'!
       
   367 
       
   368 setMaxExtent
       
   369     "set the windows maxExtent from its current extent"
       
   370 
       
   371     |canvas currentExtent|
       
   372 
       
   373     canvas := self masterApplication painter topView.
       
   374     currentExtent := canvas extent.
       
   375     (self aspectFor:#maxX) value:currentExtent x.
       
   376     (self aspectFor:#maxY) value:currentExtent y.
       
   377 
       
   378     "Modified: / 29.10.1997 / 18:29:17 / cg"
       
   379 !
       
   380 
       
   381 setMinExtent
       
   382     "set the windows minExtent from its current extent"
       
   383 
       
   384     |canvas currentExtent|
       
   385 
       
   386     canvas := self masterApplication painter topView.
       
   387     currentExtent := canvas extent.
       
   388     (self aspectFor:#minX) value:currentExtent x.
       
   389     (self aspectFor:#minY) value:currentExtent y.
       
   390 
       
   391     "Created: / 29.10.1997 / 18:17:55 / cg"
       
   392     "Modified: / 29.10.1997 / 18:28:53 / cg"
       
   393 ! !
       
   394 
   366 !UISpecificationTool methodsFor:'bindings'!
   395 !UISpecificationTool methodsFor:'bindings'!
   367 
   396 
   368 aspectFor:aKey
   397 aspectFor:aKey
   369     "returns aspect for a key or nil
   398     "returns aspect for a key or nil
   370     "
   399     "