Kernel-Transcript.deploy.js 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138
  1. smalltalk.addPackage('Kernel-Transcript', {});
  2. smalltalk.addClass('ConsoleTranscript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
  3. smalltalk.addMethod(
  4. "_clear",
  5. smalltalk.method({
  6. selector: "clear",
  7. fn: function (){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx) { return self}, self, "clear", [], smalltalk.ConsoleTranscript)}
  10. }),
  11. smalltalk.ConsoleTranscript);
  12. smalltalk.addMethod(
  13. "_cr",
  14. smalltalk.method({
  15. selector: "cr",
  16. fn: function (){
  17. var self=this;
  18. return smalltalk.withContext(function($ctx) { return self}, self, "cr", [], smalltalk.ConsoleTranscript)}
  19. }),
  20. smalltalk.ConsoleTranscript);
  21. smalltalk.addMethod(
  22. "_open",
  23. smalltalk.method({
  24. selector: "open",
  25. fn: function (){
  26. var self=this;
  27. return smalltalk.withContext(function($ctx) { return self}, self, "open", [], smalltalk.ConsoleTranscript)}
  28. }),
  29. smalltalk.ConsoleTranscript);
  30. smalltalk.addMethod(
  31. "_show_",
  32. smalltalk.method({
  33. selector: "show:",
  34. fn: function (anObject){
  35. var self=this;
  36. return smalltalk.withContext(function($ctx) { console.log(String(string._asString()));
  37. ;
  38. return self}, self, "show:", [anObject], smalltalk.ConsoleTranscript)}
  39. }),
  40. smalltalk.ConsoleTranscript);
  41. smalltalk.addMethod(
  42. "_initialize",
  43. smalltalk.method({
  44. selector: "initialize",
  45. fn: function (){
  46. var self=this;
  47. return smalltalk.withContext(function($ctx) { _st((smalltalk.Transcript || Transcript))._register_(_st(self)._new());
  48. return self}, self, "initialize", [], smalltalk.ConsoleTranscript.klass)}
  49. }),
  50. smalltalk.ConsoleTranscript.klass);
  51. smalltalk.addClass('Transcript', smalltalk.Object, ['textarea'], 'Kernel-Transcript');
  52. smalltalk.Transcript.klass.iVarNames = ['current'];
  53. smalltalk.addMethod(
  54. "_clear",
  55. smalltalk.method({
  56. selector: "clear",
  57. fn: function (){
  58. var self=this;
  59. return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._clear();
  60. return self}, self, "clear", [], smalltalk.Transcript.klass)}
  61. }),
  62. smalltalk.Transcript.klass);
  63. smalltalk.addMethod(
  64. "_cr",
  65. smalltalk.method({
  66. selector: "cr",
  67. fn: function (){
  68. var self=this;
  69. return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._show_(_st((smalltalk.String || String))._cr());
  70. return self}, self, "cr", [], smalltalk.Transcript.klass)}
  71. }),
  72. smalltalk.Transcript.klass);
  73. smalltalk.addMethod(
  74. "_current",
  75. smalltalk.method({
  76. selector: "current",
  77. fn: function (){
  78. var self=this;
  79. return smalltalk.withContext(function($ctx) { return self["@current"];
  80. }, self, "current", [], smalltalk.Transcript.klass)}
  81. }),
  82. smalltalk.Transcript.klass);
  83. smalltalk.addMethod(
  84. "_new",
  85. smalltalk.method({
  86. selector: "new",
  87. fn: function (){
  88. var self=this;
  89. return smalltalk.withContext(function($ctx) { _st(self)._shouldNotImplement();
  90. return self}, self, "new", [], smalltalk.Transcript.klass)}
  91. }),
  92. smalltalk.Transcript.klass);
  93. smalltalk.addMethod(
  94. "_open",
  95. smalltalk.method({
  96. selector: "open",
  97. fn: function (){
  98. var self=this;
  99. return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._open();
  100. return self}, self, "open", [], smalltalk.Transcript.klass)}
  101. }),
  102. smalltalk.Transcript.klass);
  103. smalltalk.addMethod(
  104. "_register_",
  105. smalltalk.method({
  106. selector: "register:",
  107. fn: function (aTranscript){
  108. var self=this;
  109. return smalltalk.withContext(function($ctx) { self["@current"]=aTranscript;
  110. return self}, self, "register:", [aTranscript], smalltalk.Transcript.klass)}
  111. }),
  112. smalltalk.Transcript.klass);
  113. smalltalk.addMethod(
  114. "_show_",
  115. smalltalk.method({
  116. selector: "show:",
  117. fn: function (anObject){
  118. var self=this;
  119. return smalltalk.withContext(function($ctx) { _st(_st(self)._current())._show_(anObject);
  120. return self}, self, "show:", [anObject], smalltalk.Transcript.klass)}
  121. }),
  122. smalltalk.Transcript.klass);