--- a/ModalBox.st	Wed May 30 13:42:10 2007 +0200
+++ b/ModalBox.st	Wed May 30 13:42:18 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libview' }"
 
 StandardSystemView subclass:#ModalBox
@@ -336,7 +335,7 @@
                                  2r00001111
                                  2r00011111 
                                 ]
-                     on:device.
+                     onDevice:device.
         resizeButton := Button label:form in:self.
         resizeButton origin:1.0 @ 1.0 corner:1.0@1.0.
         resizeButton activeForegroundColor:(resizeButton foregroundColor).
@@ -359,7 +358,7 @@
                                  2r00000000
                                  2r00000000 
                                 ]
-                     on:device.
+                     onDevice:device.
         moveButton := Button label:form in:self.
         moveButton origin:0.0 @ 0.0 corner:0.0@0.0.
         moveButton activeForegroundColor:(moveButton foregroundColor).
@@ -913,7 +912,7 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.92 2005-07-26 08:51:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.93 2007-05-30 11:42:18 stefan Exp $'
 ! !
 
 ModalBox initialize!