Use Form class>>#width:height:fromArray:onDevice: instead of obsolete
Form class>>#width:height:fromArray:on:
--- 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!