equal
deleted
inserted
replaced
1344 "Modified (comment): / 29-05-2019 / 12:04:39 / Claus Gittinger" |
1344 "Modified (comment): / 29-05-2019 / 12:04:39 / Claus Gittinger" |
1345 ! ! |
1345 ! ! |
1346 |
1346 |
1347 !TextCollector methodsFor:'transcript specials'! |
1347 !TextCollector methodsFor:'transcript specials'! |
1348 |
1348 |
|
1349 assertEndEntry |
|
1350 "assert there is no pending collected output" |
|
1351 |
|
1352 self assert:(outstandingLines isEmptyOrNil). |
|
1353 self assert:(outstandingLine isEmptyOrNil) |
|
1354 ! |
|
1355 |
1349 beTranscript |
1356 beTranscript |
1350 "make the receiver be the systemTranscript; this one |
1357 "make the receiver be the systemTranscript; this one |
1351 is accessible via the global Transcript and gets relevant |
1358 is accessible via the global Transcript and gets relevant |
1352 system messages from various places." |
1359 system messages from various places." |
1353 |
1360 |
1450 ]. |
1457 ]. |
1451 ^ self |
1458 ^ self |
1452 ] |
1459 ] |
1453 ]. |
1460 ]. |
1454 |
1461 |
1455 (device isNil or:[device isOpen not or:[self drawableId isNil]]) ifTrue:[ |
1462 (device isNil |
|
1463 or:[device isOpen not |
|
1464 or:[self drawableId isNil |
|
1465 ]]) ifTrue:[ |
1456 "on snapshot load, Transcript may not yet be re-created. |
1466 "on snapshot load, Transcript may not yet be re-created. |
1457 Write to Stderr then." |
1467 Write to Stderr then." |
1458 Stderr notNil ifTrue:[ |
1468 Stderr notNil ifTrue:[ |
1459 outstandingLines do:[:eachLine| |
1469 outstandingLines do:[:eachLine| |
1460 eachLine printOn:Stderr. |
1470 eachLine printOn:Stderr. |
1467 Stderr cr. |
1477 Stderr cr. |
1468 ]. |
1478 ]. |
1469 ^ self. |
1479 ^ self. |
1470 ]. |
1480 ]. |
1471 |
1481 |
1472 "/ self ~~ Transcript ifTrue:[ 'e ' print. |
|
1473 "/ thisContext fullPrintAll. |
|
1474 "/ ]. |
|
1475 |
|
1476 "/ access owner == Processor activeProcess ifTrue:[ |
|
1477 "/self ~~ Transcript ifTrue:[ 'eI' printCR ]. |
|
1478 "/ self installDelayedUpdate. |
|
1479 "/ ^ self |
|
1480 "/ ]. |
|
1481 |
|
1482 access critical:[ |
1482 access critical:[ |
1483 collecting ifTrue:[ |
1483 collecting ifTrue:[ |
1484 flushBlock notNil ifTrue:[ |
1484 flushBlock notNil ifTrue:[ |
1485 Processor removeTimedBlock:flushBlock. |
1485 Processor removeTimedBlock:flushBlock. |
1486 ]. |
1486 ]. |
1487 "/ flushPending ifFalse:[ |
|
1488 "/self ~~ Transcript ifTrue:[ 'eP' printCR ]. |
|
1489 "/ ^ self |
|
1490 "/ ]. |
|
1491 ]. |
1487 ]. |
1492 |
1488 |
1493 "/ self ~~ Transcript ifTrue:[ 'e1' printCR ]. |
1489 "/ self ~~ Transcript ifTrue:[ 'e1' printCR ]. |
1494 inFlush ifFalse:[ |
1490 inFlush ifFalse:[ |
1495 "/ self ~~ Transcript ifTrue:[ 'e2' printCR ]. |
1491 "/ self ~~ Transcript ifTrue:[ 'e2' printCR ]. |
1542 ]. |
1538 ]. |
1543 ] ensure:[ |
1539 ] ensure:[ |
1544 inFlush := false. |
1540 inFlush := false. |
1545 ] |
1541 ] |
1546 ]. |
1542 ]. |
1547 "/ flushPending ifTrue:[ |
|
1548 "/ flushPending := false. |
|
1549 "/ self installDelayedUpdate |
|
1550 "/ ] |
|
1551 ]. |
1543 ]. |
1552 |
1544 |
1553 "Modified: / 09-11-1998 / 21:17:56 / cg" |
1545 "Modified: / 09-11-1998 / 21:17:56 / cg" |
1554 "Modified: / 13-06-2018 / 22:00:27 / Claus Gittinger" |
1546 "Modified: / 13-06-2018 / 22:00:27 / Claus Gittinger" |
1555 ! |
1547 ! |