371 "Modified: / 28-06-2011 / 08:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
371 "Modified: / 28-06-2011 / 08:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
372 "Modified: / 19-09-2011 / 14:41:00 / cg" |
372 "Modified: / 19-09-2011 / 14:41:00 / cg" |
373 ! |
373 ! |
374 |
374 |
375 buttonPress:button x:x y:y in:view |
375 buttonPress:button x:x y:y in:view |
376 |lineNr| |
376 |lineNr currentHelpListener| |
377 |
377 |
378 "now disabled: need a double click (like in other editors); |
378 "now disabled: need a double click (like in other editors); |
379 also this allows toggling breakpoints even if there are service-annotations" |
379 also this allows toggling breakpoints even if there are service-annotations" |
380 |
380 |
381 view == gutterView ifTrue:[ |
381 view == gutterView ifTrue:[ |
382 button == 1 ifTrue:[ |
382 button == 1 ifTrue:[ |
383 lineNr := textView yVisibleToLineNr:y. |
383 lineNr := textView yVisibleToLineNr:y. |
384 FlyByHelp currentHelpListener notNil ifTrue:[ |
384 (currentHelpListener := FlyByHelp currentHelpListener) notNil ifTrue:[ |
385 "/ show a message that a double click is now needed |
385 "/ show a message that a double click is now needed |
386 FlyByHelp currentHelpListener initiateHelpFor:view at:x@y now:true |
386 currentHelpListener initiateHelpFor:view at:x@y now:true |
387 ]. |
387 ]. |
388 "/ lineNr notNil ifTrue:[ self setOrToggleBreakpointAtLine:lineNr ]. |
388 "/ lineNr notNil ifTrue:[ self setOrToggleBreakpointAtLine:lineNr ]. |
389 ^ false. |
389 ^ false. |
390 ]. |
390 ]. |
391 ]. |
391 ]. |
392 ^ false |
392 ^ false |
393 |
393 |
394 "Created: / 17-06-2011 / 13:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
394 "Created: / 17-06-2011 / 13:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395 "Modified: / 19-09-2011 / 14:41:00 / cg" |
395 "Modified: / 19-09-2011 / 14:41:00 / cg" |
396 "Modified: / 03-12-2014 / 10:22:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
396 "Modified: / 03-12-2014 / 10:22:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
397 "Modified (format): / 02-03-2019 / 12:52:57 / Claus Gittinger" |
397 "Modified: / 12-03-2019 / 13:01:22 / Claus Gittinger" |
398 ! |
398 ! |
399 |
399 |
400 keyPress:key x:x y:y in: view |
400 keyPress:key x:x y:y in: view |
401 "Handles an event in given view (a subview of codeView). |
401 "Handles an event in given view (a subview of codeView). |
402 If the method returns true, it has eaten the event and it will not be processed |
402 If the method returns true, it has eaten the event and it will not be processed |