equal
deleted
inserted
replaced
344 ! ! |
344 ! ! |
345 |
345 |
346 !EventMonitor::EventMonitorView methodsFor:'accessing'! |
346 !EventMonitor::EventMonitorView methodsFor:'accessing'! |
347 |
347 |
348 outputStream:aStream |
348 outputStream:aStream |
|
349 |where| |
|
350 |
349 outputStream := aStream. |
351 outputStream := aStream. |
350 |
352 |
351 labelHolder value:nil. |
353 labelHolder value:nil. |
|
354 where := 'the Transcript'. |
352 outputStream == Stdout ifTrue:[ |
355 outputStream == Stdout ifTrue:[ |
353 labelHolder value: 'See event trace\on the standard output' withCRs. |
356 where := 'standard output'. |
354 ]. |
357 ]. |
355 outputStream == Transcript ifTrue:[ |
358 outputStream == Stderr ifTrue:[ |
356 labelHolder value: 'See event trace\on the Transcript' withCRs. |
359 where := 'standard error'. |
357 ]. |
360 ]. |
|
361 labelHolder value:(c'See event trace\non the ',where). |
|
362 |
358 self invalidate. |
363 self invalidate. |
359 |
364 |
360 "Modified: / 04-10-2006 / 13:04:16 / cg" |
365 "Modified: / 04-10-2006 / 13:04:16 / cg" |
|
366 "Modified: / 20-02-2019 / 10:21:48 / Claus Gittinger" |
361 ! |
367 ! |
362 |
368 |
363 showButtonMotion |
369 showButtonMotion |
364 ^ showButtonMotion ? false |
370 ^ showButtonMotion ? false |
365 |
371 |