| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198 | 
							- smalltalk.addPackage('Kernel-Transcript', {});
 
- smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
 
- smalltalk.addMethod(
 
- "_clear",
 
- smalltalk.method({
 
- selector: "clear",
 
- category: 'printing',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { return self}, self, "clear", [], smalltalk.ConsoleTranscript)},
 
- args: [],
 
- source: "clear\x0a\x09\x22no op\x22",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.ConsoleTranscript);
 
- smalltalk.addMethod(
 
- "_cr",
 
- smalltalk.method({
 
- selector: "cr",
 
- category: 'printing',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { return self}, self, "cr", [], smalltalk.ConsoleTranscript)},
 
- args: [],
 
- source: "cr\x0a\x09\x22no op\x22",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.ConsoleTranscript);
 
- smalltalk.addMethod(
 
- "_open",
 
- smalltalk.method({
 
- selector: "open",
 
- category: 'actions',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { return self}, self, "open", [], smalltalk.ConsoleTranscript)},
 
- args: [],
 
- source: "open",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.ConsoleTranscript);
 
- smalltalk.addMethod(
 
- "_show_",
 
- smalltalk.method({
 
- selector: "show:",
 
- category: 'printing',
 
- fn: function (anObject){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { console.log(String(string._asString()));
 
- ;
 
- return self}, self, "show:", [anObject], smalltalk.ConsoleTranscript)},
 
- args: ["anObject"],
 
- source: "show: anObject\x0a\x09<console.log(String(string._asString()))>",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.ConsoleTranscript);
 
- smalltalk.addMethod(
 
- "_initialize",
 
- smalltalk.method({
 
- selector: "initialize",
 
- category: 'initialization',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st((smalltalk.Transcript || Transcript))._register_(_st(self)._new());
 
- return self}, self, "initialize", [], smalltalk.ConsoleTranscript.klass)},
 
- args: [],
 
- source: "initialize\x0a\x09Transcript register: self new",
 
- messageSends: ["register:", "new"],
 
- referencedClasses: ["Transcript"]
 
- }),
 
- smalltalk.ConsoleTranscript.klass);
 
- smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
 
- smalltalk.Transcript.klass.iVarNames = ['current'];
 
- smalltalk.addMethod(
 
- "_clear",
 
- smalltalk.method({
 
- selector: "clear",
 
- category: 'printing',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._clear();
 
- return self}, self, "clear", [], smalltalk.Transcript.klass)},
 
- args: [],
 
- source: "clear\x0a    self current clear",
 
- messageSends: ["clear", "current"],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_cr",
 
- smalltalk.method({
 
- selector: "cr",
 
- category: 'printing',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._show_(_st((smalltalk.String || String))._cr());
 
- return self}, self, "cr", [], smalltalk.Transcript.klass)},
 
- args: [],
 
- source: "cr\x0a    self current show: String cr",
 
- messageSends: ["show:", "cr", "current"],
 
- referencedClasses: ["String"]
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_current",
 
- smalltalk.method({
 
- selector: "current",
 
- category: 'instance creation',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { return self["@current"];
 
- }, self, "current", [], smalltalk.Transcript.klass)},
 
- args: [],
 
- source: "current\x0a    ^current",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_new",
 
- smalltalk.method({
 
- selector: "new",
 
- category: 'instance creation',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st(self)._shouldNotImplement();
 
- return self}, self, "new", [], smalltalk.Transcript.klass)},
 
- args: [],
 
- source: "new\x0a    self shouldNotImplement",
 
- messageSends: ["shouldNotImplement"],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_open",
 
- smalltalk.method({
 
- selector: "open",
 
- category: 'instance creation',
 
- fn: function (){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._open();
 
- return self}, self, "open", [], smalltalk.Transcript.klass)},
 
- args: [],
 
- source: "open\x0a    self current open",
 
- messageSends: ["open", "current"],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_register_",
 
- smalltalk.method({
 
- selector: "register:",
 
- category: 'instance creation',
 
- fn: function (aTranscript){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { self["@current"]=aTranscript;
 
- return self}, self, "register:", [aTranscript], smalltalk.Transcript.klass)},
 
- args: ["aTranscript"],
 
- source: "register: aTranscript\x0a\x09current := aTranscript",
 
- messageSends: [],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
- smalltalk.addMethod(
 
- "_show_",
 
- smalltalk.method({
 
- selector: "show:",
 
- category: 'printing',
 
- fn: function (anObject){
 
- var self=this;
 
- return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._show_(anObject);
 
- return self}, self, "show:", [anObject], smalltalk.Transcript.klass)},
 
- args: ["anObject"],
 
- source: "show: anObject\x0a    self current show: anObject",
 
- messageSends: ["show:", "current"],
 
- referencedClasses: []
 
- }),
 
- smalltalk.Transcript.klass);
 
 
  |