SimpleView.st
branchjv
changeset 7083 db3f7c2127ef
parent 7036 530b3e1c64c3
parent 7081 4778f0077b54
child 7099 b19d8c33b045
--- a/SimpleView.st	Tue Dec 08 06:41:25 2015 +0100
+++ b/SimpleView.st	Sat Dec 12 06:55:40 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -3173,10 +3171,20 @@
     ]
 !
 
+maxExtent
+    ^ self getAttribute:#maxExtent.
+!
+
+maxExtent:aPoint
+    ^ self setAttribute:#maxExtent to:aPoint.
+!
+
 minExtent
-    "for compatibility with StdSysView"
-
-    ^ nil
+    ^ self getAttribute:#minExtent.
+!
+
+minExtent:aPoint
+    ^ self setAttribute:#minExtent to:aPoint.
 !
 
 origin
@@ -7863,6 +7871,7 @@
     subViews := nil
 ! !
 
+
 !SimpleView methodsFor:'keyboard control'!
 
 defineShortcutAndTranslateLabelStringFrom:aString