#QUALITY by stefan
authorStefan Vogel <sv@exept.de>
Tue, 10 Mar 2020 15:19:04 +0100
changeset 6844 235a4c848100
parent 6843 6c5e543e903e
child 6845 505264a24615
#QUALITY by stefan class: Label changed: #layout: only obsolte with symbol argument
Label.st
--- a/Label.st	Fri Mar 06 21:56:26 2020 +0100
+++ b/Label.st	Tue Mar 10 15:19:04 2020 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1273,23 +1271,20 @@
     self newLayout
 !
 
-layout:something
+layout:aLayoutFrame
+    "set the layout of the Label"
+
+    aLayoutFrame isSymbol ifFalse:[^ super layout:aLayoutFrame].
+
     "OBSOLETE compatibility interface. Will vanish.
      for protocol compatibility: alias for #adjust:.
      Please use #adjust:, since #layout: conflicts with a method
-     in VW (which has a completely different meaning).
-     In future versions of ST/X, #layout: will behave the VW way.
-     In the meantime, try to figure out what is meant ... a kludge"
-
-    <resource:#obsolete>
-
-    self obsoleteMethodWarning.
-    something isSymbol ifFalse:[^ super layout:something].
-
+     in VW (which has a completely different meaning)."
     self obsoleteMethodWarning:'use #adjust:'.
-    self adjust:something
-
-    "Modified: 31.8.1995 / 23:08:13 / claus"
+    self adjust:aLayoutFrame    "/ here it is a symbol
+
+    "Modified: / 31-08-1995 / 23:08:13 / claus"
+    "Modified (comment): / 10-03-2020 / 14:15:00 / Stefan Vogel"
 !
 
 sizeFixed