--- a/UISpecificationTool.st Wed Oct 29 19:03:07 1997 +0100
+++ b/UISpecificationTool.st Wed Oct 29 19:04:05 1997 +0100
@@ -363,6 +363,35 @@
! !
+!UISpecificationTool methodsFor:'actions'!
+
+setMaxExtent
+ "set the windows maxExtent from its current extent"
+
+ |canvas currentExtent|
+
+ canvas := self masterApplication painter topView.
+ currentExtent := canvas extent.
+ (self aspectFor:#maxX) value:currentExtent x.
+ (self aspectFor:#maxY) value:currentExtent y.
+
+ "Modified: / 29.10.1997 / 18:29:17 / cg"
+!
+
+setMinExtent
+ "set the windows minExtent from its current extent"
+
+ |canvas currentExtent|
+
+ canvas := self masterApplication painter topView.
+ currentExtent := canvas extent.
+ (self aspectFor:#minX) value:currentExtent x.
+ (self aspectFor:#minY) value:currentExtent y.
+
+ "Created: / 29.10.1997 / 18:17:55 / cg"
+ "Modified: / 29.10.1997 / 18:28:53 / cg"
+! !
+
!UISpecificationTool methodsFor:'bindings'!
aspectFor:aKey