123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142 |
- smalltalk.addPackage('Kernel-Transcript', {});
- smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
- smalltalk.Transcript.klass.iVarNames = ['current'];
- smalltalk.addMethod(
- '_open',
- smalltalk.method({
- selector: 'open',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_open", []);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_new',
- smalltalk.method({
- selector: 'new',
- fn: function (){
- var self=this;
- smalltalk.send(self, "_shouldNotImplement", []);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_current',
- smalltalk.method({
- selector: 'current',
- fn: function (){
- var self=this;
- return self['@current'];
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_show_',
- smalltalk.method({
- selector: 'show:',
- fn: function (anObject){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_show_", [anObject]);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_cr',
- smalltalk.method({
- selector: 'cr',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_show_", [smalltalk.send((smalltalk.String || String), "_cr", [])]);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_clear',
- smalltalk.method({
- selector: 'clear',
- fn: function (){
- var self=this;
- smalltalk.send(smalltalk.send(self, "_current", []), "_clear", []);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addMethod(
- '_register_',
- smalltalk.method({
- selector: 'register:',
- fn: function (aTranscript){
- var self=this;
- (self['@current']=aTranscript);
- return self;}
- }),
- smalltalk.Transcript.klass);
- smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
- smalltalk.addMethod(
- '_clear',
- smalltalk.method({
- selector: 'clear',
- fn: function (){
- var self=this;
- return self;}
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- '_cr',
- smalltalk.method({
- selector: 'cr',
- fn: function (){
- var self=this;
- return self;}
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- '_show_',
- smalltalk.method({
- selector: 'show:',
- fn: function (anObject){
- var self=this;
- var string=nil;
- (string=smalltalk.send(anObject, "_asString", []));
- console.log(String(string));
- return self;}
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- '_open',
- smalltalk.method({
- selector: 'open',
- fn: function (){
- var self=this;
- return self;}
- }),
- smalltalk.ConsoleTranscript);
- smalltalk.addMethod(
- '_initialize',
- smalltalk.method({
- selector: 'initialize',
- fn: function (){
- var self=this;
- smalltalk.send((smalltalk.Transcript || Transcript), "_register_", [smalltalk.send(self, "_new", [])]);
- return self;}
- }),
- smalltalk.ConsoleTranscript.klass);
|