--- a/Separator.st	Thu Nov 23 00:25:21 1995 +0100
+++ b/Separator.st	Thu Nov 23 01:53:37 1995 +0100
@@ -11,8 +11,6 @@
 "
 
 
-'From Smalltalk/X, Version:2.10.5 on 11-may-1995 at 2:19:42 am'!
-
 SimpleView subclass:#Separator
 	 instanceVariableNames:'orientation'
 	 classVariableNames:''
@@ -37,6 +35,17 @@
 
 !
 
+documentation 
+"
+    a simple widget for a separating line. 
+    To be placed between groups of other widgets.
+
+    See examples.
+
+    See also: FramedBox  VariableVerticalPanel  VariableHorizontalPanel
+"
+!
+
 examples
 "
   a separator between two button-panels:
@@ -128,18 +137,21 @@
 !
 
 version 
-    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.6 1995-11-11 16:29:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Separator.st,v 1.7 1995-11-23 00:53:37 cg Exp $'
+! !
+
+!Separator methodsFor:'accessing'!
+
+orientation
+    "return the orientation (one of #horizontal or #vertical)"
+
+    ^ orientation
 !
 
-documentation 
-"
-    a simple widget for a separating line. 
-    To be placed between groups of other widgets.
+orientation:aSymbol
+    "set the orientation to one of #horizontal or #vertical"
 
-    See examples.
-
-    See also: FramedBox  VariableVerticalPanel  VariableHorizontalPanel
-"
+    orientation := aSymbol
 ! !
 
 !Separator methodsFor:'drawing'!
@@ -168,23 +180,10 @@
     ]
 ! !
 
-!Separator methodsFor:'accessing'!
-
-orientation
-    "return the orientation (one of #horizontal or #vertical)"
-
-    ^ orientation
-!
-
-orientation:aSymbol
-    "set the orientation to one of #horizontal or #vertical"
-
-    orientation := aSymbol
-! !
-
 !Separator methodsFor:'initialization'!
 
 initialize
     super initialize.
     borderWidth := 0
 ! !
+