--- a/ActiveHelpView.st	Thu Dec 07 22:25:39 1995 +0100
+++ b/ActiveHelpView.st	Thu Dec 07 22:46:32 1995 +0100
@@ -12,8 +12,6 @@
 
 
 
-'From Smalltalk/X, Version:2.10.5 on 26-mar-1995 at 10:19:24 am'!
-
 View subclass:#ActiveHelpView
 	 instanceVariableNames:'myView'
 	 classVariableNames:''
@@ -23,22 +21,6 @@
 
 !ActiveHelpView class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.5 1995-11-11 16:04:09 cg Exp $'
-!
-
-documentation
-"
-    a talking view.
-    Instances of myself show up either as a comics-like talking
-    view, or as a simple square popup. This is configured via the
-    styleSheet; the default is simple-square. To get the fancy cmics
-    view, add a resource 'activeHelpStyle' with a symbol-value of #cartoon.
-    However, be aware that some servers have performance problems with
-    these view-shapes (or do not support shapes at all).
-"
-!
-
 copyright
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
@@ -53,6 +35,18 @@
 "
 
 
+!
+
+documentation
+"
+    a talking view.
+    Instances of myself show up either as a comics-like talking
+    view, or as a simple square popup. This is configured via the
+    styleSheet; the default is simple-square. To get the fancy cmics
+    view, add a resource 'activeHelpStyle' with a symbol-value of #cartoon.
+    However, be aware that some servers have performance problems with
+    these view-shapes (or do not support shapes at all).
+"
 ! !
 
 !ActiveHelpView class methodsFor:'instance creation'!
@@ -82,16 +76,49 @@
     "
 ! !
 
-!ActiveHelpView methodsFor:'initialization'!
+!ActiveHelpView methodsFor:'accessing'!
+
+contents:someText
+    (myView isKindOf:Label) ifTrue:[
+	myView label:someText asString.
+	myView extent:(myView preferredExtent).
+    ] ifFalse:[
+	myView contents:someText.
+    ].
+    self resizeToFit
+!
+
+createOnTop
+    ^ true
+!
+
+isPopUpView
+    ^ true
+!
 
-realize
-    self create.
-    self computeShape.
-    self enableMotionEvents.
-    self enableButtonMotionEvents.
-    super realize
+withView:aView
+    (aView isKindOf:Label) ifTrue:[
+	aView viewBackground:viewBackground.
+	aView backgroundColor:viewBackground.
+    ].
+    self addSubView:aView.
+    myView := aView.
+    myView borderWidth:0
+! !
+
+!ActiveHelpView methodsFor:'events'!
+
+XXsizeChanged:how
+    super sizeChanged:how.
+    self computeShape
 !
 
+redraw
+    self fill:White
+! !
+
+!ActiveHelpView methodsFor:'initialization'!
+
 initStyle
     super initStyle.
 
@@ -105,36 +132,14 @@
     (styleSheet at:'activeHelpStyle' default:nil) == #cartoon ifTrue:[
 	self viewBackground:White
     ]
-! !
-
-!ActiveHelpView methodsFor:'accessing'!
-
-withView:aView
-    (aView isKindOf:Label) ifTrue:[
-	aView viewBackground:viewBackground.
-	aView backgroundColor:viewBackground.
-    ].
-    self addSubView:aView.
-    myView := aView.
-    myView borderWidth:0
 !
 
-createOnTop
-    ^ true
-!
-
-isPopUpView
-    ^ true
-!
-
-contents:someText
-    (myView isKindOf:Label) ifTrue:[
-	myView label:someText asString.
-	myView extent:(myView preferredExtent).
-    ] ifFalse:[
-	myView contents:someText.
-    ].
-    self resizeToFit
+realize
+    self create.
+    self computeShape.
+    self enableMotionEvents.
+    self enableButtonMotionEvents.
+    super realize
 ! !
 
 !ActiveHelpView methodsFor:'private'!
@@ -260,13 +265,8 @@
     ]
 ! !
 
-!ActiveHelpView methodsFor:'events'!
+!ActiveHelpView class methodsFor:'documentation'!
 
-redraw
-    self fill:White
-!
-
-XXsizeChanged:how
-    super sizeChanged:how.
-    self computeShape
+version
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelpView.st,v 1.6 1995-12-07 21:46:32 cg Exp $'
 ! !