SimpleView.st
changeset 8733 7ae33592f1a7
parent 8725 9d6b72144c9c
child 8734 de0c9b4d22b9
--- 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."