class: Tools::CodeNavigationService
authorClaus Gittinger <cg@exept.de>
Sun, 13 Apr 2014 14:08:14 +0200
changeset 14204 bee53f8e01ca
parent 14203 1e065ba59b2e
child 14205 733f2b55db73
class: Tools::CodeNavigationService changed: #keyRelease:x:y:in: does-nothing code removed
Tools__CodeNavigationService.st
--- a/Tools__CodeNavigationService.st	Sat Apr 12 23:35:04 2014 +0200
+++ b/Tools__CodeNavigationService.st	Sun Apr 13 14:08:14 2014 +0200
@@ -457,15 +457,15 @@
 
     |ev p|
 
-    (view == textView and:[textView isQuickMenuModifierReleased]) ifTrue:[
-        "/    (view == textView and:[key == #'Control_L' or:[key == #Ctrl]]) ifTrue:[
-        "/ because it is delegated, the position is not correct
-        ev := WindowGroup lastEventQuerySignal query.
-        p := view device translatePoint:(ev x @ ev y) fromView:ev view toView:view.
- "/       self highlightClear. 
-"/        view sensor pushUserEvent:#highlightClear for:self. 
-        ^ false "/ true -- do not eat the event
-    ].
+"/    (view == textView and:[textView isQuickMenuModifierReleased]) ifTrue:[
+"/        "/    (view == textView and:[key == #'Control_L' or:[key == #Ctrl]]) ifTrue:[
+"/        "/ because it is delegated, the position is not correct
+"/        ev := WindowGroup lastEventQuerySignal query.
+"/        p := view device translatePoint:(ev x @ ev y) fromView:ev view toView:view.
+"/ "/       self highlightClear. 
+"/ "/        view sensor pushUserEvent:#highlightClear for:self. 
+"/        ^ false "/ true -- do not eat the event
+"/    ].
     ^ false
 
     "Created: / 06-03-2010 / 21:03:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -841,14 +841,14 @@
 !CodeNavigationService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.45 2014-03-07 22:19:14 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.45 2014-03-07 22:19:14 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeNavigationService.st,v 1.45 2014-03-07 22:19:14 vrany Exp $'
+    ^ '$Id: Tools__CodeNavigationService.st,v 1.46 2014-04-13 12:08:14 cg Exp $'
 ! !