FlyByHelp.st
changeset 2519 af89806c67e4
parent 2518 fc1d2b481b6e
child 2521 7e51aa294156
equal deleted inserted replaced
2518:fc1d2b481b6e 2519:af89806c67e4
    59 ! !
    59 ! !
    60 
    60 
    61 !FlyByHelp methodsFor:'event handling'!
    61 !FlyByHelp methodsFor:'event handling'!
    62 
    62 
    63 buttonMotion:buttonAndModifierState x:x y:y view:aView
    63 buttonMotion:buttonAndModifierState x:x y:y view:aView
    64     aView == currentHelpView ifTrue:[^ false].
    64     aView == currentHelpView ifTrue:[
       
    65         "/ the help-bubble itself
       
    66         ^ false
       
    67     ].
       
    68 
    65     "/ don't start tooltip, if this view is not active
    69     "/ don't start tooltip, if this view is not active
    66     "/ aView topView isActive ifFalse:[^ false].
    70     "/ aView topView isActive ifFalse:[^ false].
    67 
    71 
    68     ^ super buttonMotion:buttonAndModifierState x:x y:y view:aView
    72     ^ super buttonMotion:buttonAndModifierState x:x y:y view:aView
    69 !
    73 !
   292 ! !
   296 ! !
   293 
   297 
   294 !FlyByHelp class methodsFor:'documentation'!
   298 !FlyByHelp class methodsFor:'documentation'!
   295 
   299 
   296 version
   300 version
   297     ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.21 2008-07-09 15:30:16 cg Exp $'
   301     ^ '$Header: /cvs/stx/stx/libview2/FlyByHelp.st,v 1.22 2008-07-12 13:54:02 cg Exp $'
   298 ! !
   302 ! !
   299 
   303 
   300 FlyByHelp initialize!
   304 FlyByHelp initialize!