--- a/Button.st	Thu Mar 05 11:20:32 2020 +0100
+++ b/Button.st	Fri Mar 06 12:56:46 2020 +0100
@@ -795,7 +795,8 @@
 
     <resource:#obsolete>
 
-    ^ ((self in:aView) form:aForm) action:aBlock
+    self obsoleteMethodWarning.
+    ^ (self in:aView) label:aForm; action:aBlock.
 !
 
 label:aLabel action:aBlock
@@ -1062,6 +1063,7 @@
 
     <resource:#obsolete>
 
+    self obsoleteMethodWarning.
     controller autoRepeat
 
     "Modified: 9.2.1996 / 22:42:37 / cg"
@@ -1506,6 +1508,7 @@
     "return the level of the button when released.
      Historic leftover; use #passiveLevel."
 
+    self obsoleteMethodWarning.
     ^ offLevel
 !
 
@@ -1514,6 +1517,7 @@
     "set the level of the button when released (i.e. how deep).
      Historic leftover; use #passiveLevel:."
 
+    self obsoleteMethodWarning.
     ^ self passiveLevel:aNumber
 !
 
@@ -1522,6 +1526,7 @@
     "return the level of the button when pressed.
      Historic leftover; use #activeLevel."
 
+    self obsoleteMethodWarning.
     ^ onLevel
 !
 
@@ -1530,6 +1535,7 @@
     "set the level of the button when pressed (i.e. how deep).
      Historic leftover; use #activeLevel:."
 
+    self obsoleteMethodWarning.
     ^ self activeLevel:aNumber
 !