--- a/SimpleView.st Tue Jul 16 15:06:06 2019 +0200
+++ b/SimpleView.st Tue Jul 16 16:40:22 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -3106,6 +3108,17 @@
"Modified: 19.7.1996 / 17:30:30 / cg"
!
+leftInset:lNumber rightInset:rNumber
+ "set the inset of the left edge;
+ positive is to the right (view becomes smaller),
+ negative to the left (becomes larger).
+ Obsolete: please use a layout object."
+
+ self leftInset:lNumber; rightInset:rNumber
+
+ "Created: / 16-07-2019 / 16:35:59 / Claus Gittinger"
+!
+
makeFullyVisible
"make sure that the view is fully visible by shifting it
into the visible screen area if necessary."