--- a/Form.st	Tue Mar 06 20:37:29 2018 +0100
+++ b/Form.st	Wed Mar 07 17:55:09 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -896,6 +898,14 @@
 
 magnify:aRectangle by:scale smoothing:smooth
     ^ ((Image fromSubForm:aRectangle in:self) magnifiedBy:scale) asFormOn:device.
+!
+
+pixelAt:aPoint
+    ^ self valueAt:aPoint
+!
+
+pixelAt:aPoint put:aPixelValue
+    ^ self valueAt:aPoint put:aPixelValue
 ! !
 
 !Form methodsFor:'accessing'!