123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238 |
- define("amber_core/Helios-Transcript", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Helios-Core", "amber_core/Kernel-Objects"], function(smalltalk,nil,_st){
- smalltalk.addPackage('Helios-Transcript');
- smalltalk.packages["Helios-Transcript"].transport = {"type":"amd","amdNamespace":"amber_core"};
- smalltalk.addClass('HLTranscript', smalltalk.HLWidget, ['textarea'], 'Helios-Transcript');
- smalltalk.HLTranscript.comment="I am a widget responsible for displaying transcript contents.\x0a\x0a## Transcript API\x0a\x0a Transcript \x0a show: 'hello world';\x0a cr;\x0a show: anObject.\x0a\x0a Transcript clear.\x0a\x0aSee the `Transcript` class.";
- smalltalk.addMethod(
- smalltalk.method({
- selector: "clear",
- category: 'actions',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(_st(self["@textarea"])._asJQuery())._text_("");
- return self}, function($ctx1) {$ctx1.fill(self,"clear",{},smalltalk.HLTranscript)})},
- args: [],
- source: "clear\x0a\x09textarea asJQuery text: ''",
- messageSends: ["text:", "asJQuery"],
- referencedClasses: []
- }),
- smalltalk.HLTranscript);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- category: 'initialization',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- smalltalk.HLTranscript.superclass.fn.prototype._initialize.apply(_st(self), []);
- self._register();
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.HLTranscript)})},
- args: [],
- source: "initialize\x0a\x09super initialize.\x0a\x09self register",
- messageSends: ["initialize", "register"],
- referencedClasses: []
- }),
- smalltalk.HLTranscript);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "register",
- category: 'registration',
- fn: function (){
- var self=this;
- function $HLTranscriptHandler(){return smalltalk.HLTranscriptHandler||(typeof HLTranscriptHandler=="undefined"?nil:HLTranscriptHandler)}
- return smalltalk.withContext(function($ctx1) {
- _st($HLTranscriptHandler())._register_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"register",{},smalltalk.HLTranscript)})},
- args: [],
- source: "register\x0a\x09HLTranscriptHandler register: self",
- messageSends: ["register:"],
- referencedClasses: ["HLTranscriptHandler"]
- }),
- smalltalk.HLTranscript);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "renderOn:",
- category: 'rendering',
- fn: function (html){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1,$2;
- $1=_st(html)._div();
- _st($1)._class_("transcript");
- $2=_st($1)._with_((function(){
- return smalltalk.withContext(function($ctx2) {
- self["@textarea"]=_st(html)._textarea();
- return self["@textarea"];
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},smalltalk.HLTranscript)})},
- args: ["html"],
- source: "renderOn: html\x0a\x09html div\x0a\x09\x09class: 'transcript';\x0a\x09\x09with: [ textarea := html textarea ]",
- messageSends: ["class:", "div", "with:", "textarea"],
- referencedClasses: []
- }),
- smalltalk.HLTranscript);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show:",
- category: 'actions',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- var $1;
- $1=self["@textarea"];
- if(($receiver = $1) == nil || $receiver == undefined){
- $1;
- } else {
- _st(_st(self["@textarea"])._asJQuery())._append_(_st(aString)._asString());
- };
- return self}, function($ctx1) {$ctx1.fill(self,"show:",{aString:aString},smalltalk.HLTranscript)})},
- args: ["aString"],
- source: "show: aString\x0a\x09textarea ifNotNil: [\x0a \x09\x09textarea asJQuery append: aString asString ]",
- messageSends: ["ifNotNil:", "append:", "asString", "asJQuery"],
- referencedClasses: []
- }),
- smalltalk.HLTranscript);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unregister",
- category: 'registration',
- fn: function (){
- var self=this;
- function $HLTranscriptHandler(){return smalltalk.HLTranscriptHandler||(typeof HLTranscriptHandler=="undefined"?nil:HLTranscriptHandler)}
- return smalltalk.withContext(function($ctx1) {
- smalltalk.HLTranscript.superclass.fn.prototype._unregister.apply(_st(self), []);
- _st($HLTranscriptHandler())._unregister_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},smalltalk.HLTranscript)})},
- args: [],
- source: "unregister\x0a\x09super unregister.\x0a\x09HLTranscriptHandler unregister: self",
- messageSends: ["unregister", "unregister:"],
- referencedClasses: ["HLTranscriptHandler"]
- }),
- smalltalk.HLTranscript);
- smalltalk.addClass('HLTranscriptHandler', smalltalk.Object, [], 'Helios-Transcript');
- smalltalk.HLTranscriptHandler.comment="I handle transcript events, dispatching them to all instances of `HLTranscript`.\x0a\x0a## API\x0a\x0aOn class initialization I am automatically registered as the current transcript.";
- smalltalk.HLTranscriptHandler.klass.iVarNames = ['transcripts'];
- smalltalk.addMethod(
- smalltalk.method({
- selector: "clear",
- category: 'registration',
- fn: function (){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._transcripts())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._clear();
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"clear",{},smalltalk.HLTranscriptHandler.klass)})},
- args: [],
- source: "clear\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each clear ]",
- messageSends: ["do:", "clear", "transcripts"],
- referencedClasses: []
- }),
- smalltalk.HLTranscriptHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "initialize",
- category: 'initialization',
- fn: function (){
- var self=this;
- function $Transcript(){return smalltalk.Transcript||(typeof Transcript=="undefined"?nil:Transcript)}
- return smalltalk.withContext(function($ctx1) {
- _st($Transcript())._register_(self);
- return self}, function($ctx1) {$ctx1.fill(self,"initialize",{},smalltalk.HLTranscriptHandler.klass)})},
- args: [],
- source: "initialize\x0a\x09Transcript register: self",
- messageSends: ["register:"],
- referencedClasses: ["Transcript"]
- }),
- smalltalk.HLTranscriptHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "register:",
- category: 'registration',
- fn: function (aTranscript){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._transcripts())._add_(aTranscript);
- return self}, function($ctx1) {$ctx1.fill(self,"register:",{aTranscript:aTranscript},smalltalk.HLTranscriptHandler.klass)})},
- args: ["aTranscript"],
- source: "register: aTranscript\x0a\x09self transcripts add: aTranscript",
- messageSends: ["add:", "transcripts"],
- referencedClasses: []
- }),
- smalltalk.HLTranscriptHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "show:",
- category: 'registration',
- fn: function (aString){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._transcripts())._do_((function(each){
- return smalltalk.withContext(function($ctx2) {
- return _st(each)._show_(aString);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})}));
- return self}, function($ctx1) {$ctx1.fill(self,"show:",{aString:aString},smalltalk.HLTranscriptHandler.klass)})},
- args: ["aString"],
- source: "show: aString\x0a\x09self transcripts do: [ :each |\x0a\x09\x09each show: aString ]",
- messageSends: ["do:", "show:", "transcripts"],
- referencedClasses: []
- }),
- smalltalk.HLTranscriptHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "transcripts",
- category: 'accessing',
- fn: function (){
- var self=this;
- function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- return smalltalk.withContext(function($ctx1) {
- var $2,$1;
- $2=self["@transcripts"];
- if(($receiver = $2) == nil || $receiver == undefined){
- self["@transcripts"]=_st($OrderedCollection())._new();
- $1=self["@transcripts"];
- } else {
- $1=$2;
- };
- return $1;
- }, function($ctx1) {$ctx1.fill(self,"transcripts",{},smalltalk.HLTranscriptHandler.klass)})},
- args: [],
- source: "transcripts\x0a\x09^ transcripts ifNil: [ transcripts := OrderedCollection new ]",
- messageSends: ["ifNil:", "new"],
- referencedClasses: ["OrderedCollection"]
- }),
- smalltalk.HLTranscriptHandler.klass);
- smalltalk.addMethod(
- smalltalk.method({
- selector: "unregister:",
- category: 'registration',
- fn: function (aTranscript){
- var self=this;
- return smalltalk.withContext(function($ctx1) {
- _st(self._transcripts())._remove_(aTranscript);
- return self}, function($ctx1) {$ctx1.fill(self,"unregister:",{aTranscript:aTranscript},smalltalk.HLTranscriptHandler.klass)})},
- args: ["aTranscript"],
- source: "unregister: aTranscript\x0a\x09self transcripts remove: aTranscript",
- messageSends: ["remove:", "transcripts"],
- referencedClasses: []
- }),
- smalltalk.HLTranscriptHandler.klass);
- });
|