#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.
--- 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