equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
2 COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 Permission is hereby granted, free of charge, to any person |
5 Permission is hereby granted, free of charge, to any person |
203 Screen current shiftDown ifTrue:[ |
201 Screen current shiftDown ifTrue:[ |
204 bpnt toggleTracing |
202 bpnt toggleTracing |
205 ] ifFalse:[ |
203 ] ifFalse:[ |
206 bpnt toggle. |
204 bpnt toggle. |
207 ]. |
205 ]. |
208 (mClass := currentMethod mclass) isNil ifTrue:[ |
206 (currentMethod isNil or:[(mClass := currentMethod mclass) isNil]) ifTrue:[ |
209 "/ hack: ouch - was wrapped in the meantime; |
207 "/ hack: ouch - was wrapped in the meantime; |
210 "/ hurry up and update. Should be done elsewhere (in codeView) |
208 "/ hurry up and update. Should be done elsewhere (in codeView) |
211 self updateCurrentMethod. |
209 self updateCurrentMethod. |
212 currentMethod notNil ifTrue:[ mClass := currentMethod mclass ]. |
210 currentMethod notNil ifTrue:[ mClass := currentMethod mclass ]. |
213 ]. |
211 ]. |
696 ! ! |
694 ! ! |
697 |
695 |
698 !BreakpointService class methodsFor:'documentation'! |
696 !BreakpointService class methodsFor:'documentation'! |
699 |
697 |
700 version |
698 version |
701 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
699 ^ '$Header$' |
702 ! |
700 ! |
703 |
701 |
704 version_CVS |
702 version_CVS |
705 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
703 ^ '$Header$' |
706 ! |
704 ! |
707 |
705 |
708 version_SVN |
706 version_SVN |
709 ^ '$Id: Tools__BreakpointService.st,v 1.61 2015-05-18 14:49:06 cg Exp $' |
707 ^ '$Id$' |
710 ! ! |
708 ! ! |
711 |
709 |