246 "Modified: / 21-08-2014 / 09:35:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
248 "Modified: / 21-08-2014 / 09:35:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
247 ! ! |
249 ! ! |
248 |
250 |
249 !Breakpoint methodsFor:'printing & storing'! |
251 !Breakpoint methodsFor:'printing & storing'! |
250 |
252 |
|
253 inspectorValueStringInListFor:anInspector |
|
254 "returns a string to be shown in the inspector's list" |
|
255 |
|
256 ^ self printString |
|
257 |
|
258 "Created: / 29-05-2019 / 15:14:52 / Claus Gittinger" |
|
259 ! |
|
260 |
251 printBreakpointNrInDebuggerOn:aStream |
261 printBreakpointNrInDebuggerOn:aStream |
252 "to be redefined for concrete debuggers" |
262 "to be redefined for concrete debuggers |
|
263 (some require a bpnt to be registered and use a handle or id to refer to them)" |
|
264 |
|
265 "Modified (comment): / 29-05-2019 / 15:11:55 / Claus Gittinger" |
253 ! |
266 ! |
254 |
267 |
255 printOn:aStream |
268 printOn:aStream |
256 "append a printed representation of the receiver to the argument, aStream" |
269 "append a printed representation of the receiver to the argument, aStream" |
257 |
270 |
258 aStream nextPutAll: 'BPNT '. |
271 |info| |
259 aStream nextPutAll:(self isEnabled ifTrue:['(enabled) '] ifFalse:['(disabled) ']). |
272 |
|
273 aStream nextPutAll: 'BPNT'. |
260 self printBreakpointNrInDebuggerOn:aStream. |
274 self printBreakpointNrInDebuggerOn:aStream. |
261 aStream nextPutAll: 'at'. |
275 aStream nextPutAll: ' at'. |
|
276 self printPositionOrLineNumberOn:aStream. |
|
277 self isEnabled ifTrue:[ |
|
278 description condition notNil |
|
279 ifTrue:[info := ' (conditional)'] |
|
280 ifFalse:[info := ' (enabled)'] |
|
281 ] ifFalse:[ |
|
282 info :=' (disabled)' |
|
283 ]. |
|
284 aStream nextPutAll:info |
|
285 |
|
286 "Modified: / 24-04-2013 / 20:42:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
287 "Modified: / 29-05-2019 / 15:21:36 / Claus Gittinger" |
|
288 ! |
|
289 |
|
290 printPositionOrLineNumberOn:aStream |
262 (position isNil and:[line isNil]) ifTrue:[ |
291 (position isNil and:[line isNil]) ifTrue:[ |
263 aStream nextPutAll: ' ???' |
292 aStream nextPutAll: ' ???' |
264 ] ifFalse:[ |
293 ] ifFalse:[ |
265 position notNil ifTrue:[ |
294 position notNil ifTrue:[ |
266 aStream |
295 aStream |
267 nextPutAll: ' source position:'; |
296 nextPutAll: ' position:'; |
268 nextPutAll: position printString. |
297 print: position. |
269 ]. |
298 ]. |
270 line notNil ifTrue:[ |
299 line notNil ifTrue:[ |
271 aStream |
300 aStream |
272 nextPutAll: ' line:'; |
301 nextPutAll: ' line:'; |
273 nextPutAll: line printString. |
302 print: line. |
274 ]. |
303 ]. |
275 ]. |
304 ]. |
276 |
305 |
277 "Modified: / 24-04-2013 / 20:42:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
306 "Created: / 29-05-2019 / 15:13:42 / Claus Gittinger" |
278 "Modified: / 20-02-2019 / 15:50:37 / Claus Gittinger" |
|
279 ! ! |
307 ! ! |
280 |
308 |
281 !Breakpoint methodsFor:'support'! |
309 !Breakpoint methodsFor:'support'! |
282 |
310 |
283 beInvisible |
311 beInvisible |