--- a/Form.st	Sun May 12 21:36:20 1996 +0200
+++ b/Form.st	Sun May 12 21:38:22 1996 +0200
@@ -2165,9 +2165,14 @@
 !Form methodsFor:'queries '!
 
 heightOn:aGC
+    "return my height, if displayed on aGC;
+     since my height is independent of the device (the number of pixels),
+     return the pixel-height"
+
     ^ self height
 
     "Created: 12.5.1996 / 21:35:33 / cg"
+    "Modified: 12.5.1996 / 21:37:40 / cg"
 !
 
 isForm
@@ -2185,14 +2190,19 @@
 !
 
 widthOn:aGC
+    "return my width, if displayed on aGC;
+     since my width is independent of the device (the number of pixels),
+     return the pixel-width"
+
     ^ self width
 
     "Created: 12.5.1996 / 21:35:29 / cg"
+    "Modified: 12.5.1996 / 21:37:33 / cg"
 ! !
 
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.45 1996-05-12 19:36:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.46 1996-05-12 19:37:50 cg Exp $'
 ! !
 Form initialize!