equal
deleted
inserted
replaced
225 "Handles an event in given view (a subview of codeView). |
225 "Handles an event in given view (a subview of codeView). |
226 If the method returns true, the event will not be processed |
226 If the method returns true, the event will not be processed |
227 by the view." |
227 by the view." |
228 |
228 |
229 (view == textView and:[key == #'Control_L' or:[key == #Ctrl]]) ifTrue: |
229 (view == textView and:[key == #'Control_L' or:[key == #Ctrl]]) ifTrue: |
230 [self highlightClear. textView redraw. ^true]. |
230 [self highlightClear. ^true]. |
231 ^false |
231 ^false |
232 |
232 |
233 "Created: / 06-03-2010 / 21:03:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
233 "Created: / 06-03-2010 / 21:03:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
234 "Modified: / 08-07-2011 / 08:40:55 / cg" |
234 ! ! |
235 ! ! |
235 |
236 |
236 !CodeNavigationService methodsFor:'initialization'! |
237 !CodeNavigationService methodsFor:'initialization'! |
237 |
238 |
238 initialize |
239 initialize |
300 textView list do:[:line | |
301 textView list do:[:line | |
301 line isText ifTrue:[ |
302 line isText ifTrue:[ |
302 line emphasisAllRemove: currentEmphasis |
303 line emphasisAllRemove: currentEmphasis |
303 ] |
304 ] |
304 ]. |
305 ]. |
305 textView redraw. |
306 textView invalidate. "/ redraw. |
306 codeView syntaxElementSelection:nil. |
307 codeView syntaxElementSelection:nil. |
307 |
308 |
308 "Modified: / 26-12-2007 / 12:28:05 / janfrog" |
309 "Modified: / 26-12-2007 / 12:28:05 / janfrog" |
309 "Created: / 25-06-2010 / 14:15:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
310 "Created: / 25-06-2010 / 14:15:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
310 "Modified: / 30-06-2011 / 11:07:05 / cg" |
311 "Modified: / 08-07-2011 / 08:50:45 / cg" |
311 ! |
312 ! |
312 |
313 |
313 highlightElement: element |
314 highlightElement: element |
314 codeView syntaxElementSelection == element ifTrue:[^ self]. |
315 codeView syntaxElementSelection == element ifTrue:[^ self]. |
315 |
316 |
445 ! ! |
446 ! ! |
446 |
447 |
447 !CodeNavigationService class methodsFor:'documentation'! |
448 !CodeNavigationService class methodsFor:'documentation'! |
448 |
449 |
449 version_CVS |
450 version_CVS |
450 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.4 2011-07-07 16:17:21 vrany Exp $' |
451 ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeNavigationService.st,v 1.5 2011-07-08 06:52:13 cg Exp $' |
451 ! |
452 ! |
452 |
453 |
453 version_SVN |
454 version_SVN |
454 ^ '§Id: Tools__CodeNavigationService.st 7788 2011-06-17 07:57:48Z vranyj1 §' |
455 ^ '§Id: Tools__CodeNavigationService.st 7788 2011-06-17 07:57:48Z vranyj1 §' |
455 ! ! |
456 ! ! |