--- a/Label.st	Sun Jun 15 12:09:05 1997 +0200
+++ b/Label.st	Mon Jun 16 11:48:14 1997 +0200
@@ -784,14 +784,20 @@
     "return a new Label showing a form.
      OBSOLETE: you should now use #label: for both text and bitmap labels."
 
-    ^ (self on:Screen current) form:aForm
+    self obsoleteMethodWarning:'use #label:'.
+    ^ (self onDevice:Screen current) form:aForm
+
+    "Modified: 16.6.1997 / 11:47:38 / cg"
 !
 
 form:aForm in:aView
     "return a new Label showing a form.
      OBSOLETE: you should now use #label:in: for both text and bitmap labels."
 
+    self obsoleteMethodWarning:'use #label:in:'.
     ^ (self in:aView) form:aForm
+
+    "Modified: 16.6.1997 / 11:47:57 / cg"
 ! !
 
 !Label class methodsFor:'defaults'!
@@ -1668,5 +1674,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.78 1997-06-06 14:39:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.79 1997-06-16 09:48:14 cg Exp $'
 ! !