--- a/Form.st Tue May 10 10:13:07 2016 +0200
+++ b/Form.st Tue May 10 14:24:42 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -291,7 +293,7 @@
width:w height:h depth:d onDevice:aDevice
"create a new form with depth d on device, aDevice"
- ^ (self onDevice:aDevice) width:w height:h depth:d
+ ^ (self onDevice:aDevice) width:w height:h depth:d.
"Modified: 18.1.1997 / 18:26:03 / cg"
!
@@ -1241,7 +1243,6 @@
! !
-
!Form methodsFor:'converting'!
asForm
@@ -1908,7 +1909,9 @@
].
device notNil ifTrue:[
gc createPixmapWidth:w height:h depth:d.
- realized := true.
+ drawableId notNil ifTrue:[
+ realized := true.
+ ].
].
!