--- 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