| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768 |
- Smalltalk current createPackage: 'Kernel-Transcript' properties: #{}!
- Object subclass: #ConsoleTranscript
- instanceVariableNames: 'textarea'
- package: 'Kernel-Transcript'!
- !ConsoleTranscript methodsFor: 'actions'!
- open
- ! !
- !ConsoleTranscript methodsFor: 'printing'!
- clear
- "no op"
- !
- cr
- "no op"
- !
- show: anObject
- <console.log(String(string._asString()))>
- ! !
- !ConsoleTranscript class methodsFor: 'initialization'!
- initialize
- Transcript register: self new
- ! !
- Object subclass: #Transcript
- instanceVariableNames: 'textarea'
- package: 'Kernel-Transcript'!
- Transcript class instanceVariableNames: 'current'!
- !Transcript class methodsFor: 'instance creation'!
- current
- ^current
- !
- new
- self shouldNotImplement
- !
- open
- self current open
- !
- register: aTranscript
- current := aTranscript
- ! !
- !Transcript class methodsFor: 'printing'!
- clear
- self current clear
- !
- cr
- self current show: String cr
- !
- show: anObject
- self current show: anObject
- ! !
|
