| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172 |
- Smalltalk current createPackage: 'Kernel-Transcript'!
- 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
- !
- inspect: anObject
- self show: anObject
- !
- show: anObject
- self current show: anObject
- ! !
|
