Form.st
changeset 7354 4a9f164c4605
parent 7260 5b9f9cbd2435
child 7355 b54b8aebbb90
--- 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.
+        ].
     ].
 !