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