Tools__BreakpointService.st
changeset 14326 8b59bf2da03e
parent 13977 318b1b0d6b66
child 14328 9510671ea784
equal deleted inserted replaced
14325:10d416d3296a 14326:8b59bf2da03e
   178     ^ false
   178     ^ false
   179 
   179 
   180     "Created: / 17-06-2011 / 13:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   180     "Created: / 17-06-2011 / 13:05:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   181     "Modified: / 28-06-2011 / 08:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   181     "Modified: / 28-06-2011 / 08:31:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   182     "Modified: / 19-09-2011 / 14:41:00 / cg"
   182     "Modified: / 19-09-2011 / 14:41:00 / cg"
       
   183 !
       
   184 
       
   185 keyPress:key x:x y:y in: view
       
   186     "Handles an event in given view (a subview of codeView).
       
   187      If the method returns true, it has eaten the event and it will not be processed
       
   188      by the view."
       
   189 
       
   190     key == #Accept ifTrue:[ 
       
   191         textView undoableDo:[
       
   192             BreakpointQuery answer: breakpoints do:[
       
   193                 textView accept.
       
   194             ].
       
   195         ].
       
   196         ^ true
       
   197     ].
       
   198     ^ false
       
   199 
       
   200     "Created: / 08-05-2014 / 10:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   183 !
   201 !
   184 
   202 
   185 linesDeletedFrom: start to: end
   203 linesDeletedFrom: start to: end
   186 
   204 
   187     breakpoints isEmptyOrNil ifTrue:[^self].
   205     breakpoints isEmptyOrNil ifTrue:[^self].
   607 ! !
   625 ! !
   608 
   626 
   609 !BreakpointService class methodsFor:'documentation'!
   627 !BreakpointService class methodsFor:'documentation'!
   610 
   628 
   611 version
   629 version
   612     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.45 2014-02-21 17:37:25 vrany Exp $'
   630     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.46 2014-05-08 11:26:48 vrany Exp $'
   613 !
   631 !
   614 
   632 
   615 version_CVS
   633 version_CVS
   616     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.45 2014-02-21 17:37:25 vrany Exp $'
   634     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.46 2014-05-08 11:26:48 vrany Exp $'
   617 !
   635 !
   618 
   636 
   619 version_SVN
   637 version_SVN
   620     ^ '$Id: Tools__BreakpointService.st,v 1.45 2014-02-21 17:37:25 vrany Exp $'
   638     ^ '$Id: Tools__BreakpointService.st,v 1.46 2014-05-08 11:26:48 vrany Exp $'
   621 ! !
   639 ! !
   622 
   640