equal
deleted
inserted
replaced
355 ]. |
355 ]. |
356 ]. |
356 ]. |
357 handleString := (handleString ? '') leftPaddedTo:7 |
357 handleString := (handleString ? '') leftPaddedTo:7 |
358 ] ifFalse:[ |
358 ] ifFalse:[ |
359 aStream isOpen ifTrue:[ |
359 aStream isOpen ifTrue:[ |
360 handleString := aStream fileDescriptor printString |
360 [ |
|
361 ] on:StreamError do:[ |
|
362 handleString := aStream fileDescriptor printString |
|
363 ]. |
361 ]. |
364 ]. |
362 handleString := (handleString ? '') leftPaddedTo:3 |
365 handleString := (handleString ? '') leftPaddedTo:3 |
363 ]. |
366 ]. |
364 |
367 |
365 line := (type contractTo:20) paddedTo:20. |
368 line := (type contractTo:20) paddedTo:20. |
413 listView selectWithoutScroll:newSelection |
416 listView selectWithoutScroll:newSelection |
414 ]. |
417 ]. |
415 listView flush |
418 listView flush |
416 ]. |
419 ]. |
417 self installDelayedUpdate. |
420 self installDelayedUpdate. |
|
421 |
|
422 "Modified: / 18-08-2017 / 14:39:37 / cg" |
418 ! ! |
423 ! ! |
419 |
424 |
420 !ExternalStreamMonitor methodsFor:'menu'! |
425 !ExternalStreamMonitor methodsFor:'menu'! |
421 |
426 |
422 selectedStreamsDo:aBlock |
427 selectedStreamsDo:aBlock |
454 nil |
459 nil |
455 inspectStream |
460 inspectStream |
456 ). |
461 ). |
457 |
462 |
458 updateProcess isNil ifTrue:[ |
463 updateProcess isNil ifTrue:[ |
459 labels := (resources array:#('Update' '-')) , labels. |
464 labels := labels,(resources array:#('-' 'Update' )). |
460 selectors := #(updateView nil) , selectors |
465 selectors := selectors , #(nil updateView). |
461 ]. |
466 ]. |
462 |
467 |
463 m := PopUpMenu labels:labels |
468 m := PopUpMenu labels:labels |
464 selectors:selectors. |
469 selectors:selectors. |
465 |
470 |
470 inspectStream |
475 inspectStream |
471 ) |
476 ) |
472 ]. |
477 ]. |
473 ^ m |
478 ^ m |
474 |
479 |
475 "Modified: / 07-04-2017 / 14:25:40 / cg" |
480 "Modified: / 18-08-2017 / 14:34:12 / cg" |
476 ! ! |
481 ! ! |
477 |
482 |
478 !ExternalStreamMonitor methodsFor:'queries'! |
483 !ExternalStreamMonitor methodsFor:'queries'! |
479 |
484 |
480 numberOfHeadlines |
485 numberOfHeadlines |