--- a/UIPainter.st	Wed Oct 29 19:04:05 1997 +0100
+++ b/UIPainter.st	Wed Oct 29 22:43:13 1997 +0100
@@ -1559,6 +1559,27 @@
     ]
 ! !
 
+!UIPainter methodsFor:'active help'!
+
+showHelp:aHelpText for:view
+    "display active help texts in my own info area."
+
+    |txt|
+
+    aHelpText isNil ifTrue:[
+        txt := nil
+    ] ifFalse:[
+        txt := self class 
+                convertString:(aHelpText asString)
+                maxLineSize:(transcript width // transcript font width).
+    ].
+    transcript hideCursor.
+    transcript contents:txt.
+    ^ true
+
+    "Modified: / 29.10.1997 / 22:33:55 / cg"
+! !
+
 !UIPainter methodsFor:'aspects'!
 
 canMoveOrAlignSelection
@@ -1818,23 +1839,6 @@
     transcript hideCursor.
     transcript contents:aText.
         
-!
-
-showHelp:aHelpText for:view
-    "hook to allow an application to display active help
-     texts in its own info area.
-     This method may be redefined in a concrete application.
-     If it returns false, the ActiveHelp manager will popup a
-     bubble with the help text."
-
-    |txt|
-
-    txt := self class convertString:(aHelpText asString)
-                        maxLineSize:(transcript width // transcript font width).
-
-    transcript hideCursor.
-    transcript contents:txt.
-  ^ true
 ! !
 
 !UIPainter methodsFor:'private'!