--- a/ModalBox.st	Thu Jul 24 16:07:45 1997 +0200
+++ b/ModalBox.st	Thu Jul 24 16:08:25 1997 +0200
@@ -302,7 +302,7 @@
                                  2r00011111 
                                 ]
                      on:device.
-        resizeButton := Button form:form in:self.
+        resizeButton := Button label:form in:self.
         resizeButton origin:1.0 @ 1.0 corner:1.0@1.0.
         resizeButton activeForegroundColor:(resizeButton foregroundColor).
         resizeButton activeBackgroundColor:(resizeButton backgroundColor).
@@ -325,7 +325,7 @@
                                  2r00000000 
                                 ]
                      on:device.
-        moveButton := Button form:form in:self.
+        moveButton := Button label:form in:self.
         moveButton origin:0.0 @ 0.0 corner:0.0@0.0.
         moveButton activeForegroundColor:(moveButton foregroundColor).
         moveButton activeBackgroundColor:(moveButton backgroundColor).
@@ -338,7 +338,7 @@
         moveButton cursor:(Cursor origin)
     ].
 
-    "Modified: 28.5.1996 / 22:04:38 / cg"
+    "Modified: 24.7.1997 / 16:08:11 / cg"
 !
 
 isPopUpView
@@ -827,6 +827,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.56 1997-07-24 14:07:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.57 1997-07-24 14:08:25 cg Exp $'
 ! !
 ModalBox initialize!