--- a/Form.st	Mon Jan 17 12:09:09 2000 +0100
+++ b/Form.st	Mon Jan 17 12:11:16 2000 +0100
@@ -329,17 +329,7 @@
     "Modified: 18.1.1997 / 18:26:31 / cg"
 ! !
 
-!Form class methodsFor:'Compatibility - Squeak'!
-
-extent:ext depth:d fromArray:data offset:offs
-
-    d ~~ 1 ifTrue:[self halt:'unsupported depth'].       
-    ^self width:(ext x) height:(ext y) offset:offs fromArray:data
-
-
-! !
-
-!Form class methodsFor:'ST-80 compatibility'!
+!Form class methodsFor:'Compatibility - ST80'!
 
 and
     "return a constant usable as bitblt-combinationrule.
@@ -472,6 +462,16 @@
     "Modified: 2.5.1996 / 11:42:50 / cg"
 ! !
 
+!Form class methodsFor:'Compatibility - Squeak'!
+
+extent:ext depth:d fromArray:data offset:offs
+
+    d ~~ 1 ifTrue:[self halt:'unsupported depth'].       
+    ^self width:(ext x) height:(ext y) offset:offs fromArray:data
+
+
+! !
+
 !Form class methodsFor:'cleanup'!
 
 lowSpaceCleanup
@@ -765,7 +765,7 @@
 	2r00000000)
 ! !
 
-!Form methodsFor:'Compatibility - ST-80'!
+!Form methodsFor:'Compatibility - ST80'!
 
 destroy
     "destroy my underlying device resource(s)"
@@ -2047,6 +2047,6 @@
 !Form class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.108 2000-01-12 15:18:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.109 2000-01-17 11:11:16 cg Exp $'
 ! !
 Form initialize!