# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1516137244 -3600
# Node ID 77740c39cd3ffa34b7bc661cbd1f5cc0c9b55e15
# Parent  ccfbdacb3241a8143901483f46216cac3dc5f4a0
#OTHER by cg
big refactoring:
replaced all flyByHelpXXX sends and implementations
by helpXXX. This should remove the confusion on where
the tooltips should be stored and which methods need
to be redefined.
ATTENTION:
May introduce temporary inconveniences until all
other applications (in exept:xxx packages) are changed.

diff -r ccfbdacb3241 -r 77740c39cd3f TopView.st
--- a/TopView.st	Tue Jan 16 18:19:41 2018 +0100
+++ b/TopView.st	Tue Jan 16 22:14:04 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -283,6 +285,12 @@
     "
 ! !
 
+!TopView class methodsFor:'help'!
+
+helpSpec
+    ^ nil
+! !
+
 !TopView methodsFor:'Compatibility-ST80'!
 
 displayBox
@@ -721,24 +729,10 @@
      mouse-enter/leave time."
 
     ^ false
-!
-
-flyByHelpSpec
-    ^ nil
-
-    "FlyByHelp >> #helpTextFromView:at: calls this method:
-        aView topView flyByHelpSpec notNil"
 ! !
 
 !TopView methodsFor:'help stubs'!
 
-flyByHelpTextFor:aSubView
-    "this will vanish - it's temporarily here to allow for stdSysViews to be
-     used as a masterApp for dialogs"
-
-    ^ nil
-!
-
 helpTextFor:aSubView
     "this will vanish - it's temporarily here to allow for stdSysViews to be
      used as a masterApp for dialogs"
@@ -904,6 +898,12 @@
     ^ super withCursor:aCursor do:aBlock
 ! !
 
+!TopView methodsFor:'private'!
+
+helpSpec
+    ^ self class helpSpec
+! !
+
 !TopView methodsFor:'queries'!
 
 beepWhenOpening