The Trunk: System-mt.1202.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-mt.1202.mcz

commits-2
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1202.mcz

==================== Summary ====================

Name: System-mt.1202
Author: mt
Time: 18 December 2020, 10:11:47.76906 am
UUID: 29ceed8f-1bbf-fa4f-89ee-8e8aaabe25ba
Ancestors: System-dtl.1201

Fixes logging output of DoItFirst for cases where stdio streams are unavailable such as on Windows via Squeak.exe (instead of SqueakConsole.exe).

=============== Diff against System-dtl.1201 ===============

Item was removed:
- ----- Method: DoItFirst>>print:to: (in category 'private') -----
- print: aString to: stream
- [ stream nextPutAll: aString; lf; flush ]
- on: Error
- do: [ Transcript cr; show: self class name , ' output: ', aString; flush.
- ^false ].
- ^true.
- !

Item was changed:
  ----- Method: DoItFirst>>printError: (in category 'private') -----
  printError: aString
  "Print to stdout if available, otherwise to the transcript. Answer true if
  the stdio stream was used, false if output was redirected to transcript."
+ [ FileStream stderr nextPutAll: aString; lf; flush ]
+ on: Error
+ do: [ TranscriptStream forceUpdate: false. "Graphics not yet fully initialized."
+ Transcript cr; show: self class name , ' error: ', aString; flush.
+ ^false ].
+ ^true.
- ^self print: aString to: FileStream stderr.
  !

Item was changed:
  ----- Method: DoItFirst>>printOut: (in category 'private') -----
  printOut: aString
  "Print to stdout if available, otherwise to the transcript. Answer true if
  the stdio stream was used, false if output was redirected to transcript."
+ [ FileStream stdout nextPutAll: aString; lf; flush ]
+ on: Error
+ do: [ TranscriptStream forceUpdate: false. "Graphics not yet fully initialized."
+ Transcript cr; show: self class name , ' output: ', aString; flush.
+ ^false ].
+ ^true.
- ^self print: aString to: FileStream stdout.
  !