--- a/Form.st Tue Oct 18 11:11:23 2016 +0200
+++ b/Form.st Tue Oct 18 11:12:07 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1312,7 +1314,7 @@
"/ 'Form [info]: create from data' printCR.
^ self class width:width height:height fromArray:data onDevice:aDevice
].
- 'Form [warning]: no bit data in #onDevice: - returning a black form.' infoPrintCR.
+ Logger warning:'no bit data in #onDevice: - returning a black form'.
^ (self class width:width height:height onDevice:aDevice) clear
"Modified: / 27.7.1998 / 20:05:20 / cg"