Tools__CodeNavigationService.st
changeset 18327 e2046aa4fdfd
parent 17040 84e03a037118
child 18343 f56ba9efec85
equal deleted inserted replaced
18326:c2ae10554566 18327:e2046aa4fdfd
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
     4  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5 Permission is hereby granted, free of charge, to any person
     7 Permission is hereby granted, free of charge, to any person
   413         sensor := view sensor.
   415         sensor := view sensor.
   414 
   416 
   415         "/ ("ctrlDown" "key == #'Control_L' or:[ key == #Ctrl ]") ifTrue:[
   417         "/ ("ctrlDown" "key == #'Control_L' or:[ key == #Ctrl ]") ifTrue:[
   416         (textView isQuickMenuModifierPressed) ifTrue:[
   418         (textView isQuickMenuModifierPressed) ifTrue:[
   417             "/ because it is delegated, the position is not correct
   419             "/ because it is delegated, the position is not correct
   418             ev := WindowGroup lastEventQuerySignal query.
   420             ev := WindowGroup lastEvent.
   419             p := view device translatePoint:(ev x @ ev y) fromView:ev view toView:view.
   421             p := view device translatePoint:(ev x @ ev y) fromView:ev view toView:view.
   420             sensor 
   422             sensor 
   421                 pushUserEvent:#highlightElementAtX:y: 
   423                 pushUserEvent:#highlightElementAtX:y: 
   422                 for: self 
   424                 for: self 
   423                 withArguments:{p x. p y.}.
   425                 withArguments:{p x. p y.}.
   454     ^ false
   456     ^ false
   455 
   457 
   456     "Created: / 06-03-2010 / 20:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   458     "Created: / 06-03-2010 / 20:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   457     "Modified: / 05-09-2011 / 05:17:30 / cg"
   459     "Modified: / 05-09-2011 / 05:17:30 / cg"
   458     "Modified: / 18-09-2013 / 15:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   460     "Modified: / 18-09-2013 / 15:20:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
   461     "Modified: / 09-08-2018 / 10:32:11 / Claus Gittinger"
   459 !
   462 !
   460 
   463 
   461 keyRelease: key x:x y:y in: view
   464 keyRelease: key x:x y:y in: view
   462     "Handles an event in given view (a subview of codeView).
   465     "Handles an event in given view (a subview of codeView).
   463      If the method returns true, it has eaten the event and it will not be processed
   466      If the method returns true, it has eaten the event and it will not be processed