define(["amber/boot", "require", "amber/core/Kernel-Objects", "amber/web/Web"], function($boot,requirejs){"use strict"; var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals; var $pkg = $core.addPackage("IDE"); $pkg.innerEval = function (expr) { return eval(expr); }; $pkg.imports = ["codeMirrorLib=codemirror/lib/codemirror", "amber/core/Platform-Services", "amber/web/Web-JQuery", "codemirror/addon/hint/show-hint", "codemirror/mode/smalltalk/smalltalk", "css!./resources/amber", "css!codemirror/addon/hint/show-hint", "css!codemirror/lib/codemirror", "css!codemirror/theme/ambiance", "jquery-ui"]; //>>excludeStart("imports", pragmas.excludeImports); var codeMirrorLib; $pkg.isReady = new Promise(function (resolve, reject) { requirejs(["codemirror/lib/codemirror", "amber/core/Platform-Services", "amber/web/Web-JQuery", "codemirror/addon/hint/show-hint", "codemirror/mode/smalltalk/smalltalk", "css!./resources/amber", "css!codemirror/addon/hint/show-hint", "css!codemirror/lib/codemirror", "css!codemirror/theme/ambiance", "jquery-ui"], function ($1) {codeMirrorLib=$1; resolve();}, reject); }); //>>excludeEnd("imports"); $pkg.transport = {"type":"amd","amdNamespace":"amber/legacy"}; $core.addClass("ClassesList", $globals.Widget, ["browser", "ul", "nodes"], "IDE"); $core.addMethod( $core.method({ selector: "browser", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.browser; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "browser\x0a\x09^ browser", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "browser:", protocol: "accessing", fn: function (aBrowser){ var self=this,$self=this; $self.browser=aBrowser; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBrowser"], source: "browser: aBrowser\x0a\x09browser := aBrowser", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "category", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._browser())._selectedPackage(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"category",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "category\x0a\x09^ self browser selectedPackage", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["selectedPackage", "browser"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "getNodes", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($globals.ClassBuilder)._sortClasses_($recv($self._browser())._classes()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"getNodes",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "getNodes\x0a\x09^ ClassBuilder sortClasses: self browser classes", referencedClasses: ["ClassBuilder"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["sortClasses:", "classes", "browser"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "labelOf:level:", protocol: "rendering", fn: function (aClass,anInteger){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($globals.String)._streamContents_((function(str){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $recv(anInteger)._timesRepeat_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv(str)._nextPutAll_("    "); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["nextPutAll:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); return $recv(str)._nextPutAll_($recv(aClass)._name()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({str:str},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"labelOf:level:",{aClass:aClass,anInteger:anInteger})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass", "anInteger"], source: "labelOf: aClass level: anInteger\x0a\x09^ String streamContents: [ :str |\x0a\x09\x09anInteger timesRepeat: [\x0a\x09\x09\x09str nextPutAll: '    ' ].\x0a\x09\x09str nextPutAll: aClass name ]", referencedClasses: ["String"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["streamContents:", "timesRepeat:", "nextPutAll:", "name"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "nodes", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.nodes; if(($receiver = $1) == null || $receiver.a$nil){ $self.nodes=$self._getNodes(); $self.nodes; } else { $1; } return $self.nodes; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"nodes",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "nodes\x0a\x09nodes ifNil: [ nodes := self getNodes ].\x0a\x09^ nodes", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "getNodes"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "renderNode:level:on:", protocol: "rendering", fn: function (aClassAndSubclasses,anInteger,html){ var self=this,$self=this; var cssClass,aClass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1,$4; cssClass=""; aClass=$recv(aClassAndSubclasses)._first(); $3=$self._browser(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["browser"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._selectedClass(); $1=$recv($2).__eq(aClass); if($core.assert($1)){ cssClass=$recv(cssClass).__comma(" selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); cssClass; } $recv($recv(aClass)._comment())._ifNotEmpty_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); cssClass=$recv(cssClass).__comma(" commented"); return cssClass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); $4=$recv(html)._li(); $recv($4)._class_(cssClass); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._browser())._selectClass_(aClass); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); $recv($4)._in_((function(li){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(li)._asJQuery())._html_($self._labelOf_level_(aClass,anInteger)); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({li:li},$ctx1,4)}); //>>excludeEnd("ctx"); })); $self._renderNodes_level_on_($recv(aClassAndSubclasses)._second(),$recv(anInteger).__plus((1)),html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderNode:level:on:",{aClassAndSubclasses:aClassAndSubclasses,anInteger:anInteger,html:html,cssClass:cssClass,aClass:aClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClassAndSubclasses", "anInteger", "html"], source: "renderNode: aClassAndSubclasses level: anInteger on: html\x0a\x09| cssClass aClass |\x0a\x09cssClass := ''.\x0a\x09aClass := aClassAndSubclasses first.\x0a\x09self browser selectedClass = aClass ifTrue: [\x0a\x09\x09cssClass := cssClass, ' selected' ].\x0a\x0a\x09aClass comment ifNotEmpty: [\x0a\x09\x09cssClass := cssClass, ' commented' ].\x0a\x0a\x0a\x09html li\x0a\x09\x09class: cssClass;\x0a\x09\x09onClick: [ self browser selectClass: aClass ];\x0a\x09\x09in: [ :li | li asJQuery html: (self labelOf: aClass level: anInteger) ].\x0a\x0a\x09self renderNodes: aClassAndSubclasses second level: anInteger + 1 on: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["first", "ifTrue:", "=", "selectedClass", "browser", ",", "ifNotEmpty:", "comment", "class:", "li", "onClick:", "selectClass:", "in:", "html:", "asJQuery", "labelOf:level:", "renderNodes:level:on:", "second", "+"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "renderNodes:level:on:", protocol: "rendering", fn: function (aCollection,anInteger,html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv(aCollection)._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._renderNode_level_on_(each,anInteger,html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderNodes:level:on:",{aCollection:aCollection,anInteger:anInteger,html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCollection", "anInteger", "html"], source: "renderNodes: aCollection level: anInteger on: html\x0a\x09aCollection do: [ :each |\x0a\x09\x09self renderNode: each level: anInteger on: html ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "renderNode:level:on:"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "renderOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._ul(); $recv($1)._class_("amber_column browser classes"); $self.ul=$recv($1)._yourself(); $self._updateNodes(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderOn: html\x0a\x09ul := html ul\x0a\x09\x09class: 'amber_column browser classes';\x0a\x09\x09yourself.\x0a\x09self updateNodes", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "yourself", "updateNodes"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "resetNodes", protocol: "accessing", fn: function (){ var self=this,$self=this; $self.nodes=nil; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "resetNodes\x0a\x09nodes := nil", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "updateNodes", protocol: "rendering", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.ul)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._renderNodes_level_on_($self._nodes(),(0),html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateNodes",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateNodes\x0a\x09ul contents: [ :html |\x0a\x09\x09self renderNodes: self nodes level: 0 on: html ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "renderNodes:level:on:", "nodes"] }), $globals.ClassesList); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (aBrowser){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._browser_(aBrowser); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{aBrowser:aBrowser})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBrowser"], source: "on: aBrowser\x0a\x09^ self new\x0a\x09\x09browser: aBrowser;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["browser:", "new", "yourself"] }), $globals.ClassesList.a$cls); $core.addClass("DebugErrorHandler", $globals.Object, [], "IDE"); $core.addMethod( $core.method({ selector: "handleError:", protocol: "error handling", fn: function (anError){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv($globals.Debugger)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["new"]=1; //>>excludeEnd("ctx"); $recv($1)._error_(anError); return $recv($1)._open(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._on_do_($globals.Error,(function(error){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv($globals.ConsoleErrorHandler)._new())._handleError_(error); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anError"], source: "handleError: anError\x0a\x09[ Debugger new\x0a\x09\x09error: anError;\x0a\x09\x09open ] on: Error do: [ :error |\x0a\x09\x09\x09ConsoleErrorHandler new handleError: error ]", referencedClasses: ["Debugger", "Error", "ConsoleErrorHandler"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["on:do:", "error:", "new", "open", "handleError:"] }), $globals.DebugErrorHandler); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($globals.ErrorHandler)._register_($self._new()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09ErrorHandler register: self new", referencedClasses: ["ErrorHandler"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["register:", "new"] }), $globals.DebugErrorHandler.a$cls); $core.addClass("SourceArea", $globals.Widget, ["editor", "div", "receiver", "onDoIt"], "IDE"); $core.addMethod( $core.method({ selector: "clear", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._val_(""); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"clear",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "clear\x0a\x09self val: ''", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "currentLine", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.editor)._getLine_($recv($recv($self.editor)._getCursor())._line()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"currentLine",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentLine\x0a\x09^ editor getLine: (editor getCursor line)", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["getLine:", "line", "getCursor"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "currentLineOrSelection", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($self.editor)._somethingSelected(); if($core.assert($1)){ return $self._selection(); } else { return $self._currentLine(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"currentLineOrSelection",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "currentLineOrSelection\x0a\x09^ editor somethingSelected\x0a\x09ifFalse: [ self currentLine ]\x0a\x09ifTrue: [ self selection ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:ifTrue:", "somethingSelected", "currentLine", "selection"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "doIt", protocol: "actions", fn: function (){ var self=this,$self=this; var result; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; result=$self._eval_($self._currentLineOrSelection()); $1=$self._onDoIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onDoIt"]=1; //>>excludeEnd("ctx"); if(($receiver = $1) == null || $receiver.a$nil){ $1; } else { $recv($self._onDoIt())._value(); } return result; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"doIt",{result:result})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "doIt\x0a\x09| result |\x0a\x09result := self eval: self currentLineOrSelection.\x0a\x09self onDoIt ifNotNil: [ self onDoIt value ].\x0a\x09^ result", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["eval:", "currentLineOrSelection", "ifNotNil:", "onDoIt", "value"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "editor", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.editor; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "editor\x0a\x09^ editor", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "eval:", protocol: "actions", fn: function (aString){ var self=this,$self=this; var compiler; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $early={}; try { compiler=$recv($globals.Compiler)._new(); $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(compiler)._parseExpression_(aString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._on_do_($globals.Error,(function(ex){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); throw $early=[$recv($globals.Terminal)._alert_($recv(ex)._messageText())]; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({ex:ex},$ctx1,2)}); //>>excludeEnd("ctx"); })); return $recv(compiler)._evaluateExpression_on_(aString,$self._receiver()); } catch(e) {if(e===$early)return e[0]; throw e} //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"eval:",{aString:aString,compiler:compiler})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "eval: aString\x0a\x09| compiler |\x0a\x09compiler := Compiler new.\x0a\x09[ compiler parseExpression: aString ] on: Error do: [ :ex |\x0a\x09\x09^ Terminal alert: ex messageText ].\x0a\x09^ compiler evaluateExpression: aString on: self receiver", referencedClasses: ["Compiler", "Error", "Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "on:do:", "parseExpression:", "alert:", "messageText", "evaluateExpression:on:", "receiver"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "fileIn", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.Importer)._new())._import_($recv($self._currentLineOrSelection())._readStream()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"fileIn",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "fileIn\x0a\x09Importer new import: self currentLineOrSelection readStream", referencedClasses: ["Importer"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["import:", "new", "readStream", "currentLineOrSelection"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "focus", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self._editor())._focus(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"focus",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "focus\x0a\x09self editor focus.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["focus", "editor"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "handleKeyDown:", protocol: "actions", fn: function (anEvent){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); if(anEvent.ctrlKey) { if(anEvent.keyCode === 80) { //ctrl+p anEvent.preventDefault(); $self._printIt(); return false; } if(anEvent.keyCode === 68) { //ctrl+d anEvent.preventDefault(); $self._doIt(); return false; } if(anEvent.keyCode === 73) { //ctrl+i anEvent.preventDefault(); $self._inspectIt(); return false; } }; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"handleKeyDown:",{anEvent:anEvent})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anEvent"], source: "handleKeyDown: anEvent\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [["inlineJS:", ["if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09$self._printIt();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09$self._doIt();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09$self._inspectIt();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}"]]], messageSends: [] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "inspectIt", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self._doIt())._inspect(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"inspectIt",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "inspectIt\x0a\x09self doIt inspect", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect", "doIt"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "onDoIt", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.onDoIt; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "onDoIt\x0a\x09^ onDoIt", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "onDoIt:", protocol: "accessing", fn: function (aBlock){ var self=this,$self=this; $self.onDoIt=aBlock; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "onDoIt: aBlock\x0a\x09onDoIt := aBlock", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "onKeyDown:", protocol: "events", fn: function (aBlock){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.div)._onKeyDown_(aBlock); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"onKeyDown:",{aBlock:aBlock})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "onKeyDown: aBlock\x0a\x09div onKeyDown: aBlock", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["onKeyDown:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "onKeyUp:", protocol: "events", fn: function (aBlock){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.div)._onKeyUp_(aBlock); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"onKeyUp:",{aBlock:aBlock})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "onKeyUp: aBlock\x0a\x09div onKeyUp: aBlock", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["onKeyUp:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "print:", protocol: "actions", fn: function (aString){ var self=this,$self=this; var start,stop,currentLine; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$4,$3,$5,$6,$7,$8,$9,$10,$12,$11; $1=$recv($self.editor)._getCursor_(false); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["getCursor:"]=1; //>>excludeEnd("ctx"); currentLine=$recv($1)._line(); start=$recv($globals.HashedCollection)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["new"]=1; //>>excludeEnd("ctx"); $recv(start)._at_put_("line",currentLine); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["at:put:"]=1; //>>excludeEnd("ctx"); $2=start; $4=$recv($self.editor)._getCursor_(false); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["getCursor:"]=2; //>>excludeEnd("ctx"); $3=$recv($4)._ch(); $recv($2)._at_put_("ch",$3); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["at:put:"]=2; //>>excludeEnd("ctx"); $5=$recv($self.editor)._getSelection(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["getSelection"]=1; //>>excludeEnd("ctx"); $recv($5)._ifEmpty_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $6=start; $7=$recv($recv($self.editor)._getLine_(currentLine))._size(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["size"]=1; //>>excludeEnd("ctx"); $recv($6)._at_put_("ch",$7); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["at:put:"]=3; //>>excludeEnd("ctx"); return $recv($self.editor)._setSelection_end_($globals.HashedCollection._newFromPairs_(["line",currentLine,"ch",(0)]),start); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["setSelection:end:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); stop=$recv($globals.HashedCollection)._new(); $recv(stop)._at_put_("line",currentLine); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["at:put:"]=4; //>>excludeEnd("ctx"); $8=stop; $9=$recv($recv($recv(start)._at_("ch")).__plus($recv(aString)._size())).__plus((2)); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["+"]=1; //>>excludeEnd("ctx"); $recv($8)._at_put_("ch",$9); $10=$self.editor; $12=$recv($recv($recv($self.editor)._getSelection()).__comma(" ")).__comma(aString); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=2; //>>excludeEnd("ctx"); $11=$recv($12).__comma(" "); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($10)._replaceSelection_($11); $recv($self.editor)._setCursor_($recv($self.editor)._getCursor_(true)); $recv($self.editor)._setSelection_end_(stop,start); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"print:",{aString:aString,start:start,stop:stop,currentLine:currentLine})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "print: aString\x0a\x09| start stop currentLine |\x0a\x09currentLine := (editor getCursor: false) line.\x0a\x09start := HashedCollection new.\x0a\x09start at: 'line' put: currentLine.\x0a\x09start at: 'ch' put: (editor getCursor: false) ch.\x0a\x09(editor getSelection) ifEmpty: [\x0a\x09\x09\x22select current line if selection is empty\x22\x0a\x09\x09start at: 'ch' put: (editor getLine: currentLine) size.\x0a\x09\x09editor setSelection: #{'line' -> currentLine. 'ch' -> 0} end: start.\x0a\x09].\x0a\x09stop := HashedCollection new.\x0a\x09stop at: 'line' put: currentLine.\x0a\x09stop at: 'ch' put: ((start at: 'ch') + aString size + 2).\x0a\x0a\x09editor replaceSelection: (editor getSelection, ' ', aString, ' ').\x0a\x09editor setCursor: (editor getCursor: true).\x0a\x09editor setSelection: stop end: start", referencedClasses: ["HashedCollection"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["line", "getCursor:", "new", "at:put:", "ch", "ifEmpty:", "getSelection", "size", "getLine:", "setSelection:end:", "+", "at:", "replaceSelection:", ",", "setCursor:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "printIt", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._print_($recv($self._doIt())._printString()); $self._focus(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printIt",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printIt\x0a\x09self print: self doIt printString.\x0a\x09self focus.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["print:", "printString", "doIt", "focus"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "receiver", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.receiver; if(($receiver = $1) == null || $receiver.a$nil){ return $recv($globals.DoIt)._new(); } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"receiver",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "receiver\x0a\x09^ receiver ifNil: [ DoIt new ]", referencedClasses: ["DoIt"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "receiver:", protocol: "accessing", fn: function (anObject){ var self=this,$self=this; $self.receiver=anObject; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "receiver: anObject\x0a\x09receiver := anObject", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "renderOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; var textarea; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.div=$recv($recv(html)._div())._class_("source"); $recv($self.div)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); textarea=$recv(html)._textarea(); return textarea; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); $self._setEditorOn_($recv(textarea)._asDomNode()); $recv($self.div)._onKeyDown_((function(e){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._handleKeyDown_(e); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,2)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html,textarea:textarea})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderOn: html\x0a\x09| textarea |\x0a\x09div := html div class: 'source'.\x0a\x09div with: [ textarea := html textarea ].\x0a\x09self setEditorOn: textarea asDomNode.\x0a\x09div onKeyDown: [ :e | self handleKeyDown: e ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "textarea", "setEditorOn:", "asDomNode", "onKeyDown:", "handleKeyDown:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "selection", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.editor)._getSelection(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selection",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selection\x0a\x09^ editor getSelection", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["getSelection"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "setEditorOn:", protocol: "accessing", fn: function (aTextarea){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.editor=$recv($recv(codeMirrorLib)._provided())._fromTextArea_options_(aTextarea,$globals.HashedCollection._newFromPairs_(["theme","ide.codeMirrorTheme"._settingValueIfAbsent_("default"),"mode","text/x-stsrc","lineNumbers",true,"enterMode","flat","indentWithTabs",true,"indentUnit",(4),"matchBrackets",true,"electricChars",false])); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"setEditorOn:",{aTextarea:aTextarea})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aTextarea"], source: "setEditorOn: aTextarea\x0a\x09editor := codeMirrorLib provided fromTextArea: aTextarea options: #{\x0a\x09\x09#theme -> ('ide.codeMirrorTheme' settingValueIfAbsent: 'default').\x0a\x09\x09#mode -> 'text/x-stsrc'.\x0a\x09\x09#lineNumbers -> true.\x0a\x09\x09#enterMode -> 'flat'.\x0a\x09\x09#indentWithTabs -> true.\x0a\x09\x09#indentUnit -> 4.\x0a\x09\x09#matchBrackets -> true.\x0a\x09\x09#electricChars -> false\x0a\x09}", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["fromTextArea:options:", "provided", "settingValueIfAbsent:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "val", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.editor)._getValue(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"val",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "val\x0a\x09^ editor getValue", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["getValue"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "val:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.editor)._setValue_(aString); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"val:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "val: aString\x0a\x09editor setValue: aString", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["setValue:"] }), $globals.SourceArea); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.SourceArea.a$cls.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $self._setupCodeMirror(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09self setupCodeMirror", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize", "setupCodeMirror"] }), $globals.SourceArea.a$cls); $core.addMethod( $core.method({ selector: "setupCodeMirror", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); codeMirrorLib.keyMap["default"].fallthrough = ["basic"]; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"setupCodeMirror",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "setupCodeMirror\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [["inlineJS:", ["codeMirrorLib.keyMap[\x22default\x22].fallthrough = [\x22basic\x22]"]]], messageSends: [] }), $globals.SourceArea.a$cls); $core.addClass("TabManager", $globals.Widget, ["selectedTab", "tabs", "opened", "ul", "input"], "IDE"); $core.addMethod( $core.method({ selector: "addTab:", protocol: "adding/Removing", fn: function (aWidget){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self._tabs())._add_(aWidget); $recv(aWidget)._appendToJQuery_("#amber"._asJQuery()); $recv(aWidget)._hide(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"addTab:",{aWidget:aWidget})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "addTab: aWidget\x0a\x09self tabs add: aWidget.\x0a\x09aWidget appendToJQuery: '#amber' asJQuery.\x0a\x09aWidget hide", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["add:", "tabs", "appendToJQuery:", "asJQuery", "hide"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "close", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; $1=$self.opened; if($core.assert($1)){ $2="#amber"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $recv($2)._hide(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["hide"]=1; //>>excludeEnd("ctx"); $3=$recv($self.ul)._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=2; //>>excludeEnd("ctx"); $recv($3)._hide(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["hide"]=2; //>>excludeEnd("ctx"); $recv($self.selectedTab)._hide(); $self._removeBodyMargin(); $recv("body"._asJQuery())._removeClass_("amberBody"); $self.opened=false; $self.opened; } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"close",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "close\x0a\x09opened ifTrue: [\x0a\x09'#amber' asJQuery hide.\x0a\x09ul asJQuery hide.\x0a\x09selectedTab hide.\x0a\x09self removeBodyMargin.\x0a\x09'body' asJQuery removeClass: 'amberBody'.\x0a\x09opened := false ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "hide", "asJQuery", "removeBodyMargin", "removeClass:"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "closeTab:", protocol: "actions", fn: function (aWidget){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._removeTab_(aWidget); $self._selectTab_($recv($self._tabs())._last()); $recv(aWidget)._remove(); $self._update(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"closeTab:",{aWidget:aWidget})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "closeTab: aWidget\x0a\x09self removeTab: aWidget.\x0a\x09self selectTab: self tabs last.\x0a\x09aWidget remove.\x0a\x09self update", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["removeTab:", "selectTab:", "last", "tabs", "remove", "update"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4; ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.TabManager.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $recv($globals.Inspector)._register_($globals.IDEInspector); $self.opened=true; $1=(function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(html)._div())._id_("amber"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); }); $2="body"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $recv($1)._appendToJQuery_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["appendToJQuery:"]=1; //>>excludeEnd("ctx"); $3="body"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=2; //>>excludeEnd("ctx"); $recv($3)._addClass_("amberBody"); $self._appendToJQuery_("#amber"._asJQuery()); $self._addTab_($recv($globals.IDETranscript)._current()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["addTab:"]=1; //>>excludeEnd("ctx"); $4=$recv($globals.Workspace)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["new"]=1; //>>excludeEnd("ctx"); $self._addTab_($4); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["addTab:"]=2; //>>excludeEnd("ctx"); $self._addTab_($recv($globals.TestRunner)._new()); $self._selectTab_($recv($self._tabs())._last()); $self._onResize_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self._updateBodyMargin(); return $self._updatePosition(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["updatePosition"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); $self._onWindowResize_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._updatePosition(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09Inspector register: IDEInspector.\x0a\x09opened := true.\x0a\x09[ :html | html div id: 'amber' ] appendToJQuery: 'body' asJQuery.\x0a\x09'body' asJQuery\x0a\x09addClass: 'amberBody'.\x0a\x09self appendToJQuery: '#amber' asJQuery.\x0a\x09self\x0a\x09addTab: IDETranscript current;\x0a\x09addTab: Workspace new;\x0a\x09addTab: TestRunner new.\x0a\x09self selectTab: self tabs last.\x0a\x09self\x0a\x09onResize: [ self updateBodyMargin; updatePosition ];\x0a\x09onWindowResize: [ self updatePosition ]", referencedClasses: ["Inspector", "IDEInspector", "IDETranscript", "Workspace", "TestRunner"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize", "register:", "appendToJQuery:", "id:", "div", "asJQuery", "addClass:", "addTab:", "current", "new", "selectTab:", "last", "tabs", "onResize:", "updateBodyMargin", "updatePosition", "onWindowResize:"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "labelFor:", protocol: "accessing", fn: function (aWidget){ var self=this,$self=this; var label,maxSize; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$4,$3,$2,$5; maxSize=(15); $1=$recv(aWidget)._label(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["label"]=1; //>>excludeEnd("ctx"); $4=$recv(aWidget)._label(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["label"]=2; //>>excludeEnd("ctx"); $3=$recv($4)._size(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["size"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._min_(maxSize); label=$recv($1)._copyFrom_to_((0),$2); $5=$recv($recv($recv(aWidget)._label())._size()).__gt(maxSize); if($core.assert($5)){ label=$recv(label).__comma("..."); label; } return label; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"labelFor:",{aWidget:aWidget,label:label,maxSize:maxSize})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "labelFor: aWidget\x0a\x09| label maxSize |\x0a\x09maxSize := 15.\x0a\x09label := aWidget label copyFrom: 0 to: (aWidget label size min: maxSize).\x0a\x09aWidget label size > maxSize ifTrue: [\x0a\x09\x09label := label, '...' ].\x0a\x09^ label", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["copyFrom:to:", "label", "min:", "size", "ifTrue:", ">", ","] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "newBrowserTab", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($globals.Browser)._open(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"newBrowserTab",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "newBrowserTab\x0a\x09Browser open", referencedClasses: ["Browser"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "onResize:", protocol: "actions", fn: function (aBlock){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv("#amber"._asJQuery())._resizable_($globals.HashedCollection._newFromPairs_(["handles","n","resize",aBlock,"minHeight",(230)])); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"onResize:",{aBlock:aBlock})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "onResize: aBlock\x0a\x09'#amber' asJQuery resizable: #{\x0a\x09\x09'handles' -> 'n'.\x0a\x09\x09'resize' -> aBlock.\x0a\x09\x09'minHeight' -> 230\x0a\x09}", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["resizable:", "asJQuery"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "onWindowResize:", protocol: "actions", fn: function (aBlock){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv(window)._asJQuery())._resize_(aBlock); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"onWindowResize:",{aBlock:aBlock})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aBlock"], source: "onWindowResize: aBlock\x0a\x09window asJQuery resize: aBlock", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["resize:", "asJQuery"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "open", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; $1=$self.opened; if(!$core.assert($1)){ $2="body"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $recv($2)._addClass_("amberBody"); $3="#amber"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=2; //>>excludeEnd("ctx"); $recv($3)._show(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["show"]=1; //>>excludeEnd("ctx"); $recv($recv($self.ul)._asJQuery())._show(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["show"]=2; //>>excludeEnd("ctx"); $self._updateBodyMargin(); $recv($self.selectedTab)._show(); $self.opened=true; $self.opened; } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09opened ifFalse: [\x0a\x09'body' asJQuery addClass: 'amberBody'.\x0a\x09'#amber' asJQuery show.\x0a\x09ul asJQuery show.\x0a\x09self updateBodyMargin.\x0a\x09selectedTab show.\x0a\x09opened := true ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:", "addClass:", "asJQuery", "show", "updateBodyMargin"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "removeBodyMargin", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._setBodyMargin_((0)); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"removeBodyMargin",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "removeBodyMargin\x0a\x09self setBodyMargin: 0", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["setBodyMargin:"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "removeTab:", protocol: "adding/Removing", fn: function (aWidget){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self._tabs())._remove_(aWidget); $self._update(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"removeTab:",{aWidget:aWidget})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "removeTab: aWidget\x0a\x09self tabs remove: aWidget.\x0a\x09self update", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["remove:", "tabs", "update"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "renderOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv($recv(html)._div())._id_("logo"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["id:"]=1; //>>excludeEnd("ctx"); $self._renderToolbarOn_(html); $1=$recv(html)._ul(); $recv($1)._id_("amberTabs"); $self.ul=$recv($1)._yourself(); $self._renderTabs(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderOn: html\x0a\x09html div id: 'logo'.\x0a\x09self renderToolbarOn: html.\x0a\x09ul := html ul\x0a\x09\x09id: 'amberTabs';\x0a\x09\x09yourself.\x0a\x09self renderTabs", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["id:", "div", "renderToolbarOn:", "ul", "yourself", "renderTabs"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "renderTabFor:on:", protocol: "rendering", fn: function (aWidget,html){ var self=this,$self=this; var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$6,$7; li=$recv(html)._li(); $1=$recv($self.selectedTab).__eq(aWidget); if($core.assert($1)){ $recv(li)._class_("selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=1; //>>excludeEnd("ctx"); } $2=li; $recv($2)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $3=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["span"]=1; //>>excludeEnd("ctx"); $recv($3)._class_("ltab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $4=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["span"]=2; //>>excludeEnd("ctx"); $recv($4)._class_("mtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=3; //>>excludeEnd("ctx"); $recv($4)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $5=$recv(aWidget)._canBeClosed(); if($core.assert($5)){ $6=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=3; //>>excludeEnd("ctx"); $recv($6)._class_("close"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=4; //>>excludeEnd("ctx"); $recv($6)._with_("x"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($6)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._closeTab_(aWidget); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); } $7=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=4; //>>excludeEnd("ctx"); return $recv($7)._with_($self._labelFor_(aWidget)); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=2; //>>excludeEnd("ctx"); return $recv($recv(html)._span())._class_("rtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._selectTab_(aWidget); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTabFor:on:",{aWidget:aWidget,html:html,li:li})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget", "html"], source: "renderTabFor: aWidget on: html\x0a\x09| li |\x0a\x09li := html li.\x0a\x09selectedTab = aWidget ifTrue: [\x0a\x09li class: 'selected' ].\x0a\x09li with: [\x0a\x09\x09html span class: 'ltab'.\x0a\x09\x09html span\x0a\x09\x09\x09class: 'mtab';\x0a\x09\x09\x09with: [\x0a\x09\x09\x09\x09aWidget canBeClosed ifTrue: [\x0a\x09\x09\x09\x09\x09html span\x0a\x09\x09\x09\x09\x09\x09class: 'close';\x0a\x09\x09\x09\x09\x09\x09with: 'x';\x0a\x09\x09\x09\x09\x09onClick: [ self closeTab: aWidget ]].\x0a\x09\x09\x09html span with: (self labelFor: aWidget) ].\x0a\x09\x09html span class: 'rtab' ];\x0a\x09onClick: [ self selectTab: aWidget ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["li", "ifTrue:", "=", "class:", "with:", "span", "canBeClosed", "onClick:", "closeTab:", "labelFor:", "selectTab:"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "renderTabs", protocol: "rendering", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; $recv($self.ul)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $recv($self._tabs())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._renderTabFor_on_(each,html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)}); //>>excludeEnd("ctx"); })); $1=$recv(html)._li(); $recv($1)._class_("newtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $2=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=1; //>>excludeEnd("ctx"); $recv($2)._class_("ltab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $3=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=2; //>>excludeEnd("ctx"); $recv($3)._class_("mtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=3; //>>excludeEnd("ctx"); $recv($3)._with_(" + "); return $recv($recv(html)._span())._class_("rtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); return $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._newBrowserTab(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTabs",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "renderTabs\x0a\x09ul contents: [ :html |\x0a\x09\x09self tabs do: [ :each |\x0a\x09\x09self renderTabFor: each on: html ].\x0a\x09\x09html li\x0a\x09\x09class: 'newtab';\x0a\x09\x09with: [\x0a\x09\x09\x09html span class: 'ltab'.\x0a\x09\x09\x09html span class: 'mtab'; with: ' + '.\x0a\x09\x09\x09html span class: 'rtab' ];\x0a\x09\x09onClick: [ self newBrowserTab ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "do:", "tabs", "renderTabFor:on:", "class:", "li", "with:", "span", "onClick:", "newBrowserTab"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "renderToolbarOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4; $1=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($1)._id_("amber_toolbar"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["id:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=$recv(html)._input(); $recv($2)._class_("implementors"); $self.input=$recv($2)._yourself(); $recv($self.input)._onKeyPress_((function(event){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $3=$recv($recv(event)._keyCode()).__eq((13)); if($core.assert($3)){ return $self._search_($recv($recv($self.input)._asJQuery())._val()); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({event:event},$ctx2,2)}); //>>excludeEnd("ctx"); })); $4=$recv(html)._div(); $recv($4)._id_("amber_close"); return $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._close(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderToolbarOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderToolbarOn: html\x0a\x09html div\x0a\x09\x09id: 'amber_toolbar';\x0a\x09\x09with: [\x0a\x09\x09\x09input := html input\x0a\x09\x09\x09\x09class: 'implementors';\x0a\x09\x09\x09\x09yourself.\x0a\x09\x09\x09input onKeyPress: [ :event |\x0a\x09\x09\x09\x09event keyCode = 13 ifTrue: [\x0a\x09\x09\x09\x09self search: input asJQuery val ]].\x0a\x09\x09\x09html div id: 'amber_close'; onClick: [ self close ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["id:", "div", "with:", "class:", "input", "yourself", "onKeyPress:", "ifTrue:", "=", "keyCode", "search:", "val", "asJQuery", "onClick:", "close"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "search:", protocol: "actions", fn: function (aString){ var self=this,$self=this; var searchedClass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; searchedClass=$recv($recv($globals.Smalltalk)._globals())._at_(aString); $1=$recv(searchedClass)._isClass(); if($core.assert($1)){ $recv($globals.Browser)._openOn_(searchedClass); } else { $recv($globals.ReferencesBrowser)._search_(aString); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString,searchedClass:searchedClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "search: aString\x0a\x09| searchedClass |\x0a\x09searchedClass := Smalltalk globals at: aString.\x0a\x09\x09searchedClass isClass\x0a\x09\x09\x09ifTrue: [ Browser openOn: searchedClass ]\x0a\x09\x09\x09ifFalse: [ ReferencesBrowser search: aString ]", referencedClasses: ["Smalltalk", "Browser", "ReferencesBrowser"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["at:", "globals", "ifTrue:ifFalse:", "isClass", "openOn:", "search:"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "selectTab:", protocol: "actions", fn: function (aWidget){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$self._tabs(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["tabs"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._includes_(aWidget); if(!$core.assert($1)){ return self; } $self._open(); $self.selectedTab=aWidget; $recv($self._tabs())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(each)._hide(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)}); //>>excludeEnd("ctx"); })); $recv(aWidget)._show(); $self._update(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectTab:",{aWidget:aWidget})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aWidget"], source: "selectTab: aWidget\x0a\x09(self tabs includes: aWidget) ifFalse: [ ^ self ].\x0a\x0a\x09self open.\x0a\x09selectedTab := aWidget.\x0a\x09self tabs do: [ :each |\x0a\x09each hide ].\x0a\x09aWidget show.\x0a\x09\x0a\x09self update", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:", "includes:", "tabs", "open", "do:", "hide", "show", "update"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "setBodyMargin:", protocol: "actions", fn: function (anInteger){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv(".amberBody"._asJQuery())._css_put_("margin-bottom",$recv($recv(anInteger)._asString()).__comma("px")); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"setBodyMargin:",{anInteger:anInteger})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anInteger"], source: "setBodyMargin: anInteger\x0a\x09'.amberBody' asJQuery css: 'margin-bottom' put: anInteger asString, 'px'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["css:put:", "asJQuery", ",", "asString"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "tabs", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.tabs; if(($receiver = $1) == null || $receiver.a$nil){ $self.tabs=$recv($globals.Array)._new(); return $self.tabs; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"tabs",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "tabs\x0a\x09^ tabs ifNil: [ tabs := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "update", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderTabs(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"update",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "update\x0a\x09self renderTabs", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderTabs"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "updateBodyMargin", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._setBodyMargin_($recv("#amber"._asJQuery())._height()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateBodyMargin",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateBodyMargin\x0a\x09self setBodyMargin: '#amber' asJQuery height", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["setBodyMargin:", "height", "asJQuery"] }), $globals.TabManager); $core.addMethod( $core.method({ selector: "updatePosition", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1="#amber"._asJQuery(); $recv($1)._css_put_("top",""); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["css:put:"]=1; //>>excludeEnd("ctx"); $recv($1)._css_put_("bottom","0px"); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updatePosition",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updatePosition\x0a\x09'#amber' asJQuery\x0a\x09\x09css: 'top' put: '';\x0a\x09\x09css: 'bottom' put: '0px'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["css:put:", "asJQuery"] }), $globals.TabManager); $core.setSlots($globals.TabManager.a$cls, ["current"]); $core.addMethod( $core.method({ selector: "current", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.current; if(($receiver = $1) == null || $receiver.a$nil){ $self.current=( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.TabManager.a$cls.superclass||$boot.nilAsClass).fn.prototype._new.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; return $self.current; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"current",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "current\x0a\x09^ current ifNil: [ current := super new ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.TabManager.a$cls); $core.addMethod( $core.method({ selector: "new", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._shouldNotImplement(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"new",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "new\x0a\x09self shouldNotImplement", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["shouldNotImplement"] }), $globals.TabManager.a$cls); $core.addMethod( $core.method({ selector: "toggleAmberIDE", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1,$4,$5; $3="#amber"._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._length(); $1=$recv($2).__eq((0)); if($core.assert($1)){ $recv($globals.Browser)._open(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["open"]=1; //>>excludeEnd("ctx"); } else { $4=$recv("#amber"._asJQuery())._is_(":visible"); if($core.assert($4)){ $5=$recv($globals.TabManager)._current(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["current"]=1; //>>excludeEnd("ctx"); $recv($5)._close(); } else { $recv($recv($globals.TabManager)._current())._open(); } } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"toggleAmberIDE",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "toggleAmberIDE\x0a\x09'#amber' asJQuery length = 0\x0a\x09\x09ifTrue: [ Browser open ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09('#amber' asJQuery is: ':visible')\x0a\x09\x09\x09\x09ifTrue: [ TabManager current close ]\x0a\x09\x09\x09\x09ifFalse: [ TabManager current open ] ]", referencedClasses: ["Browser", "TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:ifFalse:", "=", "length", "asJQuery", "open", "is:", "close", "current"] }), $globals.TabManager.a$cls); $core.addClass("TabWidget", $globals.Widget, ["div"], "IDE"); $core.addMethod( $core.method({ selector: "canBeClosed", protocol: "testing", fn: function (){ var self=this,$self=this; return false; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "canBeClosed\x0a\x09^ false", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "close", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.TabManager)._current())._closeTab_(self); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"close",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "close\x0a\x09TabManager current closeTab: self", referencedClasses: ["TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["closeTab:", "current"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "hide", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.div)._asJQuery())._hide(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"hide",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "hide\x0a\x09div asJQuery hide", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["hide", "asJQuery"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._subclassResponsibility(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"label",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09self subclassResponsibility", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["subclassResponsibility"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "open", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.TabManager)._current(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["current"]=1; //>>excludeEnd("ctx"); $recv($1)._addTab_(self); $recv($recv($globals.TabManager)._current())._selectTab_(self); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09TabManager current addTab: self.\x0a\x09TabManager current selectTab: self", referencedClasses: ["TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["addTab:", "current", "selectTab:"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "remove", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.div)._asJQuery())._remove(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"remove",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "remove\x0a\x09div asJQuery remove", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["remove", "asJQuery"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "renderOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._div(); $recv($1)._class_("amberTool"); $self.div=$recv($1)._yourself(); $self._renderTab(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderOn: html\x0a\x09div := html div\x0a\x09\x09class: 'amberTool';\x0a\x09\x09yourself.\x0a\x09self renderTab", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "yourself", "renderTab"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "renderTab", protocol: "rendering", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self.div)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("amber_box"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._renderBoxOn_(html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $2=$recv(html)._div(); $recv($2)._class_("amber_buttons"); return $recv($2)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._renderButtonsOn_(html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTab",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "renderTab\x0a\x09div contents: [ :html |\x0a\x09\x09html div\x0a\x09\x09class: 'amber_box';\x0a\x09\x09with: [ self renderBoxOn: html ].\x0a\x09\x09html div\x0a\x09\x09class: 'amber_buttons';\x0a\x09\x09with: [ self renderButtonsOn: html ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "div", "with:", "renderBoxOn:", "renderButtonsOn:"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "show", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.div)._asJQuery())._show(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"show",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "show\x0a\x09div asJQuery show", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["show", "asJQuery"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "update", protocol: "rendering", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderTab(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"update",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "update\x0a\x09self renderTab", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderTab"] }), $globals.TabWidget); $core.addMethod( $core.method({ selector: "open", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._new())._open(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09^ self new open", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open", "new"] }), $globals.TabWidget.a$cls); $core.addClass("Browser", $globals.TabWidget, ["selectedPackage", "selectedClass", "selectedProtocol", "selectedMethod", "packagesList", "classesList", "protocolsList", "methodsList", "sourceArea", "tabsList", "selectedTab", "saveButton", "classButtons", "methodButtons", "unsavedChanges"], "IDE"); $core.addMethod( $core.method({ selector: "addNewClass", protocol: "actions", fn: function (){ var self=this,$self=this; var className; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; className=$recv($globals.Terminal)._prompt_("New class"); $1=$recv($recv(className)._notNil())._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(className)._notEmpty(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); if($core.assert($1)){ $recv($globals.Object)._subclass_instanceVariableNames_package_(className,"",$self._selectedPackage()); $self._resetClassesList(); $self._updateClassesList(); $self._selectClass_($recv($recv($globals.Smalltalk)._globals())._at_(className)); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"addNewClass",{className:className})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "addNewClass\x0a\x09| className |\x0a\x09className := Terminal prompt: 'New class'.\x0a\x09(className notNil and: [ className notEmpty ]) ifTrue: [\x0a\x09\x09Object subclass: className instanceVariableNames: '' package: self selectedPackage.\x0a\x09\x09\x09self\x0a\x09\x09\x09resetClassesList;\x0a\x09\x09\x09updateClassesList.\x0a\x09\x09self selectClass: (Smalltalk globals at: className) ]", referencedClasses: ["Terminal", "Object", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["prompt:", "ifTrue:", "and:", "notNil", "notEmpty", "subclass:instanceVariableNames:package:", "selectedPackage", "resetClassesList", "updateClassesList", "selectClass:", "at:", "globals"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "addNewProtocol", protocol: "actions", fn: function (){ var self=this,$self=this; var newProtocol; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; newProtocol=$recv($globals.Terminal)._prompt_("New method protocol"); $1=$recv($recv(newProtocol)._notNil())._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(newProtocol)._notEmpty(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); if($core.assert($1)){ $recv($self.selectedMethod)._protocol_(newProtocol); $self._setMethodProtocol_(newProtocol); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"addNewProtocol",{newProtocol:newProtocol})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "addNewProtocol\x0a\x09| newProtocol |\x0a\x09\x0a\x09newProtocol := Terminal prompt: 'New method protocol'.\x0a\x09\x0a\x09(newProtocol notNil and: [ newProtocol notEmpty ]) ifTrue: [\x0a\x09\x09selectedMethod protocol: newProtocol.\x0a\x09\x09self setMethodProtocol: newProtocol ]", referencedClasses: ["Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["prompt:", "ifTrue:", "and:", "notNil", "notEmpty", "protocol:", "setMethodProtocol:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "canBeClosed", protocol: "testing", fn: function (){ var self=this,$self=this; return true; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "canBeClosed\x0a\x09^ true", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Browser); $core.addMethod( $core.method({ selector: "cancelChanges", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self.unsavedChanges; if($core.assert($1)){ return $recv($globals.Terminal)._confirm_("Cancel changes?"); } else { return true; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"cancelChanges",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "cancelChanges\x0a\x09^ unsavedChanges\x0a\x09ifTrue: [ Terminal confirm: 'Cancel changes?' ]\x0a\x09ifFalse: [ true ]", referencedClasses: ["Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:ifFalse:", "confirm:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "classCommentSource", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.selectedClass)._comment(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"classCommentSource",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classCommentSource\x0a\x09^ selectedClass comment", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["comment"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "classDeclarationTemplate", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv("Object subclass: #NameOfSubclass\x0a\x09instanceVariableNames: ''\x0a\x09package: '".__comma($self._selectedPackage())).__comma("'"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); return $1; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"classDeclarationTemplate",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classDeclarationTemplate\x0a\x09^ 'Object subclass: #NameOfSubclass\x0a\x09instanceVariableNames: ''''\x0a\x09package: ''', self selectedPackage, ''''", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "selectedPackage"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "classes", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; return $recv($recv($recv($recv($globals.Smalltalk)._classes())._select_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(each)._category()).__eq($self.selectedPackage); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })))._sort_((function(a,b){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(a)._name(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["name"]=1; //>>excludeEnd("ctx"); return $recv($1).__lt($recv(b)._name()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1,2)}); //>>excludeEnd("ctx"); })))._asSet(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"classes",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classes\x0a\x09^ ((Smalltalk classes\x0a\x09select: [ :each | each category = selectedPackage ])\x0a\x09sort: [ :a :b | a name < b name ]) asSet", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["asSet", "sort:", "select:", "classes", "=", "category", "<", "name"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "commitPackage", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.selectedPackage; if(($receiver = $1) == null || $receiver.a$nil){ $1; } else { $recv($recv($globals.Package)._named_($self.selectedPackage))._commit(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"commitPackage",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "commitPackage\x0a\x09selectedPackage ifNotNil: [\x0a\x09\x09(Package named: selectedPackage) commit ]", referencedClasses: ["Package"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNotNil:", "commit", "named:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "compile", protocol: "actions", fn: function (){ var self=this,$self=this; var currentEditLine; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$5,$4,$receiver; $self._disableSaveButton(); $1=$recv($self.sourceArea)._editor(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["editor"]=1; //>>excludeEnd("ctx"); currentEditLine=$recv($1)._getCursor(); $2=$recv($self.selectedTab).__eq("comment"); if($core.assert($2)){ $3=$self.selectedClass; if(($receiver = $3) == null || $receiver.a$nil){ $3; } else { $self._compileClassComment(); } } else { $5=$recv($self.selectedProtocol)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["notNil"]=1; //>>excludeEnd("ctx"); $4=$recv($5)._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.selectedMethod)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)}); //>>excludeEnd("ctx"); })); if($core.assert($4)){ $self._compileMethodDefinition(); } else { $self._compileDefinition(); } } $recv($recv($self.sourceArea)._editor())._setCursor_(currentEditLine); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compile",{currentEditLine:currentEditLine})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "compile\x0a\x09| currentEditLine |\x0a\x09self disableSaveButton.\x0a\x09currentEditLine := sourceArea editor getCursor.\x0a\x09selectedTab = #comment\x0a\x09ifTrue: [\x0a\x09\x09\x09selectedClass ifNotNil: [\x0a\x09\x09\x09\x09self compileClassComment ]]\x0a\x09ifFalse: [\x0a\x09\x09\x09(selectedProtocol notNil or: [ selectedMethod notNil ])\x0a\x09\x09\x09\x09ifFalse: [ self compileDefinition ]\x0a\x09\x09\x09\x09ifTrue: [ self compileMethodDefinition ]].\x0a\x09sourceArea editor setCursor: currentEditLine.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["disableSaveButton", "getCursor", "editor", "ifTrue:ifFalse:", "=", "ifNotNil:", "compileClassComment", "ifFalse:ifTrue:", "or:", "notNil", "compileDefinition", "compileMethodDefinition", "setCursor:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "compileClassComment", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.selectedClass)._comment_($recv($self.sourceArea)._val()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileClassComment",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "compileClassComment\x0a\x09selectedClass comment: sourceArea val", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["comment:", "val"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "compileDefinition", protocol: "actions", fn: function (){ var self=this,$self=this; var newClass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); newClass=$recv($recv($globals.Compiler)._new())._evaluateExpression_($recv($self.sourceArea)._val()); $self._resetClassesList(); $self._updateCategoriesList(); $self._updateClassesList(); $self._selectClass_(newClass); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileDefinition",{newClass:newClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "compileDefinition\x0a\x09| newClass |\x0a\x09newClass := Compiler new evaluateExpression: sourceArea val.\x0a\x09self\x0a\x09resetClassesList;\x0a\x09updateCategoriesList;\x0a\x09updateClassesList.\x0a\x09self selectClass: newClass", referencedClasses: ["Compiler"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["evaluateExpression:", "new", "val", "resetClassesList", "updateCategoriesList", "updateClassesList", "selectClass:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "compileMethodDefinition", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._compileMethodDefinitionFor_($self._selectedClassOrMetaClass()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileMethodDefinition",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "compileMethodDefinition\x0a\x09self compileMethodDefinitionFor: self selectedClassOrMetaClass", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["compileMethodDefinitionFor:", "selectedClassOrMetaClass"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "compileMethodDefinitionFor:", protocol: "actions", fn: function (aClass){ var self=this,$self=this; var compiler,package_,method,compiledSource,source,node; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$5,$4,$9,$8,$7,$6,$receiver; var $early={}; try { source=$recv($self.sourceArea)._val(); $1=$self.selectedProtocol; if(($receiver = $1) == null || $receiver.a$nil){ $self.selectedProtocol=$recv($self.selectedMethod)._protocol(); $self.selectedProtocol; } else { $1; } $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $2=$recv($globals.Compiler)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["new"]=1; //>>excludeEnd("ctx"); method=$recv($2)._install_forClass_protocol_(source,aClass,$self.selectedProtocol); return method; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); }))._on_do_($globals.ParseError,(function(e){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $3="PARSE ERROR: ".__comma($recv(e)._messageText()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx[","]=1; //>>excludeEnd("ctx"); throw $early=[$recv($globals.Terminal)._alert_($3)]; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({e:e},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); }))._on_do_($globals.UnknownVariableError,(function(e){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $5=$recv(e)._variableName(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["variableName"]=1; //>>excludeEnd("ctx"); $4=$recv($globals.Platform)._includesGlobal_($5); if(!$core.assert($4)){ $9=$recv(e)._variableName(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["variableName"]=2; //>>excludeEnd("ctx"); $8="Declare '".__comma($9); $7=$recv($8).__comma("' as instance variable?"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=2; //>>excludeEnd("ctx"); $6=$recv($globals.Terminal)._confirm_($7); if($core.assert($6)){ $recv($recv($globals.Environment)._new())._addInstVarNamed_to_($recv(e)._variableName(),aClass); throw $early=[$self._compileMethodDefinitionFor_(aClass)]; } else { throw $early=[nil]; } } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["on:do:"]=1; //>>excludeEnd("ctx"); $self._updateMethodsList(); $self._selectMethod_(method); return self; } catch(e) {if(e===$early)return e[0]; throw e} //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"compileMethodDefinitionFor:",{aClass:aClass,compiler:compiler,package_:package_,method:method,compiledSource:compiledSource,source:source,node:node})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "compileMethodDefinitionFor: aClass\x0a\x09| compiler package method compiledSource source node |\x0a\x09source := sourceArea val.\x0a\x09selectedProtocol ifNil: [ selectedProtocol := selectedMethod protocol ].\x0a\x09[[ method := Compiler new\x0a\x09\x09install: source forClass: aClass protocol: selectedProtocol ]\x0a\x09on: ParseError do: [ :e |\x0a\x09\x09^ Terminal alert: 'PARSE ERROR: ', e messageText ]]\x0a\x09on: UnknownVariableError do: [ :e |\x0a\x09\x09\x22Do not try to redeclare javascript's objects\x22\x0a\x09\x09(Platform includesGlobal: e variableName) ifFalse: [\x0a\x09\x09(Terminal confirm: 'Declare ''', e variableName, ''' as instance variable?') ifFalse: [ ^ nil ] ifTrue: [\x0a\x09\x09\x09Environment new addInstVarNamed: e variableName to: aClass.\x0a\x09\x09\x09^ self compileMethodDefinitionFor: aClass ] ] ].\x0a\x09self updateMethodsList.\x0a\x09self selectMethod: method", referencedClasses: ["Compiler", "ParseError", "Terminal", "UnknownVariableError", "Platform", "Environment"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val", "ifNil:", "protocol", "on:do:", "install:forClass:protocol:", "new", "alert:", ",", "messageText", "ifFalse:", "includesGlobal:", "variableName", "ifFalse:ifTrue:", "confirm:", "addInstVarNamed:to:", "compileMethodDefinitionFor:", "updateMethodsList", "selectMethod:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "copyClass", protocol: "actions", fn: function (){ var self=this,$self=this; var className; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; className=$recv($globals.Terminal)._prompt_("Copy class"); $1=$recv($recv(className)._notNil())._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(className)._notEmpty(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); if($core.assert($1)){ $recv($recv($globals.ClassBuilder)._new())._copyClass_named_($self._selectedClass(),className); $self._resetClassesList(); $self._updateClassesList(); $self._selectClass_($recv($recv($globals.Smalltalk)._globals())._at_(className)); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"copyClass",{className:className})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "copyClass\x0a\x09| className |\x0a\x09className := Terminal prompt: 'Copy class'.\x0a\x09(className notNil and: [ className notEmpty ]) ifTrue: [\x0a\x09\x09ClassBuilder new copyClass: self selectedClass named: className.\x0a\x09\x09\x09self\x0a\x09\x09\x09resetClassesList;\x0a\x09\x09\x09updateClassesList.\x0a\x09\x09self selectClass: (Smalltalk globals at: className) ]", referencedClasses: ["Terminal", "ClassBuilder", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["prompt:", "ifTrue:", "and:", "notNil", "notEmpty", "copyClass:named:", "new", "selectedClass", "resetClassesList", "updateClassesList", "selectClass:", "at:", "globals"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "declarationSource", protocol: "accessing", fn: function (){ var self=this,$self=this; var klass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$receiver; klass=$self._selectedClassOrMetaClass(); $1=klass; if(($receiver = $1) == null || $receiver.a$nil){ $2=$recv($self.selectedTab).__eq("instance"); if($core.assert($2)){ return $self._classDeclarationTemplate(); } else { return ""; } } else { return $recv(klass)._definition(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"declarationSource",{klass:klass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "declarationSource\x0a\x09| klass |\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09^ klass ifNotNil: [ klass definition ] ifNil: [\x0a\x09\x09selectedTab = #instance ifTrue: [ self classDeclarationTemplate ] ifFalse: [ '' ] \x0a\x09]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["selectedClassOrMetaClass", "ifNotNil:ifNil:", "definition", "ifTrue:ifFalse:", "=", "classDeclarationTemplate"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "disableSaveButton", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.saveButton; if(($receiver = $1) == null || $receiver.a$nil){ $1; } else { $recv($self.saveButton)._at_put_("disabled",true); } $self.unsavedChanges=false; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"disableSaveButton",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "disableSaveButton\x0a\x09saveButton ifNotNil: [\x0a\x09saveButton at: 'disabled' put: true ].\x0a\x09unsavedChanges := false", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNotNil:", "at:put:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "dummyMethodSource", protocol: "accessing", fn: function (){ var self=this,$self=this; return "messageSelectorAndArgumentNames\x0a\x09\x22comment stating purpose of message\x22\x0a\x0a\x09| temporary variable names |\x0a\x09statements"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "dummyMethodSource\x0a\x09^ 'messageSelectorAndArgumentNames\x0a\x09\x22comment stating purpose of message\x22\x0a\x0a\x09| temporary variable names |\x0a\x09statements'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Browser); $core.addMethod( $core.method({ selector: "handleSourceAreaKeyDown:", protocol: "actions", fn: function (anEvent){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); if(anEvent.ctrlKey) { if(anEvent.keyCode === 83) { //ctrl+s $self._compile(); anEvent.preventDefault(); return false; } } ; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"handleSourceAreaKeyDown:",{anEvent:anEvent})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anEvent"], source: "handleSourceAreaKeyDown: anEvent\x0a\x09", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [["inlineJS:", ["if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 83) { //ctrl+s\x0a\x09\x09\x09$self._compile();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}\x0a\x09"]]], messageSends: [] }), $globals.Browser); $core.addMethod( $core.method({ selector: "hideClassButtons", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.classButtons)._asJQuery())._hide(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"hideClassButtons",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "hideClassButtons\x0a\x09classButtons asJQuery hide", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["hide", "asJQuery"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "hideMethodButtons", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.methodButtons)._asJQuery())._hide(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"hideMethodButtons",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "hideMethodButtons\x0a\x09methodButtons asJQuery hide", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["hide", "asJQuery"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.Browser.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $self.selectedTab="instance"; $self.selectedPackage=$recv($self._packages())._first(); $self.unsavedChanges=false; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09selectedTab := #instance.\x0a\x09selectedPackage := self packages first.\x0a\x09unsavedChanges := false", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize", "first", "packages"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.selectedClass; if(($receiver = $1) == null || $receiver.a$nil){ return "Browser (nil)"; } else { return "Browser: ".__comma($recv($self.selectedClass)._name()); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"label",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ selectedClass\x0a\x09ifNil: [ 'Browser (nil)' ]\x0a\x09ifNotNil: [ 'Browser: ', selectedClass name ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:ifNotNil:", ",", "name"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "methodSource", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.selectedMethod; if(($receiver = $1) == null || $receiver.a$nil){ return $self._dummyMethodSource(); } else { return $recv($self.selectedMethod)._source(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"methodSource",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "methodSource\x0a\x09^ selectedMethod\x0a\x09ifNil: [ self dummyMethodSource ]\x0a\x09ifNotNil: [ selectedMethod source ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:ifNotNil:", "dummyMethodSource", "source"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "methods", protocol: "accessing", fn: function (){ var self=this,$self=this; var klass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$3,$4,$2,$5,$receiver; $1=$recv($self.selectedTab).__eq("comment"); if($core.assert($1)){ return []; } klass=$self._selectedClassOrMetaClass(); $3=$self.selectedProtocol; if(($receiver = $3) == null || $receiver.a$nil){ $4=klass; if(($receiver = $4) == null || $receiver.a$nil){ $2=[]; } else { $2=$recv($recv(klass)._methodDictionary())._values(); } } else { $2=$recv(klass)._methodsInProtocol_($self.selectedProtocol); } return $recv($2)._sort_((function(a,b){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $5=$recv(a)._selector(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["selector"]=1; //>>excludeEnd("ctx"); return $recv($5).__lt($recv(b)._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"methods",{klass:klass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "methods\x0a\x09| klass |\x0a\x09selectedTab = #comment ifTrue: [ ^ #() ].\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09^ (selectedProtocol\x0a\x09ifNil: [\x0a\x09\x09klass\x0a\x09\x09ifNil: [ #() ]\x0a\x09\x09ifNotNil: [ klass methodDictionary values ]]\x0a\x09ifNotNil: [\x0a\x09\x09klass methodsInProtocol: selectedProtocol ]) \x0a\x09\x09\x09\x09sort: [ :a :b | a selector < b selector ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "=", "selectedClassOrMetaClass", "sort:", "ifNil:ifNotNil:", "values", "methodDictionary", "methodsInProtocol:", "<", "selector"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "packages", protocol: "accessing", fn: function (){ var self=this,$self=this; var packages; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$3,$1; packages=$recv($globals.Array)._new(); $recv($recv($globals.Smalltalk)._classes())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=packages; $3=$recv(each)._category(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["category"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._includes_($3); if(!$core.assert($1)){ return $recv(packages)._add_($recv(each)._category()); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return $recv(packages)._sort(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"packages",{packages:packages})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "packages\x0a\x09| packages |\x0a\x09packages := Array new.\x0a\x09Smalltalk classes do: [ :each |\x0a\x09(packages includes: each category) ifFalse: [\x0a\x09\x09packages add: each category ]].\x0a\x09^ packages sort", referencedClasses: ["Array", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "do:", "classes", "ifFalse:", "includes:", "category", "add:", "sort"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "protocols", protocol: "accessing", fn: function (){ var self=this,$self=this; var klass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$receiver; var $early={}; try { $1=$self.selectedClass; if(($receiver = $1) == null || $receiver.a$nil){ return []; } else { $1; } $2=$recv($self.selectedTab).__eq("comment"); if($core.assert($2)){ return []; } klass=$self._selectedClassOrMetaClass(); $3=klass; if(($receiver = $3) == null || $receiver.a$nil){ return []; } else { $3; } $recv($recv(klass)._methodDictionary())._ifEmpty_((function(){ throw $early=[["not yet classified"]]; })); return $recv(klass)._protocols(); } catch(e) {if(e===$early)return e[0]; throw e} //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"protocols",{klass:klass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "protocols\x0a\x09| klass |\x0a\x09selectedClass ifNil: [ ^ #() ].\x0a\x09selectedTab = #comment ifTrue: [ ^ #() ].\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09klass ifNil: [ ^ #() ].\x0a\x09klass methodDictionary ifEmpty: [ ^ {'not yet classified'} ].\x0a\x09^ klass protocols", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "ifTrue:", "=", "selectedClassOrMetaClass", "ifEmpty:", "methodDictionary", "protocols"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "removeClass", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$recv("Do you really want to remove ".__comma($recv($self.selectedClass)._name())).__comma("?"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); $1=$recv($globals.Terminal)._confirm_($2); if($core.assert($1)){ $recv($globals.Smalltalk)._removeClass_($self.selectedClass); $self._resetClassesList(); $self._selectClass_(nil); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"removeClass",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "removeClass\x0a\x09(Terminal confirm: 'Do you really want to remove ', selectedClass name, '?')\x0a\x09ifTrue: [\x0a\x09\x09Smalltalk removeClass: selectedClass.\x0a\x09\x09self resetClassesList.\x0a\x09\x09self selectClass: nil ]", referencedClasses: ["Terminal", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "confirm:", ",", "name", "removeClass:", "resetClassesList", "selectClass:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "removeMethod", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$3,$2; $1=$self._cancelChanges(); if($core.assert($1)){ $3=$recv("Do you really want to remove #".__comma($recv($self.selectedMethod)._selector())).__comma("?"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); $2=$recv($globals.Terminal)._confirm_($3); if($core.assert($2)){ $recv($self._selectedClassOrMetaClass())._removeCompiledMethod_($self.selectedMethod); $self._selectMethod_(nil); } } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"removeMethod",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "removeMethod\x0a\x09self cancelChanges ifTrue: [\x0a\x09(Terminal confirm: 'Do you really want to remove #', selectedMethod selector, '?')\x0a\x09\x09ifTrue: [\x0a\x09\x09self selectedClassOrMetaClass removeCompiledMethod: selectedMethod.\x0a\x09\x09self selectMethod: nil ]]", referencedClasses: ["Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "confirm:", ",", "selector", "removeCompiledMethod:", "selectedClassOrMetaClass", "selectMethod:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "removePackage", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$recv("Do you really want to remove the whole package ".__comma($self.selectedPackage)).__comma(" with all its classes?"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); $1=$recv($globals.Terminal)._confirm_($2); if($core.assert($1)){ $recv($globals.Smalltalk)._removePackage_($self.selectedPackage); $self._updateCategoriesList(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"removePackage",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "removePackage\x0a\x0a\x09(Terminal confirm: 'Do you really want to remove the whole package ', selectedPackage, ' with all its classes?')\x0a\x09ifTrue: [\x0a\x09\x09Smalltalk removePackage: selectedPackage.\x0a\x09\x09self updateCategoriesList ]", referencedClasses: ["Terminal", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "confirm:", ",", "removePackage:", "updateCategoriesList"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renameClass", protocol: "actions", fn: function (){ var self=this,$self=this; var newName; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; newName=$recv($globals.Terminal)._prompt_("Rename class ".__comma($recv($self.selectedClass)._name())); $1=$recv($recv(newName)._notNil())._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(newName)._notEmpty(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); if($core.assert($1)){ $recv($self.selectedClass)._rename_(newName); $self._updateClassesList(); $self._updateSourceAndButtons(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renameClass",{newName:newName})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "renameClass\x0a\x09| newName |\x0a\x09newName := Terminal prompt: 'Rename class ', selectedClass name.\x0a\x09(newName notNil and: [ newName notEmpty ]) ifTrue: [\x0a\x09selectedClass rename: newName.\x0a\x09self\x0a\x09\x09updateClassesList;\x0a\x09\x09updateSourceAndButtons ]", referencedClasses: ["Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["prompt:", ",", "name", "ifTrue:", "and:", "notNil", "notEmpty", "rename:", "updateClassesList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renamePackage", protocol: "actions", fn: function (){ var self=this,$self=this; var newName; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; newName=$recv($globals.Terminal)._prompt_("Rename package ".__comma($self.selectedPackage)); $1=newName; if(($receiver = $1) == null || $receiver.a$nil){ $1; } else { $recv(newName)._ifNotEmpty_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $recv($globals.Smalltalk)._renamePackage_to_($self.selectedPackage,newName); return $self._updateCategoriesList(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renamePackage",{newName:newName})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "renamePackage\x0a\x0a\x09| newName |\x0a\x09newName := Terminal prompt: 'Rename package ', selectedPackage.\x0a\x09newName ifNotNil: [ newName ifNotEmpty: [\x0a\x09Smalltalk renamePackage: selectedPackage to: newName.\x0a\x09self updateCategoriesList ]]", referencedClasses: ["Terminal", "Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["prompt:", ",", "ifNotNil:", "ifNotEmpty:", "renamePackage:to:", "updateCategoriesList"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renderBottomPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._div(); $recv($1)._class_("amber_sourceCode"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self.sourceArea=$recv($globals.SourceArea)._new(); $recv($self.sourceArea)._renderOn_(html); $recv($self.sourceArea)._onKeyDown_((function(e){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._handleSourceAreaKeyDown_(e); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({e:e},$ctx2,2)}); //>>excludeEnd("ctx"); })); return $recv($self.sourceArea)._onKeyUp_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._updateStatus(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBottomPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBottomPanelOn: html\x0a\x09html div\x0a\x09class: 'amber_sourceCode';\x0a\x09with: [\x0a\x09\x09sourceArea := SourceArea new.\x0a\x09\x09sourceArea renderOn: html.\x0a\x09\x09\x09sourceArea onKeyDown: [ :e |\x0a\x09\x09\x09\x09self handleSourceAreaKeyDown: e ].\x0a\x09\x09sourceArea onKeyUp: [ self updateStatus ]]", referencedClasses: ["SourceArea"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "new", "renderOn:", "onKeyDown:", "handleSourceAreaKeyDown:", "onKeyUp:", "updateStatus"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderTopPanelOn_(html); $self._renderTabsOn_(html); $self._renderBottomPanelOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09self\x0a\x09renderTopPanelOn: html;\x0a\x09renderTabsOn: html;\x0a\x09renderBottomPanelOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderTopPanelOn:", "renderTabsOn:", "renderBottomPanelOn:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5; $self.saveButton=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=1; //>>excludeEnd("ctx"); $1=$self.saveButton; $recv($1)._with_("Save"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._compile(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $self.methodButtons=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["span"]=1; //>>excludeEnd("ctx"); $self.classButtons=$recv(html)._span(); $2=$recv(html)._div(); $recv($2)._class_("right"); $recv($2)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $3=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($3)._with_("DoIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._doIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=3; //>>excludeEnd("ctx"); $recv($4)._with_("PrintIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._printIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=3; //>>excludeEnd("ctx"); $5=$recv(html)._button(); $recv($5)._with_("InspectIt"); return $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._inspectIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $self._updateSourceAndButtons(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09saveButton := html button.\x0a\x09saveButton\x0a\x09with: 'Save';\x0a\x09onClick: [ self compile ].\x0a\x09methodButtons := html span.\x0a\x09classButtons := html span.\x0a\x09html div\x0a\x09class: 'right';\x0a\x09with: [\x0a\x09\x09html button\x0a\x09\x09\x09with: 'DoIt';\x0a\x09\x09\x09onClick: [ sourceArea doIt ].\x0a\x09\x09html button\x0a\x09\x09\x09with: 'PrintIt';\x0a\x09\x09\x09onClick: [ sourceArea printIt ].\x0a\x09\x09html button with: 'InspectIt';\x0a\x09\x09\x09onClick: [ sourceArea inspectIt ]].\x0a\x09self updateSourceAndButtons", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["button", "with:", "onClick:", "compile", "span", "class:", "div", "doIt", "printIt", "inspectIt", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renderTabsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.tabsList=$recv($recv(html)._ul())._class_("amber_tabs amber_browser"); $self._updateTabsList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTabsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderTabsOn: html\x0a\x09tabsList := html ul class: 'amber_tabs amber_browser'.\x0a\x09self updateTabsList.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateTabsList"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "renderTopPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$6,$7; $1=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("top"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=$recv(html)._ul(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["ul"]=1; //>>excludeEnd("ctx"); $self.packagesList=$recv($2)._class_("amber_column browser packages"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $3=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["div"]=2; //>>excludeEnd("ctx"); $recv($3)._class_("amber_packagesButtons"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=3; //>>excludeEnd("ctx"); $recv($3)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($4)._title_("Commit classes in this package to disk"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["title:"]=1; //>>excludeEnd("ctx"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._commitPackage(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $recv($4)._with_("Commit"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $5=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($5)._title_("Rename package"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["title:"]=2; //>>excludeEnd("ctx"); $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._renamePackage(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $recv($5)._with_("Rename"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $6=$recv(html)._button(); $recv($6)._title_("Remove this package from the system"); $recv($6)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._removePackage(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); })); return $recv($6)._with_("Remove"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $self.classesList=$recv($globals.ClassesList)._on_(self); $recv($self.classesList)._renderOn_(html); $7=$recv(html)._ul(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["ul"]=2; //>>excludeEnd("ctx"); $self.protocolsList=$recv($7)._class_("amber_column browser protocols"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=4; //>>excludeEnd("ctx"); $self.methodsList=$recv($recv(html)._ul())._class_("amber_column browser methods"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=5; //>>excludeEnd("ctx"); $self._updateCategoriesList(); $self._updateClassesList(); $self._updateProtocolsList(); $self._updateMethodsList(); return $recv($recv(html)._div())._class_("amber_clear"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTopPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderTopPanelOn: html\x0a\x09html div\x0a\x09\x09class: 'top';\x0a\x09\x09with: [\x0a\x09\x09\x09packagesList := html ul class: 'amber_column browser packages'.\x0a\x09\x09\x09\x09html div class: 'amber_packagesButtons'; with: [\x0a\x09\x09\x09\x09html button\x0a\x09\x09\x09\x09\x09title: 'Commit classes in this package to disk';\x0a\x09\x09\x09\x09\x09onClick: [ self commitPackage ];\x0a\x09\x09\x09\x09\x09with: 'Commit'.\x0a\x09\x09\x09\x09\x09html button\x0a\x09\x09\x09\x09\x09title: 'Rename package';\x0a\x09\x09\x09\x09\x09onClick: [ self renamePackage ];\x0a\x09\x09\x09\x09\x09with: 'Rename'.\x0a\x09\x09\x09\x09\x09html button\x0a\x09\x09\x09\x09\x09title: 'Remove this package from the system';\x0a\x09\x09\x09\x09\x09onClick: [ self removePackage ];\x0a\x09\x09\x09\x09\x09with: 'Remove' ].\x0a\x09\x09\x09classesList := ClassesList on: self.\x0a\x09\x09\x09classesList renderOn: html.\x0a\x09\x09\x09protocolsList := html ul class: 'amber_column browser protocols'.\x0a\x09\x09\x09methodsList := html ul class: 'amber_column browser methods'.\x0a\x09\x09\x09self\x0a\x09\x09\x09\x09updateCategoriesList;\x0a\x09\x09\x09\x09updateClassesList;\x0a\x09\x09\x09\x09updateProtocolsList;\x0a\x09\x09\x09\x09updateMethodsList.\x0a\x09\x09\x09html div class: 'amber_clear' ]", referencedClasses: ["ClassesList"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "ul", "title:", "button", "onClick:", "commitPackage", "renamePackage", "removePackage", "on:", "renderOn:", "updateCategoriesList", "updateClassesList", "updateProtocolsList", "updateMethodsList"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "resetClassesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.classesList)._resetNodes(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"resetClassesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "resetClassesList\x0a\x09classesList resetNodes", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["resetNodes"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "search:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $1=$self._cancelChanges(); if($core.assert($1)){ var searchedClass; searchedClass=$recv($recv($globals.Smalltalk)._globals())._at_(aString); $2=$recv(searchedClass)._isClass(); if($core.assert($2)){ $recv($self._class())._openOn_(searchedClass); } else { $self._searchReferencesOf_(aString); } } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "search: aString\x0a\x09self cancelChanges ifTrue: [ | searchedClass |\x0a\x09\x09searchedClass := Smalltalk globals at: aString.\x0a\x09\x09searchedClass isClass\x0a\x09\x09\x09ifTrue: [ self class openOn: searchedClass ]\x0a\x09\x09\x09ifFalse: [ self searchReferencesOf: aString ]]", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "at:", "globals", "ifTrue:ifFalse:", "isClass", "openOn:", "class", "searchReferencesOf:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "searchClassReferences", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($globals.ReferencesBrowser)._search_($recv($self.selectedClass)._name()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchClassReferences",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "searchClassReferences\x0a\x09ReferencesBrowser search: selectedClass name", referencedClasses: ["ReferencesBrowser"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["search:", "name"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "searchReferencesOf:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($globals.ReferencesBrowser)._search_(aString); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchReferencesOf:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "searchReferencesOf: aString\x0a\x09ReferencesBrowser search: aString", referencedClasses: ["ReferencesBrowser"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["search:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectCategory:", protocol: "actions", fn: function (aCategory){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._cancelChanges(); if($core.assert($1)){ $self.selectedPackage=aCategory; $self.selectedMethod=nil; $self.selectedProtocol=$self.selectedMethod; $self.selectedClass=$self.selectedProtocol; $self._resetClassesList(); $self._updateCategoriesList(); $self._updateClassesList(); $self._updateProtocolsList(); $self._updateMethodsList(); $self._updateSourceAndButtons(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectCategory:",{aCategory:aCategory})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCategory"], source: "selectCategory: aCategory\x0a\x09self cancelChanges ifTrue: [\x0a\x09selectedPackage := aCategory.\x0a\x09selectedClass := selectedProtocol := selectedMethod := nil.\x0a\x09self resetClassesList.\x0a\x09self\x0a\x09\x09updateCategoriesList;\x0a\x09\x09updateClassesList;\x0a\x09\x09updateProtocolsList;\x0a\x09\x09updateMethodsList;\x0a\x09\x09updateSourceAndButtons ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "resetClassesList", "updateCategoriesList", "updateClassesList", "updateProtocolsList", "updateMethodsList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectClass:", protocol: "actions", fn: function (aClass){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._cancelChanges(); if($core.assert($1)){ $self.selectedClass=aClass; $self.selectedMethod=nil; $self.selectedProtocol=$self.selectedMethod; $self._updateClassesList(); $self._updateProtocolsList(); $self._updateMethodsList(); $self._updateSourceAndButtons(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectClass:",{aClass:aClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "selectClass: aClass\x0a\x09self cancelChanges ifTrue: [\x0a\x09selectedClass := aClass.\x0a\x09selectedProtocol := selectedMethod := nil.\x0a\x09self\x0a\x09\x09updateClassesList;\x0a\x09\x09updateProtocolsList;\x0a\x09\x09updateMethodsList;\x0a\x09\x09updateSourceAndButtons ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "updateClassesList", "updateProtocolsList", "updateMethodsList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectMethod:", protocol: "actions", fn: function (aMethod){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._cancelChanges(); if($core.assert($1)){ $self.selectedMethod=aMethod; $self._updateProtocolsList(); $self._updateMethodsList(); $self._updateSourceAndButtons(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectMethod:",{aMethod:aMethod})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aMethod"], source: "selectMethod: aMethod\x0a\x09self cancelChanges ifTrue: [\x0a\x09selectedMethod := aMethod.\x0a\x09self\x0a\x09\x09updateProtocolsList;\x0a\x09\x09updateMethodsList;\x0a\x09\x09updateSourceAndButtons ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "updateProtocolsList", "updateMethodsList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectProtocol:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._cancelChanges(); if($core.assert($1)){ $self.selectedProtocol=aString; $self.selectedMethod=nil; $self._updateProtocolsList(); $self._updateMethodsList(); $self._updateSourceAndButtons(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectProtocol:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "selectProtocol: aString\x0a\x09self cancelChanges ifTrue: [\x0a\x09selectedProtocol := aString.\x0a\x09selectedMethod := nil.\x0a\x09self\x0a\x09\x09updateProtocolsList;\x0a\x09\x09updateMethodsList;\x0a\x09\x09updateSourceAndButtons ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "updateProtocolsList", "updateMethodsList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectTab:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._cancelChanges(); if($core.assert($1)){ $self.selectedTab=aString; $self._selectProtocol_(nil); $self._updateTabsList(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectTab:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "selectTab: aString\x0a\x09self cancelChanges ifTrue: [\x0a\x09selectedTab := aString.\x0a\x09self selectProtocol: nil.\x0a\x09self updateTabsList ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:", "cancelChanges", "selectProtocol:", "updateTabsList"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectedClass", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.selectedClass; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedClass\x0a\x09^ selectedClass", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectedClassOrMetaClass", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$receiver; $1=$self.selectedClass; if(($receiver = $1) == null || $receiver.a$nil){ return $1; } else { $2=$recv($self.selectedTab).__eq("instance"); if($core.assert($2)){ return $self.selectedClass; } else { return $recv($self.selectedClass)._theMetaClass(); } } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectedClassOrMetaClass",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedClassOrMetaClass\x0a\x09^ selectedClass ifNotNil: [\x0a\x09\x09selectedTab = #instance\x0a\x09\x09\x09ifTrue: [ selectedClass ]\x0a\x09\x09\x09ifFalse: [ selectedClass theMetaClass ] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNotNil:", "ifTrue:ifFalse:", "=", "theMetaClass"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "selectedPackage", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.selectedPackage; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedPackage\x0a\x09^ selectedPackage", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Browser); $core.addMethod( $core.method({ selector: "setMethodProtocol:", protocol: "actions", fn: function (aString){ var self=this,$self=this; var klass; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; klass=$self._selectedClassOrMetaClass(); $1=$self._cancelChanges(); if($core.assert($1)){ $2=$recv($recv($self.selectedMethod)._origin()).__eq(klass); if($core.assert($2)){ $3=$recv($self._protocols())._includes_(aString); if($core.assert($3)){ $recv($self.selectedMethod)._protocol_(aString); $recv(klass)._compile_protocol_($recv($self.selectedMethod)._source(),aString); $self.selectedProtocol=aString; $self._updateProtocolsList(); $self._updateMethodsList(); $self._updateSourceAndButtons(); } else { $self._addNewProtocol(); } } else { $recv($globals.Terminal)._alert_("Method is from trait composition."); } } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"setMethodProtocol:",{aString:aString,klass:klass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "setMethodProtocol: aString\x0a\x09| klass |\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09self cancelChanges ifTrue: [ selectedMethod origin = klass\x0a\x09\x09ifFalse: [ Terminal alert: 'Method is from trait composition.' ]\x0a\x09\x09ifTrue: [ (self protocols includes: aString)\x0a\x09\x09\x09ifFalse: [ self addNewProtocol ]\x0a\x09\x09\x09ifTrue: [\x0a\x09\x09\x09\x09selectedMethod protocol: aString.\x0a\x09\x09\x09\x09klass compile: selectedMethod source protocol: aString.\x0a\x09\x09\x09\x09selectedProtocol := aString.\x0a\x09\x09\x09\x09self\x0a\x09\x09\x09\x09\x09updateProtocolsList;\x0a\x09\x09\x09\x09\x09updateMethodsList;\x0a\x09\x09\x09\x09\x09updateSourceAndButtons ]]]", referencedClasses: ["Terminal"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["selectedClassOrMetaClass", "ifTrue:", "cancelChanges", "ifFalse:ifTrue:", "=", "origin", "alert:", "includes:", "protocols", "addNewProtocol", "protocol:", "compile:protocol:", "source", "updateProtocolsList", "updateMethodsList", "updateSourceAndButtons"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "showClassButtons", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.classButtons)._asJQuery())._show(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"showClassButtons",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "showClassButtons\x0a\x09classButtons asJQuery show", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["show", "asJQuery"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "showMethodButtons", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.methodButtons)._asJQuery())._show(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"showMethodButtons",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "showMethodButtons\x0a\x09methodButtons asJQuery show", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["show", "asJQuery"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "source", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$3,$2,$4,$receiver; $1=$recv($self.selectedTab).__eq("comment"); if(!$core.assert($1)){ $3=$recv($self.selectedProtocol)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["notNil"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.selectedMethod)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); if($core.assert($2)){ return $self._methodSource(); } else { return $self._declarationSource(); } } $4=$self.selectedClass; if(($receiver = $4) == null || $receiver.a$nil){ return ""; } else { return $self._classCommentSource(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"source",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "source\x0a\x09selectedTab = #comment ifFalse: [\x0a\x09^ (selectedProtocol notNil or: [ selectedMethod notNil ])\x0a\x09\x09ifFalse: [ self declarationSource ]\x0a\x09\x09ifTrue: [ self methodSource ]].\x0a\x09^ selectedClass\x0a\x09ifNil: [ '' ]\x0a\x09ifNotNil: [ self classCommentSource ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:", "=", "ifFalse:ifTrue:", "or:", "notNil", "declarationSource", "methodSource", "ifNil:ifNotNil:", "classCommentSource"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateCategoriesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self.packagesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._packages())._do_((function(each){ var li,label; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); label=$recv(each)._ifEmpty_((function(){ return "Unclassified"; })); li=$recv(html)._li(); $1=$recv($self.selectedPackage).__eq(each); if($core.assert($1)){ $recv(li)._class_("selected"); } $2=li; $recv($2)._with_(label); return $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectCategory_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li,label:label},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateCategoriesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateCategoriesList\x0a\x09packagesList contents: [ :html |\x0a\x09self packages do: [ :each || li label |\x0a\x09\x09label := each ifEmpty: [ 'Unclassified' ].\x0a\x09\x09li := html li.\x0a\x09\x09selectedPackage = each ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: label;\x0a\x09\x09onClick: [ self selectCategory: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "do:", "packages", "ifEmpty:", "li", "ifTrue:", "=", "class:", "with:", "onClick:", "selectCategory:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateClassesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($globals.TabManager)._current())._update(); $recv($self.classesList)._updateNodes(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateClassesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateClassesList\x0a\x09TabManager current update.\x0a\x09classesList updateNodes", referencedClasses: ["TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["update", "current", "updateNodes"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateMethodsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$5,$4,$3; $recv($self.methodsList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._methods())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $1=$recv($self.selectedMethod).__eq(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["="]=1; //>>excludeEnd("ctx"); if($core.assert($1)){ $recv(li)._class_("selected"); } $2=li; $recv($2)._with_($recv(each)._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $5=$recv(each)._origin(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["origin"]=1; //>>excludeEnd("ctx"); $4=$recv($5).__eq($self._selectedClassOrMetaClass()); if($core.assert($4)){ $3=""; } else { $3=$recv(" (".__comma($recv($recv(each)._origin())._name())).__comma(")"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx[","]=1; //>>excludeEnd("ctx"); } $recv($2)._with_($3); return $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectMethod_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateMethodsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateMethodsList\x0a\x09methodsList contents: [ :html |\x0a\x09self methods do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09selectedMethod = each ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: each selector;\x0a\x09\x09with: (each origin = self selectedClassOrMetaClass ifTrue: [''] ifFalse: [ ' (', each origin name, ')' ]);\x0a\x09\x09onClick: [ self selectMethod: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "do:", "methods", "li", "ifTrue:", "=", "class:", "with:", "selector", "ifTrue:ifFalse:", "origin", "selectedClassOrMetaClass", ",", "name", "onClick:", "selectMethod:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateProtocolsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self.protocolsList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._protocols())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $1=$recv($self.selectedProtocol).__eq(each); if($core.assert($1)){ $recv(li)._class_("selected"); } $2=li; $recv($2)._with_(each); return $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectProtocol_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateProtocolsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateProtocolsList\x0a\x09protocolsList contents: [ :html |\x0a\x09self protocols do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09selectedProtocol = each ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: each;\x0a\x09\x09onClick: [ self selectProtocol: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "do:", "protocols", "li", "ifTrue:", "=", "class:", "with:", "onClick:", "selectProtocol:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateSourceAndButtons", protocol: "updating", fn: function (){ var self=this,$self=this; var currentProtocol; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$6,$7,$9,$8,$10,$11,$13,$12,$14,$15,$16,$17,$18,$19,$20,$21; $self._disableSaveButton(); $recv($self.classButtons)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($1)._title_("Create a new class"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._addNewClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("New class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $2=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($2)._with_("Rename class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._renameClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $3=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=3; //>>excludeEnd("ctx"); $recv($3)._with_("Copy class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._copyClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=3; //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=4; //>>excludeEnd("ctx"); $recv($4)._with_("Remove class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._removeClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=4; //>>excludeEnd("ctx"); $5=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["button"]=5; //>>excludeEnd("ctx"); $recv($5)._with_("References"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=5; //>>excludeEnd("ctx"); return $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._searchClassReferences(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=5; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["contents:"]=1; //>>excludeEnd("ctx"); $recv($self.methodButtons)._contents_((function(html){ var protocolSelect,referencesSelect; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $6=$recv(html)._button(); $recv($6)._with_("Remove method"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=6; //>>excludeEnd("ctx"); $recv($6)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._removeMethod(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,8)}); //>>excludeEnd("ctx"); })); protocolSelect=$recv(html)._select(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["select"]=1; //>>excludeEnd("ctx"); $7=protocolSelect; $recv($7)._onChange_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $9=$recv(protocolSelect)._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $8=$recv($9)._val(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["val"]=1; //>>excludeEnd("ctx"); return $self._setMethodProtocol_($8); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,9)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onChange:"]=1; //>>excludeEnd("ctx"); $recv($7)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $10=$recv(html)._option(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["option"]=1; //>>excludeEnd("ctx"); $recv($10)._with_("Method protocol"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=8; //>>excludeEnd("ctx"); $recv($10)._at_put_("disabled","disabled"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["at:put:"]=1; //>>excludeEnd("ctx"); $11=$recv(html)._option(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["option"]=2; //>>excludeEnd("ctx"); $recv($11)._class_("important"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($11)._with_("New..."); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=9; //>>excludeEnd("ctx"); currentProtocol=$self.selectedProtocol; $13=$recv(currentProtocol)._isNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["isNil"]=1; //>>excludeEnd("ctx"); $12=$recv($13)._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $recv($self.selectedMethod)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx4.sendIdx["notNil"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,11)}); //>>excludeEnd("ctx"); })); if($core.assert($12)){ currentProtocol=$recv($self.selectedMethod)._category(); currentProtocol; } return $recv($self._protocols())._do_((function(each){ var option; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); $14=$recv(html)._option(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx4.sendIdx["option"]=3; //>>excludeEnd("ctx"); option=$recv($14)._with_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx4.sendIdx["with:"]=10; //>>excludeEnd("ctx"); $15=$recv(currentProtocol).__eq(each); if($core.assert($15)){ return $recv(option)._at_put_("selected","selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx4.sendIdx["at:put:"]=2; //>>excludeEnd("ctx"); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({each:each,option:option},$ctx3,13)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["do:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,10)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=7; //>>excludeEnd("ctx"); $16=$recv($self.selectedMethod)._isNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["isNil"]=2; //>>excludeEnd("ctx"); if(!$core.assert($16)){ referencesSelect=$recv(html)._select(); $17=referencesSelect; $recv($17)._onChange_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._searchReferencesOf_($recv($recv(referencesSelect)._asJQuery())._val()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,16)}); //>>excludeEnd("ctx"); })); return $recv($17)._with_((function(){ var option; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $18=$recv(html)._option(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["option"]=4; //>>excludeEnd("ctx"); $recv($18)._with_("References"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=12; //>>excludeEnd("ctx"); $recv($18)._at_put_("disabled","disabled"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["at:put:"]=3; //>>excludeEnd("ctx"); $recv($18)._at_put_("selected","selected"); $19=$recv(html)._option(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["option"]=5; //>>excludeEnd("ctx"); $recv($19)._class_("important"); $recv($19)._with_($recv($self.selectedMethod)._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=13; //>>excludeEnd("ctx"); return $recv($recv($recv($self.selectedMethod)._messageSends())._sorted())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $recv($recv(html)._option())._with_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({each:each},$ctx3,18)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({option:option},$ctx2,17)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=11; //>>excludeEnd("ctx"); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html,protocolSelect:protocolSelect,referencesSelect:referencesSelect},$ctx1,7)}); //>>excludeEnd("ctx"); })); $20=$recv($self.selectedMethod)._isNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["isNil"]=3; //>>excludeEnd("ctx"); if($core.assert($20)){ $self._hideMethodButtons(); $21=$recv($recv($self.selectedClass)._isNil())._or_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.selectedProtocol)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,20)}); //>>excludeEnd("ctx"); })); if($core.assert($21)){ $self._hideClassButtons(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["hideClassButtons"]=1; //>>excludeEnd("ctx"); } else { $self._showClassButtons(); } } else { $self._hideClassButtons(); $self._showMethodButtons(); } $recv($self.sourceArea)._val_($self._source()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateSourceAndButtons",{currentProtocol:currentProtocol})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateSourceAndButtons\x0a\x09| currentProtocol |\x0a\x0a\x09self disableSaveButton.\x0a\x09classButtons contents: [ :html |\x0a\x09\x09html button\x0a\x09\x09\x09title: 'Create a new class';\x0a\x09\x09\x09onClick: [ self addNewClass ];\x0a\x09\x09\x09with: 'New class'.\x0a\x09\x09html button\x0a\x09\x09\x09with: 'Rename class';\x0a\x09\x09\x09onClick: [ self renameClass ].\x0a\x09\x09html button\x0a\x09\x09\x09with: 'Copy class';\x0a\x09\x09\x09onClick: [ self copyClass ].\x0a\x09\x09html button\x0a\x09\x09\x09with: 'Remove class';\x0a\x09\x09\x09onClick: [ self removeClass ].\x0a\x09\x09html button\x0a\x09\x09\x09with: 'References';\x0a\x09\x09\x09onClick: [ self searchClassReferences ]].\x0a\x09methodButtons contents: [ :html | | protocolSelect referencesSelect |\x0a\x09\x09html button\x0a\x09\x09\x09with: 'Remove method';\x0a\x09\x09\x09onClick: [ self removeMethod ].\x0a\x09\x09protocolSelect := html select.\x0a\x09\x09\x09\x09protocolSelect\x0a\x09\x09\x09onChange: [ self setMethodProtocol: protocolSelect asJQuery val ];\x0a\x09\x09\x09with: [\x0a\x09\x09\x09\x09html option\x0a\x09\x09\x09\x09\x09with: 'Method protocol';\x0a\x09\x09\x09\x09\x09at: 'disabled' put: 'disabled'.\x0a\x09\x09\x09\x09html option\x0a\x09\x09\x09\x09\x09class: 'important';\x0a\x09\x09\x09\x09\x09with: 'New...'.\x0a\x09\x09\x09\x09currentProtocol := selectedProtocol.\x0a\x09\x09\x09\x09(currentProtocol isNil and: [ selectedMethod notNil ])\x0a\x09\x09\x09\x09\x09ifTrue: [ currentProtocol := selectedMethod category ].\x0a\x09\x09\x09\x09self protocols do: [ :each | | option |\x0a\x09\x09\x09\x09\x09option := html option with: each.\x0a\x09\x09\x09\x09\x09currentProtocol = each ifTrue: [ option at: 'selected' put: 'selected' ] ] ].\x0a\x09\x09selectedMethod isNil ifFalse: [\x0a\x09\x09\x09referencesSelect := html select.\x0a\x09\x09\x09\x09\x09\x09referencesSelect\x0a\x09\x09\x09\x09onChange: [ self searchReferencesOf: referencesSelect asJQuery val ];\x0a\x09\x09\x09\x09with: [ |option|\x0a\x09\x09\x09\x09\x09html option\x0a\x09\x09\x09\x09\x09\x09with: 'References';\x0a\x09\x09\x09\x09\x09\x09at: 'disabled' put: 'disabled';\x0a\x09\x09\x09\x09\x09\x09at: 'selected' put: 'selected'.\x0a\x09\x09\x09\x09\x09html option\x0a\x09\x09\x09\x09\x09\x09class: 'important';\x0a\x09\x09\x09\x09\x09\x09with: selectedMethod selector.\x0a\x09\x09\x09\x09\x09selectedMethod messageSends sorted do: [ :each |\x0a\x09\x09\x09\x09\x09\x09html option with: each ]] ]].\x0a\x09selectedMethod isNil\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09self hideMethodButtons.\x0a\x09\x09\x09\x09(selectedClass isNil or: [ selectedProtocol notNil ])\x0a\x09\x09\x09\x09\x09ifTrue: [ self hideClassButtons ]\x0a\x09\x09\x09\x09\x09ifFalse: [ self showClassButtons ]]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09self hideClassButtons.\x0a\x09\x09\x09self showMethodButtons ].\x0a\x09sourceArea val: self source", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["disableSaveButton", "contents:", "title:", "button", "onClick:", "addNewClass", "with:", "renameClass", "copyClass", "removeClass", "searchClassReferences", "removeMethod", "select", "onChange:", "setMethodProtocol:", "val", "asJQuery", "option", "at:put:", "class:", "ifTrue:", "and:", "isNil", "notNil", "category", "do:", "protocols", "=", "ifFalse:", "searchReferencesOf:", "selector", "sorted", "messageSends", "ifTrue:ifFalse:", "hideMethodButtons", "or:", "hideClassButtons", "showClassButtons", "showMethodButtons", "val:", "source"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateStatus", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$receiver; $1=$recv($recv($self.sourceArea)._val()).__eq($self._source()); if($core.assert($1)){ $2=$self.saveButton; if(($receiver = $2) == null || $receiver.a$nil){ $2; } else { $recv($self.saveButton)._at_put_("disabled",true); } $self.unsavedChanges=false; $self.unsavedChanges; } else { $3=$self.saveButton; if(($receiver = $3) == null || $receiver.a$nil){ $3; } else { $recv($self.saveButton)._removeAt_("disabled"); } $self.unsavedChanges=true; $self.unsavedChanges; } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateStatus",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateStatus\x0a\x09sourceArea val = self source\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09saveButton ifNotNil: [\x0a\x09\x09\x09\x09saveButton at: 'disabled' put: true ].\x0a\x09\x09\x09\x09unsavedChanges := false ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09saveButton ifNotNil: [\x0a\x09\x09\x09\x09saveButton removeAt: 'disabled' ].\x0a\x09\x09\x09unsavedChanges := true ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:ifFalse:", "=", "val", "source", "ifNotNil:", "at:put:", "removeAt:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "updateTabsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$6,$7,$8,$9,$10,$11,$12,$13,$14; $recv($self.tabsList)._contents_((function(html){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); li=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $1=$recv($self.selectedTab).__eq("instance"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["="]=1; //>>excludeEnd("ctx"); if($core.assert($1)){ $recv(li)._class_("selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=1; //>>excludeEnd("ctx"); } $2=li; $recv($2)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $3=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=1; //>>excludeEnd("ctx"); $recv($3)._class_("ltab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $4=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=2; //>>excludeEnd("ctx"); $recv($4)._class_("mtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=3; //>>excludeEnd("ctx"); $recv($4)._with_("Instance"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $5=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=3; //>>excludeEnd("ctx"); return $recv($5)._class_("rtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=4; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._selectTab_("instance"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["selectTab:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); li=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=2; //>>excludeEnd("ctx"); $6=$recv($self.selectedTab).__eq("class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["="]=2; //>>excludeEnd("ctx"); if($core.assert($6)){ $recv(li)._class_("selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=5; //>>excludeEnd("ctx"); } $7=li; $recv($7)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $8=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=4; //>>excludeEnd("ctx"); $recv($8)._class_("ltab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=6; //>>excludeEnd("ctx"); $9=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=5; //>>excludeEnd("ctx"); $recv($9)._class_("mtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=7; //>>excludeEnd("ctx"); $recv($9)._with_("Class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $10=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=6; //>>excludeEnd("ctx"); return $recv($10)._class_("rtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=8; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._selectTab_("class"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["selectTab:"]=2; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,7)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); li=$recv(html)._li(); $11=$recv($self.selectedTab).__eq("comment"); if($core.assert($11)){ $recv(li)._class_("selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=9; //>>excludeEnd("ctx"); } $12=li; $recv($12)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $13=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=7; //>>excludeEnd("ctx"); $recv($13)._class_("ltab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=10; //>>excludeEnd("ctx"); $14=$recv(html)._span(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["span"]=8; //>>excludeEnd("ctx"); $recv($14)._class_("mtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=11; //>>excludeEnd("ctx"); $recv($14)._with_("Comment"); return $recv($recv(html)._span())._class_("rtab"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,9)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=5; //>>excludeEnd("ctx"); return $recv($12)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._selectTab_("comment"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,10)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html,li:li},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateTabsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateTabsList\x0a\x09tabsList contents: [ :html || li |\x0a\x09li := html li.\x0a\x09selectedTab = #instance ifTrue: [ li class: 'selected' ].\x0a\x09li\x0a\x09\x09with: [\x0a\x09\x09html span class: 'ltab'.\x0a\x09\x09html span class: 'mtab'; with: 'Instance'.\x0a\x09\x09html span class: 'rtab' ];\x0a\x09\x09onClick: [ self selectTab: #instance ].\x0a\x09li := html li.\x0a\x09selectedTab = #class ifTrue: [ li class: 'selected' ].\x0a\x09li\x0a\x09\x09with: [\x0a\x09\x09html span class: 'ltab'.\x0a\x09\x09html span class: 'mtab'; with: 'Class'.\x0a\x09\x09html span class: 'rtab' ];\x0a\x09\x09onClick: [ self selectTab: #class ].\x0a\x09li := html li.\x0a\x09selectedTab = #comment ifTrue: [ li class: 'selected' ].\x0a\x09li\x0a\x09\x09with: [\x0a\x09\x09html span class: 'ltab'.\x0a\x09\x09html span class: 'mtab'; with: 'Comment'.\x0a\x09\x09html span class: 'rtab' ];\x0a\x09\x09onClick: [ self selectTab: #comment ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "li", "ifTrue:", "=", "class:", "with:", "span", "onClick:", "selectTab:"] }), $globals.Browser); $core.addMethod( $core.method({ selector: "open", protocol: "convenience", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self._new())._open(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09self new open", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open", "new"] }), $globals.Browser.a$cls); $core.addMethod( $core.method({ selector: "openOn:", protocol: "convenience", fn: function (aClass){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._open(); $recv($1)._selectCategory_($recv(aClass)._category()); return $recv($1)._selectClass_(aClass); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"openOn:",{aClass:aClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "openOn: aClass\x0a\x09^ self new\x0a\x09open;\x0a\x09selectCategory: aClass category;\x0a\x09selectClass: aClass", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open", "new", "selectCategory:", "category", "selectClass:"] }), $globals.Browser.a$cls); $core.addClass("Debugger", $globals.TabWidget, ["error", "selectedContext", "sourceArea", "ul", "ul2", "inspector", "saveButton", "unsavedChanges", "selectedVariable", "selectedVariableName", "inspectButton"], "IDE"); $core.addMethod( $core.method({ selector: "allVariables", protocol: "accessing", fn: function (){ var self=this,$self=this; var all; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1; all=$recv($globals.Dictionary)._new(); $3=$self._receiver(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["receiver"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._class(); $1=$recv($2)._allInstanceVariableNames(); $recv($1)._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(all)._at_put_(each,$recv($self._receiver())._instVarAt_(each)); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["at:put:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); $recv($recv($self.selectedContext)._locals())._keysAndValuesDo_((function(key,value){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(all)._at_put_(key,value); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({key:key,value:value},$ctx1,2)}); //>>excludeEnd("ctx"); })); return all; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"allVariables",{all:all})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "allVariables\x0a\x09| all |\x0a\x09all := Dictionary new.\x0a\x0a\x09self receiver class allInstanceVariableNames do: [ :each |\x0a\x09\x09all at: each put: (self receiver instVarAt: each) ].\x0a\x09\x0a\x09selectedContext locals keysAndValuesDo: [ :key :value |\x0a\x09\x09all at: key put: value ].\x0a\x09\x0a\x09^ all", referencedClasses: ["Dictionary"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "do:", "allInstanceVariableNames", "class", "receiver", "at:put:", "instVarAt:", "keysAndValuesDo:", "locals"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "canBeClosed", protocol: "testing", fn: function (){ var self=this,$self=this; return true; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "canBeClosed\x0a\x09^ true", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "error", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.error; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "error\x0a\x09^ error", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "error:", protocol: "accessing", fn: function (anError){ var self=this,$self=this; $self.error=anError; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anError"], source: "error: anError\x0a\x09error := anError", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.Debugger.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $recv($self.unsavedChanges).__eq(false); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09unsavedChanges = false", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize", "="] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "inspectSelectedVariable", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.selectedVariable)._inspect(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"inspectSelectedVariable",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "inspectSelectedVariable\x0a\x09selectedVariable inspect", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "[ Debugger ]"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ '[ Debugger ]'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "method", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.selectedContext)._method(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"method",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "method\x0a\x09^ selectedContext method", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["method"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "proceed", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._close(); $recv($recv($self.selectedContext)._receiver())._perform_withArguments_($recv($self.selectedContext)._selector(),$recv($self.selectedContext)._locals()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"proceed",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "proceed\x0a\x09self close.\x0a\x09selectedContext receiver perform: selectedContext selector withArguments: selectedContext locals", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["close", "perform:withArguments:", "receiver", "selector", "locals"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "receiver", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self.selectedContext)._receiver(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"receiver",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "receiver\x0a\x09^ selectedContext receiver", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["receiver"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "renderBottomPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("amber_sourceCode debugger"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self.sourceArea=$recv($globals.SourceArea)._new(); return $recv($self.sourceArea)._renderOn_(html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); $self.ul2=$recv($recv(html)._ul())._class_("amber_column debugger variables"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $self.inspector=$recv($recv(html)._div())._class_("amber_column debugger inspector"); $recv($self.sourceArea)._onKeyUp_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._updateStatus(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBottomPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBottomPanelOn: html\x0a\x09html div\x0a\x09\x09class: 'amber_sourceCode debugger';\x0a\x09\x09with: [\x0a\x09\x09\x09sourceArea := SourceArea new.\x0a\x09\x09\x09sourceArea renderOn: html ].\x0a\x09ul2 := html ul class: 'amber_column debugger variables'.\x0a\x09inspector := html div class: 'amber_column debugger inspector'.\x0a\x09sourceArea\x0a\x09\x09onKeyUp: [ self updateStatus ]", referencedClasses: ["SourceArea"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "new", "renderOn:", "ul", "onKeyUp:", "updateStatus"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderTopPanelOn_(html); $self._renderBottomPanelOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09self\x0a\x09\x09renderTopPanelOn: html;\x0a\x09\x09renderBottomPanelOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderTopPanelOn:", "renderBottomPanelOn:"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$6,$7; $1=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("Save"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $self.saveButton=$recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._save(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $2=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($2)._with_("DoIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._doIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $3=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=3; //>>excludeEnd("ctx"); $recv($3)._with_("PrintIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._printIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=3; //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=4; //>>excludeEnd("ctx"); $recv($4)._with_("InspectIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self.sourceArea)._inspectIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=4; //>>excludeEnd("ctx"); $5=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=5; //>>excludeEnd("ctx"); $recv($5)._with_("Proceed"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=5; //>>excludeEnd("ctx"); $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._proceed(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=5; //>>excludeEnd("ctx"); $6=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=6; //>>excludeEnd("ctx"); $recv($6)._with_("Abandon"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=6; //>>excludeEnd("ctx"); $recv($6)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._close(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=6; //>>excludeEnd("ctx"); $7=$recv(html)._button(); $recv($7)._class_("amber_button debugger inspect"); $recv($7)._with_("Inspect"); $self.inspectButton=$recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._inspectSelectedVariable(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,7)}); //>>excludeEnd("ctx"); })); $self._updateSourceArea(); $self._updateStatus(); $self._updateVariablesList(); $self._updateInspector(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09saveButton := html button\x0a\x09\x09with: 'Save';\x0a\x09\x09onClick: [ self save ].\x0a\x09html button\x0a\x09\x09with: 'DoIt';\x0a\x09\x09onClick: [ sourceArea doIt ].\x0a\x09html button\x0a\x09\x09with: 'PrintIt';\x0a\x09\x09onClick: [ sourceArea printIt ].\x0a\x09html button\x0a\x09\x09with: 'InspectIt';\x0a\x09\x09onClick: [ sourceArea inspectIt ].\x0a\x09html button\x0a\x09\x09with: 'Proceed';\x0a\x09\x09onClick: [ self proceed ].\x0a\x09html button\x0a\x09\x09with: 'Abandon';\x0a\x09\x09onClick: [ self close ].\x0a\x09inspectButton := html button\x0a\x09\x09class: 'amber_button debugger inspect';\x0a\x09\x09with: 'Inspect';\x0a\x09\x09onClick: [ self inspectSelectedVariable ].\x0a\x09self\x0a\x09\x09updateSourceArea;\x0a\x09\x09updateStatus;\x0a\x09\x09updateVariablesList;\x0a\x09\x09updateInspector", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["with:", "button", "onClick:", "save", "doIt", "printIt", "inspectIt", "proceed", "close", "class:", "inspectSelectedVariable", "updateSourceArea", "updateStatus", "updateVariablesList", "updateInspector"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "renderContext:on:", protocol: "rendering", fn: function (aContext,html){ var self=this,$self=this; var li,context; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; context=aContext; $recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(context)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); }))._whileTrue_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $1=$recv($self.selectedContext).__eq(context); if($core.assert($1)){ $recv(li)._class_("selected"); } $2=li; $recv($2)._with_($recv(context)._asString()); $recv($2)._onClick_($recv(context)._in_((function(ctx){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return (function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectContext_(ctx); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); }); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({ctx:ctx},$ctx2,4)}); //>>excludeEnd("ctx"); }))); context=$recv(context)._outerContext(); return context; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderContext:on:",{aContext:aContext,html:html,li:li,context:context})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext", "html"], source: "renderContext: aContext on: html\x0a\x09| li context |\x0a\x09context := aContext.\x0a\x09\x0a\x09[ context notNil ] whileTrue: [\x0a\x09\x09li := html li.\x0a\x09\x09selectedContext = context ifTrue: [ li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09\x09with: context asString;\x0a\x09\x09\x09onClick: (context in: [:ctx | [ self selectContext: ctx ]]).\x0a\x09\x09context := context outerContext ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["whileTrue:", "notNil", "li", "ifTrue:", "=", "class:", "with:", "asString", "onClick:", "in:", "selectContext:", "outerContext"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "renderTopPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$5,$4,$6; $1=$self._error(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["error"]=1; //>>excludeEnd("ctx"); $self.selectedContext=$recv($1)._context(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["context"]=1; //>>excludeEnd("ctx"); $2=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($2)._class_("top"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($2)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $3=$recv(html)._div(); $recv($3)._class_("label"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $5=$self._error(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["error"]=2; //>>excludeEnd("ctx"); $4=$recv($5)._messageText(); $recv($3)._with_($4); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $6=$recv(html)._ul(); $recv($6)._class_("amber_column debugger contexts"); $self.ul=$recv($6)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._renderContext_on_($recv($self._error())._context(),html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); return $self.ul; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTopPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderTopPanelOn: html\x0a\x09selectedContext := self error context.\x0a\x09html div\x0a\x09\x09class: 'top';\x0a\x09\x09with: [\x0a\x09\x09\x09html div\x0a\x09\x09\x09\x09class: 'label';\x0a\x09\x09\x09\x09with: self error messageText.\x0a\x09\x09\x09ul := html ul\x0a\x09\x09\x09\x09class: 'amber_column debugger contexts';\x0a\x09\x09\x09\x09with: [ self renderContext: self error context on: html ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["context", "error", "class:", "div", "with:", "messageText", "ul", "renderContext:on:"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "save", protocol: "actions", fn: function (){ var self=this,$self=this; var protocol; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $4,$3,$2,$1; $4=$recv($self.selectedContext)._receiver(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["receiver"]=1; //>>excludeEnd("ctx"); $3=$recv($4)._class(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._methodDictionary(); $1=$recv($2)._at_($recv($self.selectedContext)._selector()); protocol=$recv($1)._category(); $recv($recv($recv($self.selectedContext)._receiver())._class())._compile_protocol_($recv($self.sourceArea)._val(),protocol); $self._updateStatus(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"save",{protocol:protocol})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "save\x0a\x09| protocol |\x0a\x09protocol := (selectedContext receiver class methodDictionary at: selectedContext selector) category.\x0a\x09selectedContext receiver class compile: sourceArea val protocol: protocol.\x0a\x09self updateStatus", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["category", "at:", "methodDictionary", "class", "receiver", "selector", "compile:protocol:", "val", "updateStatus"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "selectContext:", protocol: "actions", fn: function (aContext){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.selectedContext=aContext; $self.selectedVariable=nil; $self.selectedVariableName=nil; $self._updateContextsList(); $self._updateSourceArea(); $self._updateInspector(); $self._updateVariablesList(); $self._updateStatus(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectContext:",{aContext:aContext})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aContext"], source: "selectContext: aContext\x0a\x09selectedContext := aContext.\x0a\x09selectedVariable := nil.\x0a\x09selectedVariableName := nil.\x0a\x09self\x0a\x09\x09updateContextsList;\x0a\x09\x09updateSourceArea;\x0a\x09\x09updateInspector;\x0a\x09\x09updateVariablesList;\x0a\x09\x09updateStatus", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["updateContextsList", "updateSourceArea", "updateInspector", "updateVariablesList", "updateStatus"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "selectVariable:named:", protocol: "actions", fn: function (anObject,aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.selectedVariable=anObject; $self.selectedVariableName=aString; $recv($self.inspector)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(html)._with_($recv(anObject)._printString()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); $self._updateVariablesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectVariable:named:",{anObject:anObject,aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject", "aString"], source: "selectVariable: anObject named: aString\x0a\x09\x0a\x09selectedVariable := anObject.\x0a\x09selectedVariableName := aString.\x0a\x09inspector contents: [ :html | html with: anObject printString ].\x0a\x09self updateVariablesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "with:", "printString", "updateVariablesList"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "source", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self._method(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["method"]=1; //>>excludeEnd("ctx"); if(($receiver = $1) == null || $receiver.a$nil){ return "Method doesn't exist!"; } else { return $recv($self._method())._source(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"source",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "source\x0a\x09^ self method\x0a\x09\x09ifNil: [ 'Method doesn''t exist!' ]\x0a\x09\x09ifNotNil: [ self method source ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:ifNotNil:", "method", "source"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "updateContextsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.ul)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._renderContext_on_($recv($self._error())._context(),html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateContextsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateContextsList\x0a\x09ul contents: [ :html |\x0a\x09\x09self renderContext: self error context on: html ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "renderContext:on:", "context", "error"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "updateInspector", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.inspector)._contents_((function(html){ })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateInspector",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateInspector\x0a\x09inspector contents: [ :html | ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "updateSourceArea", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._val_($self._source()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateSourceArea",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateSourceArea\x0a\x09sourceArea val: self source", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val:", "source"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "updateStatus", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$receiver; $1=$recv($recv($self.sourceArea)._val()).__eq($self._source()); if($core.assert($1)){ $2=$self.saveButton; if(($receiver = $2) == null || $receiver.a$nil){ $2; } else { $recv($self.saveButton)._at_put_("disabled",true); } $self.unsavedChanges=false; $self.unsavedChanges; } else { $3=$self.saveButton; if(($receiver = $3) == null || $receiver.a$nil){ $3; } else { $recv($self.saveButton)._removeAt_("disabled"); } $self.unsavedChanges=true; $self.unsavedChanges; } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateStatus",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateStatus\x0a\x09sourceArea val = self source\x0a\x09\x09ifTrue: [\x0a\x09\x09\x09saveButton ifNotNil: [\x0a\x09\x09\x09\x09saveButton at: 'disabled' put: true ].\x0a\x09\x09\x09unsavedChanges := false ]\x0a\x09\x09ifFalse: [\x0a\x09\x09\x09saveButton ifNotNil: [\x0a\x09\x09\x09\x09saveButton removeAt: 'disabled' ].\x0a\x09\x09\x09unsavedChanges := true ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifTrue:ifFalse:", "=", "val", "source", "ifNotNil:", "at:put:", "removeAt:"] }), $globals.Debugger); $core.addMethod( $core.method({ selector: "updateVariablesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5,$receiver; $recv($self.ul2)._contents_((function(html){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("self"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); li=$recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._selectVariable_named_($self._receiver(),"self"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["selectVariable:named:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $2=$recv($self.selectedVariableName).__eq("self"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["="]=1; //>>excludeEnd("ctx"); if($core.assert($2)){ $recv(li)._class_("selected"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=1; //>>excludeEnd("ctx"); } return $recv($self._allVariables())._keysAndValuesDo_((function(key,value){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $3=$recv(html)._li(); $recv($3)._with_(key); li=$recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectVariable_named_(value,key); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); })); $4=$recv($self.selectedVariableName).__eq(key); if($core.assert($4)){ return $recv(li)._class_("selected"); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({key:key,value:value},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html,li:li},$ctx1,1)}); //>>excludeEnd("ctx"); })); $5=$self.selectedVariable; if(($receiver = $5) == null || $receiver.a$nil){ $recv($self.inspectButton)._at_put_("disabled",true); } else { $recv($self.inspectButton)._removeAt_("disabled"); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateVariablesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateVariablesList\x0a\x09ul2 contents: [ :html | | li |\x0a\x09\x09li := html li\x0a\x09\x09\x09with: 'self';\x0a\x09\x09\x09onClick: [ self selectVariable: self receiver named: 'self' ].\x0a\x09\x09\x09\x09selectedVariableName = 'self' ifTrue: [ li class: 'selected' ].\x0a\x09\x09\x0a\x09\x09self allVariables keysAndValuesDo: [ :key :value |\x0a\x09\x09\x09\x09\x09\x09li := html li\x0a\x09\x09\x09\x09\x09\x09\x09with: key;\x0a\x09\x09\x09\x09\x09\x09\x09onClick: [ self selectVariable: value named: key ].\x0a\x09\x09\x09\x09\x09\x09selectedVariableName = key ifTrue: [\x0a\x09\x09\x09\x09\x09\x09\x09li class: 'selected' ] ] ].\x0a\x09\x09\x09\x09\x09\x09\x09\x0a\x09selectedVariable\x0a\x09\x09ifNil: [ inspectButton at: 'disabled' put: true ]\x0a\x09\x09ifNotNil: [ inspectButton removeAt: 'disabled' ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "with:", "li", "onClick:", "selectVariable:named:", "receiver", "ifTrue:", "=", "class:", "keysAndValuesDo:", "allVariables", "ifNil:ifNotNil:", "at:put:", "removeAt:"] }), $globals.Debugger); $core.addClass("IDEInspector", $globals.TabWidget, ["label", "variables", "object", "selectedVariable", "variablesList", "valueTextarea", "diveButton", "sourceArea"], "IDE"); $core.addMethod( $core.method({ selector: "canBeClosed", protocol: "testing", fn: function (){ var self=this,$self=this; return true; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "canBeClosed\x0a\x09^ true", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "dive", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self._variables())._at_($self._selectedVariable()))._inspect(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"dive",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "dive\x0a\x09(self variables at: self selectedVariable) inspect", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect", "at:", "variables", "selectedVariable"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "inspect:", protocol: "actions", fn: function (anObject){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.object=anObject; $self.variables=[]; $recv($self.object)._inspectOn_(self); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "inspect: anObject\x0a\x09object := anObject.\x0a\x09variables := #().\x0a\x09object inspectOn: self", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspectOn:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.label; if(($receiver = $1) == null || $receiver.a$nil){ return "Inspector (nil)"; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"label",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ label ifNil: [ 'Inspector (nil)' ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "refresh", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._inspect_($self.object); $self._updateVariablesList(); $self._updateValueTextarea(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"refresh",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "refresh\x0a\x09self\x0a\x09\x09inspect: object;\x0a\x09\x09updateVariablesList;\x0a\x09\x09updateValueTextarea", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect:", "updateVariablesList", "updateValueTextarea"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "renderBottomPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $1=$recv(html)._div(); $recv($1)._class_("amber_sourceCode"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=$recv($globals.SourceArea)._new(); $recv($2)._receiver_($self.object); $recv($2)._onDoIt_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._refresh(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); $self.sourceArea=$recv($2)._yourself(); return $recv($self.sourceArea)._renderOn_(html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBottomPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBottomPanelOn: html\x0a\x09html div\x0a\x09class: 'amber_sourceCode';\x0a\x09with: [\x0a\x09\x09sourceArea := SourceArea new\x0a\x09\x09receiver: object;\x0a\x09\x09onDoIt: [ self refresh ];\x0a\x09\x09yourself.\x0a\x09\x09\x09sourceArea renderOn: html ]", referencedClasses: ["SourceArea"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "receiver:", "new", "onDoIt:", "refresh", "yourself", "renderOn:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderTopPanelOn_(html); $self._renderBottomPanelOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09self\x0a\x09\x09renderTopPanelOn: html;\x0a\x09\x09renderBottomPanelOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderTopPanelOn:", "renderBottomPanelOn:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5; $1=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("DoIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=$self._sourceArea(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["sourceArea"]=1; //>>excludeEnd("ctx"); return $recv($2)._doIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $3=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($3)._with_("PrintIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $4=$self._sourceArea(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["sourceArea"]=2; //>>excludeEnd("ctx"); return $recv($4)._printIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $5=$recv(html)._button(); $recv($5)._with_("InspectIt"); $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._sourceArea())._inspectIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); $self._updateButtons(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09with: 'DoIt';\x0a\x09\x09onClick: [ self sourceArea doIt ].\x0a\x09html button\x0a\x09\x09with: 'PrintIt';\x0a\x09\x09onClick: [ self sourceArea printIt ].\x0a\x09html button\x0a\x09\x09with: 'InspectIt';\x0a\x09\x09onClick: [ self sourceArea inspectIt ].\x0a\x09self updateButtons", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["with:", "button", "onClick:", "doIt", "sourceArea", "printIt", "inspectIt", "updateButtons"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "renderTopPanelOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5; $1=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["div"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("top"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self.variablesList=$recv($recv(html)._ul())._class_("amber_column variables"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=2; //>>excludeEnd("ctx"); $2=$recv(html)._textarea(); $recv($2)._class_("amber_column value"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=3; //>>excludeEnd("ctx"); $recv($2)._at_put_("readonly","readonly"); $self.valueTextarea=$recv($2)._yourself(); $3=$recv(html)._div(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["div"]=2; //>>excludeEnd("ctx"); $recv($3)._class_("amber_tabs inspector"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=4; //>>excludeEnd("ctx"); $recv($3)._with_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($4)._class_("amber_button inspector refresh"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=5; //>>excludeEnd("ctx"); $recv($4)._with_("Refresh"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._refresh(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $5=$recv(html)._button(); $recv($5)._class_("amber_button inspector dive"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=6; //>>excludeEnd("ctx"); $recv($5)._with_("Dive"); $self.diveButton=$recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._dive(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,4)}); //>>excludeEnd("ctx"); })); return $self.diveButton; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=2; //>>excludeEnd("ctx"); return $recv($recv(html)._div())._class_("amber_clear"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $self._updateVariablesList(); $self._updateValueTextarea(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderTopPanelOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderTopPanelOn: html\x0a\x09html div\x0a\x09\x09class: 'top';\x0a\x09\x09with: [\x0a\x09\x09\x09variablesList := html ul class: 'amber_column variables'.\x0a\x09\x09\x09valueTextarea := html textarea class: 'amber_column value'; at: 'readonly' put: 'readonly'; yourself.\x0a\x09\x09\x09html div class: 'amber_tabs inspector'; with: [\x0a\x09\x09\x09\x09html button\x0a\x09\x09\x09\x09\x09class: 'amber_button inspector refresh';\x0a\x09\x09\x09\x09\x09with: 'Refresh';\x0a\x09\x09\x09\x09\x09onClick: [ self refresh ].\x0a\x09\x09\x09\x09diveButton := html button\x0a\x09\x09\x09\x09\x09class: 'amber_button inspector dive';\x0a\x09\x09\x09\x09\x09with: 'Dive';\x0a\x09\x09\x09\x09\x09onClick: [ self dive ]].\x0a\x09\x09\x09html div class: 'amber_clear' ].\x0a\x09self\x0a\x09\x09updateVariablesList;\x0a\x09\x09updateValueTextarea.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "with:", "ul", "textarea", "at:put:", "yourself", "button", "onClick:", "refresh", "dive", "updateVariablesList", "updateValueTextarea"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "selectVariable:", protocol: "updating", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._selectedVariable_(aString); $self._updateVariablesList(); $self._updateValueTextarea(); $self._updateButtons(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectVariable:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "selectVariable: aString\x0a\x09self selectedVariable: aString.\x0a\x09self\x0a\x09\x09updateVariablesList;\x0a\x09\x09updateValueTextarea;\x0a\x09\x09updateButtons", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["selectedVariable:", "updateVariablesList", "updateValueTextarea", "updateButtons"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "selectedVariable", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.selectedVariable; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedVariable\x0a\x09^ selectedVariable", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "selectedVariable:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.selectedVariable=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "selectedVariable: aString\x0a\x09selectedVariable := aString", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "setLabel:", protocol: "accessing", fn: function (aString){ var self=this,$self=this; $self.label=aString; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "setLabel: aString\x0a\x09label := aString", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "setVariables:", protocol: "accessing", fn: function (aCollection){ var self=this,$self=this; $self.variables=aCollection; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCollection"], source: "setVariables: aCollection\x0a\x09variables := aCollection", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "sourceArea", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.sourceArea; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "sourceArea\x0a\x09^ sourceArea", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "updateButtons", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$1; $3=$self._selectedVariable(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["selectedVariable"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["notNil"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._and_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv($self._variables())._at_($self._selectedVariable()))._notNil(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); if($core.assert($1)){ $recv($self.diveButton)._removeAt_("disabled"); } else { $recv($self.diveButton)._at_put_("disabled",true); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateButtons",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateButtons\x0a\x09(self selectedVariable notNil and: [ (self variables at: self selectedVariable) notNil ])\x0a\x09\x09ifFalse: [ diveButton at: 'disabled' put: true ]\x0a\x09\x09ifTrue: [ diveButton removeAt: 'disabled' ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:ifTrue:", "and:", "notNil", "selectedVariable", "at:", "variables", "at:put:", "removeAt:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "updateValueTextarea", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$4,$3,$2; $1=$recv($self.valueTextarea)._asJQuery(); $4=$self._selectedVariable(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["selectedVariable"]=1; //>>excludeEnd("ctx"); $3=$recv($4)._isNil(); if($core.assert($3)){ $2=""; } else { $2=$recv($recv($self._variables())._at_($self._selectedVariable()))._printString(); } $recv($1)._val_($2); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateValueTextarea",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateValueTextarea\x0a\x09valueTextarea asJQuery val: (self selectedVariable isNil\x0a\x09\x09ifTrue: [ '' ]\x0a\x09\x09ifFalse: [ (self variables at: self selectedVariable) printString ])", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val:", "asJQuery", "ifTrue:ifFalse:", "isNil", "selectedVariable", "printString", "at:", "variables"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "updateVariablesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self.variablesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._variables())._keysDo_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $1=li; $recv($1)._with_(each); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectVariable_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); $2=$recv($self._selectedVariable()).__eq(each); if($core.assert($2)){ return $recv(li)._class_("selected"); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateVariablesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateVariablesList\x0a\x09variablesList contents: [ :html |\x0a\x09\x09self variables keysDo: [ :each || li |\x0a\x09\x09\x09li := html li.\x0a\x09\x09\x09li\x0a\x09\x09\x09\x09with: each;\x0a\x09\x09\x09\x09onClick: [ self selectVariable: each ].\x0a\x09\x09\x09self selectedVariable = each ifTrue: [\x0a\x09\x09\x09\x09li class: 'selected' ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "keysDo:", "variables", "li", "with:", "onClick:", "selectVariable:", "ifTrue:", "=", "selectedVariable", "class:"] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "variables", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.variables; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "variables\x0a\x09^ variables", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDEInspector); $core.addMethod( $core.method({ selector: "inspect:", protocol: "instance creation", fn: function (anObject){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._inspect_(anObject); $recv($1)._open(); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "inspect: anObject\x0a\x09^ self new\x0a\x09\x09inspect: anObject;\x0a\x09\x09open;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect:", "new", "open", "yourself"] }), $globals.IDEInspector.a$cls); $core.addMethod( $core.method({ selector: "on:", protocol: "instance creation", fn: function (anObject){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._inspect_(anObject); return $recv($1)._yourself(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"on:",{anObject:anObject})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "on: anObject\x0a\x09^ self new\x0a\x09\x09inspect: anObject;\x0a\x09\x09yourself", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspect:", "new", "yourself"] }), $globals.IDEInspector.a$cls); $core.addClass("IDETranscript", $globals.TabWidget, ["textarea"], "IDE"); $core.addMethod( $core.method({ selector: "clear", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($recv($self.textarea)._asJQuery())._val_(""); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"clear",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "clear\x0a\x09textarea asJQuery val: ''", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val:", "asJQuery"] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "cr", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($self.textarea)._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $recv($1)._val_($recv($recv($recv($self.textarea)._asJQuery())._val()).__comma($recv($globals.String)._cr())); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"cr",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "cr\x0a\x09textarea asJQuery val: textarea asJQuery val, String cr.", referencedClasses: ["String"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["val:", "asJQuery", ",", "val", "cr"] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Transcript"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Transcript'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "open", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.TabManager)._current(); $recv($1)._open(); $recv($1)._selectTab_(self); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09TabManager current\x0a\x09open;\x0a\x09selectTab: self", referencedClasses: ["TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open", "current", "selectTab:"] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $self.textarea=$recv(html)._textarea(); $1=$self.textarea; $recv($1)._class_("amber_transcript"); $recv($1)._at_put_("spellcheck","false"); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09textarea := html textarea.\x0a\x09textarea\x0a\x09class: 'amber_transcript';\x0a\x09at: 'spellcheck' put: 'false'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["textarea", "class:", "at:put:"] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._button(); $recv($1)._with_("Clear transcript"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._clear(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09html button\x0a\x09with: 'Clear transcript';\x0a\x09onClick: [ self clear ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["with:", "button", "onClick:", "clear"] }), $globals.IDETranscript); $core.addMethod( $core.method({ selector: "show:", protocol: "actions", fn: function (anObject){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$receiver; $1=$self.textarea; if(($receiver = $1) == null || $receiver.a$nil){ $self._open(); } else { $1; } $2=$recv($self.textarea)._asJQuery(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["asJQuery"]=1; //>>excludeEnd("ctx"); $recv($2)._val_($recv($recv($recv($self.textarea)._asJQuery())._val()).__comma($recv(anObject)._asString())); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"show:",{anObject:anObject})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["anObject"], source: "show: anObject\x0a\x09textarea ifNil: [ self open ].\x0a\x09textarea asJQuery val: textarea asJQuery val, anObject asString.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "open", "val:", "asJQuery", ",", "val", "asString"] }), $globals.IDETranscript); $core.setSlots($globals.IDETranscript.a$cls, ["current"]); $core.addMethod( $core.method({ selector: "current", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.current; if(($receiver = $1) == null || $receiver.a$nil){ $self.current=( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.IDETranscript.a$cls.superclass||$boot.nilAsClass).fn.prototype._new.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; return $self.current; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"current",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "current\x0a\x09^ current ifNil: [ current := super new ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.IDETranscript.a$cls); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($globals.Transcript)._register_($self._current()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09Transcript register: self current", referencedClasses: ["Transcript"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["register:", "current"] }), $globals.IDETranscript.a$cls); $core.addMethod( $core.method({ selector: "new", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._shouldNotImplement(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"new",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "new\x0a\x09self shouldNotImplement", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["shouldNotImplement"] }), $globals.IDETranscript.a$cls); $core.addMethod( $core.method({ selector: "open", protocol: "instance creation", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv($globals.TabManager)._current(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["current"]=1; //>>excludeEnd("ctx"); $recv($1)._open(); $recv($1)._selectTab_($self._current()); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"open",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "open\x0a\x09TabManager current\x0a\x09\x09open;\x0a\x09\x09selectTab: self current", referencedClasses: ["TabManager"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["open", "current", "selectTab:"] }), $globals.IDETranscript.a$cls); $core.addClass("ProgressBar", $globals.TabWidget, ["percent", "progressDiv", "div"], "IDE"); $core.addMethod( $core.method({ selector: "percent", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.percent; if(($receiver = $1) == null || $receiver.a$nil){ return (0); } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"percent",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "percent\x0a\x09^ percent ifNil: [ 0 ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:"] }), $globals.ProgressBar); $core.addMethod( $core.method({ selector: "percent:", protocol: "accessing", fn: function (aNumber){ var self=this,$self=this; $self.percent=aNumber; return self; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aNumber"], source: "percent: aNumber\x0a\x09percent := aNumber", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ProgressBar); $core.addMethod( $core.method({ selector: "renderOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._div(); $recv($1)._class_("progress_bar"); $self.div=$recv($1)._yourself(); $self._renderProgressBar(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderOn: html\x0a\x09div := html div\x0a\x09\x09class: 'progress_bar';\x0a\x09\x09yourself.\x0a\x09self renderProgressBar", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "div", "yourself", "renderProgressBar"] }), $globals.ProgressBar); $core.addMethod( $core.method({ selector: "renderProgressBar", protocol: "rendering", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self.div)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._div(); $recv($1)._class_("progress"); $2=$recv("width:".__comma($recv($self._percent())._asString())).__comma("%"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); return $recv($1)._style_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderProgressBar",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "renderProgressBar\x0a\x09div contents: [ :html |\x0a\x09\x09html div\x0a\x09\x09\x09class: 'progress';\x0a\x09\x09\x09style: 'width:', self percent asString, '%' ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "div", "style:", ",", "asString", "percent"] }), $globals.ProgressBar); $core.addMethod( $core.method({ selector: "updatePercent:", protocol: "updating", fn: function (aNumber){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._percent_(aNumber); $self._renderProgressBar(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updatePercent:",{aNumber:aNumber})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aNumber"], source: "updatePercent: aNumber\x0a\x09self percent: aNumber.\x0a\x09self renderProgressBar", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["percent:", "renderProgressBar"] }), $globals.ProgressBar); $core.addClass("ReferencesBrowser", $globals.TabWidget, ["implementors", "senders", "implementorsList", "input", "timer", "selector", "sendersList", "referencedClasses", "referencedClassesList", "matches", "matchesList"], "IDE"); $core.addMethod( $core.method({ selector: "canBeClosed", protocol: "testing", fn: function (){ var self=this,$self=this; return true; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "canBeClosed\x0a\x09^ true", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "classesAndMetaclasses", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$recv($globals.Smalltalk)._classes(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["classes"]=1; //>>excludeEnd("ctx"); $1=$recv($2).__comma($recv($recv($globals.Smalltalk)._classes())._collect_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(each)._theMetaClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); }))); return $recv($1)._copyWithout_(nil); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classesAndMetaclasses\x0a\x09^ Smalltalk classes, (Smalltalk classes collect: [ :each | each theMetaClass ]) copyWithout: nil", referencedClasses: ["Smalltalk"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["copyWithout:", ",", "classes", "collect:", "theMetaClass"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "implementors", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.implementors; if(($receiver = $1) == null || $receiver.a$nil){ $self.implementors=$recv($globals.Array)._new(); return $self.implementors; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"implementors",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "implementors\x0a\x09^ implementors ifNil: [ implementors := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.ReferencesBrowser.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $self.selector=""; return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09selector := ''", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "[ References ]"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ '[ References ]'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "matches", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.matches; if(($receiver = $1) == null || $receiver.a$nil){ $self.matches=$recv($globals.Array)._new(); return $self.matches; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"matches",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "matches\x0a\x09^ matches ifNil: [ matches := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "openBrowserOn:", protocol: "actions", fn: function (aMethod){ var self=this,$self=this; var browser; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $3,$2,$4,$1,$5,$6; $3=$recv(aMethod)._methodClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["methodClass"]=1; //>>excludeEnd("ctx"); $2=$recv($3)._isMetaclass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["isMetaclass"]=1; //>>excludeEnd("ctx"); if($core.assert($2)){ $4=$recv(aMethod)._methodClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["methodClass"]=2; //>>excludeEnd("ctx"); $1=$recv($4)._instanceClass(); } else { $1=$recv(aMethod)._methodClass(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["methodClass"]=3; //>>excludeEnd("ctx"); } browser=$recv($globals.Browser)._openOn_($1); $5=$recv($recv(aMethod)._methodClass())._isMetaclass(); if($core.assert($5)){ $recv(browser)._selectTab_("class"); } $6=browser; $recv($6)._selectProtocol_($recv(aMethod)._category()); $recv($6)._selectMethod_(aMethod); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"openBrowserOn:",{aMethod:aMethod,browser:browser})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aMethod"], source: "openBrowserOn: aMethod\x0a\x09| browser |\x0a\x09browser := Browser openOn: (aMethod methodClass isMetaclass\x0a\x09\x09ifTrue: [ aMethod methodClass instanceClass ] ifFalse: [ aMethod methodClass ]).\x0a\x09aMethod methodClass isMetaclass ifTrue: [ browser selectTab: #class ].\x0a\x09browser\x0a\x09\x09selectProtocol: aMethod category;\x0a\x09\x09selectMethod: aMethod", referencedClasses: ["Browser"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["openOn:", "ifTrue:ifFalse:", "isMetaclass", "methodClass", "instanceClass", "ifTrue:", "selectTab:", "selectProtocol:", "category", "selectMethod:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "referencedClasses", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.referencedClasses; if(($receiver = $1) == null || $receiver.a$nil){ $self.referencedClasses=$recv($globals.Array)._new(); return $self.referencedClasses; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"referencedClasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "referencedClasses\x0a\x09^ referencedClasses ifNil: [ referencedClasses := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderInputOn_(html); $self._renderImplementorsOn_(html); $self._renderSendersOn_(html); $self._renderReferencedClassesOn_(html); $self._renderMatchesOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09self\x0a\x09\x09renderInputOn: html;\x0a\x09\x09renderImplementorsOn: html;\x0a\x09\x09renderSendersOn: html;\x0a\x09\x09renderReferencedClassesOn: html;\x0a\x09\x09renderMatchesOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderInputOn:", "renderImplementorsOn:", "renderSendersOn:", "renderReferencedClassesOn:", "renderMatchesOn:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderImplementorsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.implementorsList=$recv($recv(html)._ul())._class_("amber_column implementors"); $self._updateImplementorsList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderImplementorsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderImplementorsOn: html\x0a\x09implementorsList := html ul class: 'amber_column implementors'.\x0a\x09self updateImplementorsList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateImplementorsList"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderInputOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._input(); $recv($1)._class_("implementors"); $self.input=$recv($1)._yourself(); $recv($recv($self.input)._asJQuery())._val_($self.selector); $self._setInputEvents(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderInputOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderInputOn: html\x0a\x09input := html input\x0a\x09\x09class: 'implementors';\x0a\x09\x09yourself.\x0a\x09input asJQuery val: selector.\x0a\x09self setInputEvents", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "input", "yourself", "val:", "asJQuery", "setInputEvents"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderMatchesOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.matchesList=$recv($recv(html)._ul())._class_("amber_column matches"); $self._updateMatchesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderMatchesOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderMatchesOn: html\x0a\x09matchesList := html ul class: 'amber_column matches'.\x0a\x09self updateMatchesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateMatchesList"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderReferencedClassesOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.referencedClassesList=$recv($recv(html)._ul())._class_("amber_column referenced_classes"); $self._updateReferencedClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderReferencedClassesOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderReferencedClassesOn: html\x0a\x09referencedClassesList := html ul class: 'amber_column referenced_classes'.\x0a\x09self updateReferencedClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateReferencedClassesList"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "renderSendersOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.sendersList=$recv($recv(html)._ul())._class_("amber_column senders"); $self._updateSendersList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderSendersOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderSendersOn: html\x0a\x09sendersList := html ul class: 'amber_column senders'.\x0a\x09self updateSendersList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateSendersList"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "search:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._searchReferencesFor_(aString); $self._updateImplementorsList(); $self._updateSendersList(); $self._updateReferencedClassesList(); $self._updateMatchesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "search: aString\x0a\x09self\x0a\x09\x09searchReferencesFor: aString;\x0a\x09\x09updateImplementorsList;\x0a\x09\x09updateSendersList;\x0a\x09\x09updateReferencedClassesList;\x0a\x09\x09updateMatchesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["searchReferencesFor:", "updateImplementorsList", "updateSendersList", "updateReferencedClassesList", "updateMatchesList"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "searchMethodSource", protocol: "actions", fn: function (){ var self=this,$self=this; var regex; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; regex=$recv($self.selector)._allButFirst(); $recv($self._classesAndMetaclasses())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(each)._methodDictionary())._valuesDo_((function(value){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $1=$recv($recv(value)._source())._match_(regex); if($core.assert($1)){ return $recv($self._matches())._add_(value); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({value:value},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchMethodSource",{regex:regex})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "searchMethodSource\x0a\x09| regex |\x0a\x09regex := selector allButFirst.\x0a\x09self classesAndMetaclasses do: [ :each |\x0a\x09\x09each methodDictionary valuesDo: [ :value |\x0a\x09\x09\x09(value source match: regex) ifTrue: [\x0a\x09\x09\x09\x09self matches add: value ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["allButFirst", "do:", "classesAndMetaclasses", "valuesDo:", "methodDictionary", "ifTrue:", "match:", "source", "add:", "matches"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "searchReferencedClasses", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $recv($self._classesAndMetaclasses())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(each)._methodDictionary())._valuesDo_((function(value){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $2=$recv(value)._referencedClasses(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["referencedClasses"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._includes_($self.selector); if($core.assert($1)){ return $recv($self._referencedClasses())._add_(value); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({value:value},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchReferencedClasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "searchReferencedClasses\x0a\x09self classesAndMetaclasses do: [ :each |\x0a\x09\x09each methodDictionary valuesDo: [ :value |\x0a\x09\x09\x09(value referencedClasses includes: selector) ifTrue: [\x0a\x09\x09\x09\x09self referencedClasses add: value ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "classesAndMetaclasses", "valuesDo:", "methodDictionary", "ifTrue:", "includes:", "referencedClasses", "add:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "searchReferencesFor:", protocol: "actions", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $self.selector=aString; $self.implementors=$recv($globals.Array)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["new"]=1; //>>excludeEnd("ctx"); $self.senders=$recv($globals.Array)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["new"]=2; //>>excludeEnd("ctx"); $self.referencedClasses=$recv($globals.Array)._new(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["new"]=3; //>>excludeEnd("ctx"); $self.matches=$recv($globals.Array)._new(); $self._searchMethodSource(); $1=$recv($self.selector)._match_("^[A-Z]"); if($core.assert($1)){ $self._searchReferencedClasses(); } else { $self._searchSelectorReferences(); } return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchReferencesFor:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "searchReferencesFor: aString\x0a\x09selector := aString.\x0a\x09implementors := Array new.\x0a\x09senders := Array new.\x0a\x09referencedClasses := Array new.\x0a\x09matches := Array new.\x0a\x09self searchMethodSource.\x0a\x09(selector match: '^[A-Z]')\x0a\x09\x09ifFalse: [ self searchSelectorReferences ]\x0a\x09\x09ifTrue: [ self searchReferencedClasses ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "searchMethodSource", "ifFalse:ifTrue:", "match:", "searchSelectorReferences", "searchReferencedClasses"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "searchSelectorReferences", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($self._classesAndMetaclasses())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(each)._methodDictionary())._keysAndValuesDo_((function(key,value){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $1=$recv(key).__eq($self.selector); if($core.assert($1)){ $recv($self._implementors())._add_(value); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["add:"]=1; //>>excludeEnd("ctx"); } $2=$recv($recv(value)._messageSends())._includes_($self.selector); if($core.assert($2)){ return $recv($self._senders())._add_(value); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({key:key,value:value},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"searchSelectorReferences",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "searchSelectorReferences\x0a\x09self classesAndMetaclasses do: [ :each |\x0a\x09\x09each methodDictionary keysAndValuesDo: [ :key :value |\x0a\x09\x09\x09key = selector ifTrue: [ self implementors add: value ].\x0a\x09\x09\x09(value messageSends includes: selector) ifTrue: [\x0a\x09\x09\x09\x09self senders add: value ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "classesAndMetaclasses", "keysAndValuesDo:", "methodDictionary", "ifTrue:", "=", "add:", "implementors", "includes:", "messageSends", "senders"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "selector", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.selector; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selector\x0a\x09^ selector", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "senders", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.senders; if(($receiver = $1) == null || $receiver.a$nil){ $self.senders=$recv($globals.Array)._new(); return $self.senders; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"senders",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "senders\x0a\x09^ senders ifNil: [ senders := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "setInputEvents", protocol: "private", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$receiver; $1=$self.input; $recv($1)._onKeyUp_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self.timer=$recv((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._search_($recv($recv($self.input)._asJQuery())._val()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); }))._valueWithTimeout_((100)); return $self.timer; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); $recv($1)._onKeyDown_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=$self.timer; if(($receiver = $2) == null || $receiver.a$nil){ return $2; } else { return $recv($self.timer)._clearTimeout(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"setInputEvents",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "setInputEvents\x0a\x09input\x0a\x09\x09onKeyUp: [ timer := [ self search: input asJQuery val ] valueWithTimeout: 100 ];\x0a\x09\x09onKeyDown: [ timer ifNotNil: [ timer clearTimeout ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["onKeyUp:", "valueWithTimeout:", "search:", "val", "asJQuery", "onKeyDown:", "ifNotNil:", "clearTimeout"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "updateImplementorsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$6,$5,$4,$3,$2,$7; $recv($self.implementorsList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("column_label"); $6=$self._implementors(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["implementors"]=1; //>>excludeEnd("ctx"); $5=$recv($6)._size(); $4=$recv($5)._asString(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["asString"]=1; //>>excludeEnd("ctx"); $3="Implementors (".__comma($4); $2=$recv($3).__comma(")"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._style_("font-weight: bold"); return $recv($self._implementors())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $7=li; $recv($7)._with_($recv(each)._asString()); return $recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._openBrowserOn_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateImplementorsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateImplementorsList\x0a\x09implementorsList contents: [ :html |\x0a\x09html li\x0a\x09\x09class: 'column_label';\x0a\x09\x09with: 'Implementors (', self implementors size asString, ')';\x0a\x09\x09style: 'font-weight: bold'.\x0a\x09self implementors do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09li\x0a\x09\x09with: each asString;\x0a\x09\x09onClick: [ self openBrowserOn: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "li", "with:", ",", "asString", "size", "implementors", "style:", "do:", "onClick:", "openBrowserOn:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "updateMatchesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$6,$5,$4,$3,$2,$7; $recv($self.matchesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("column_label"); $6=$self._matches(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["matches"]=1; //>>excludeEnd("ctx"); $5=$recv($6)._size(); $4=$recv($5)._asString(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["asString"]=1; //>>excludeEnd("ctx"); $3="Regex matches (".__comma($4); $2=$recv($3).__comma(")"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._style_("font-weight: bold"); return $recv($self._matches())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $7=li; $recv($7)._with_($recv(each)._asString()); return $recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._openBrowserOn_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateMatchesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateMatchesList\x0a\x09matchesList contents: [ :html |\x0a\x09html li\x0a\x09\x09class: 'column_label';\x0a\x09\x09with: 'Regex matches (', self matches size asString, ')';\x0a\x09\x09style: 'font-weight: bold'.\x0a\x09self matches do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09li\x0a\x09\x09with: each asString;\x0a\x09\x09onClick: [ self openBrowserOn: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "li", "with:", ",", "asString", "size", "matches", "style:", "do:", "onClick:", "openBrowserOn:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "updateReferencedClassesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$6,$5,$4,$3,$2,$7; $recv($self.referencedClassesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("column_label"); $6=$self._referencedClasses(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["referencedClasses"]=1; //>>excludeEnd("ctx"); $5=$recv($6)._size(); $4=$recv($5)._asString(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["asString"]=1; //>>excludeEnd("ctx"); $3="Class references (".__comma($4); $2=$recv($3).__comma(")"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._style_("font-weight: bold"); return $recv($self._referencedClasses())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $7=$recv(html)._li(); $recv($7)._with_($recv(each)._asString()); return $recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._openBrowserOn_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateReferencedClassesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateReferencedClassesList\x0a\x09referencedClassesList contents: [ :html |\x0a\x09html li\x0a\x09\x09class: 'column_label';\x0a\x09\x09with: 'Class references (', self referencedClasses size asString, ')';\x0a\x09\x09style: 'font-weight: bold'.\x0a\x09self referencedClasses do: [ :each |\x0a\x09\x09html li\x0a\x09\x09\x09with: each asString;\x0a\x09\x09\x09onClick: [ self openBrowserOn: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "li", "with:", ",", "asString", "size", "referencedClasses", "style:", "do:", "onClick:", "openBrowserOn:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "updateSendersList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$6,$5,$4,$3,$2,$7; $recv($self.sendersList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("column_label"); $6=$self._senders(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["senders"]=1; //>>excludeEnd("ctx"); $5=$recv($6)._size(); $4=$recv($5)._asString(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["asString"]=1; //>>excludeEnd("ctx"); $3="Senders (".__comma($4); $2=$recv($3).__comma(")"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._style_("font-weight: bold"); return $recv($self._senders())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $7=$recv(html)._li(); $recv($7)._with_($recv(each)._asString()); return $recv($7)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._openBrowserOn_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateSendersList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateSendersList\x0a\x09sendersList contents: [ :html |\x0a\x09html li\x0a\x09\x09class: 'column_label';\x0a\x09\x09with: 'Senders (', self senders size asString, ')';\x0a\x09\x09style: 'font-weight: bold'.\x0a\x09self senders do: [ :each |\x0a\x09\x09html li\x0a\x09\x09\x09with: each asString;\x0a\x09\x09\x09onClick: [ self openBrowserOn: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "li", "with:", ",", "asString", "size", "senders", "style:", "do:", "onClick:", "openBrowserOn:"] }), $globals.ReferencesBrowser); $core.addMethod( $core.method({ selector: "search:", protocol: "instance creation", fn: function (aString){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._new(); $recv($1)._searchReferencesFor_(aString); return $recv($1)._open(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aString"], source: "search: aString\x0a\x09^ self new\x0a\x09\x09searchReferencesFor: aString;\x0a\x09\x09open", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["searchReferencesFor:", "new", "open"] }), $globals.ReferencesBrowser.a$cls); $core.addClass("TestRunner", $globals.TabWidget, ["selectedCategories", "packagesList", "selectedClasses", "classesList", "selectedMethods", "progressBar", "methodsList", "result", "statusDiv"], "IDE"); $core.addMethod( $core.method({ selector: "allClasses", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($globals.TestCase)._allSubclasses())._select_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(each)._isAbstract())._not(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"allClasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "allClasses\x0a\x09^ TestCase allSubclasses select: [ :each | each isAbstract not ]", referencedClasses: ["TestCase"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["select:", "allSubclasses", "not", "isAbstract"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "classes", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; return $recv($recv($self._allClasses())._select_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._selectedCategories())._includes_($recv(each)._category()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })))._sort_((function(a,b){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(a)._name(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["name"]=1; //>>excludeEnd("ctx"); return $recv($1).__gt($recv(b)._name()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({a:a,b:b},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"classes",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "classes\x0a\x09^ (self allClasses\x0a\x09select: [ :each | self selectedCategories includes: each category ])\x0a\x09sort: [ :a :b | a name > b name ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["sort:", "select:", "allClasses", "includes:", "selectedCategories", "category", ">", "name"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "initialize", protocol: "initialization", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.TestRunner.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $self.result=$recv($globals.TestResult)._new(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"initialize",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "initialize\x0a\x09super initialize.\x0a\x09result := TestResult new", referencedClasses: ["TestResult"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["initialize", "new"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "isSelectedCategory:", protocol: "testing", fn: function (aCategory){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._selectedCategories())._includes_(aCategory); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"isSelectedCategory:",{aCategory:aCategory})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCategory"], source: "isSelectedCategory: aCategory\x0a\x09^ (self selectedCategories includes: aCategory)", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["includes:", "selectedCategories"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "isSelectedClass:", protocol: "testing", fn: function (aClass){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($self._selectedClasses())._includes_(aClass); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"isSelectedClass:",{aClass:aClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "isSelectedClass: aClass\x0a\x09^ (self selectedClasses includes: aClass)", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["includes:", "selectedClasses"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "SUnit"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'SUnit'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "packages", protocol: "accessing", fn: function (){ var self=this,$self=this; var packages; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$3,$1; packages=$recv($globals.Array)._new(); $recv($self._allClasses())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $2=packages; $3=$recv(each)._category(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["category"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._includes_($3); if(!$core.assert($1)){ return $recv(packages)._add_($recv(each)._category()); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return $recv(packages)._sort(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"packages",{packages:packages})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "packages\x0a\x09| packages |\x0a\x09packages := Array new.\x0a\x09self allClasses do: [ :each |\x0a\x09(packages includes: each category) ifFalse: [\x0a\x09\x09packages add: each category ]].\x0a\x09^ packages sort", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "do:", "allClasses", "ifFalse:", "includes:", "category", "add:", "sort"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "performFailure:", protocol: "actions", fn: function (aTestCase){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv(aTestCase)._runCase(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"performFailure:",{aTestCase:aTestCase})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aTestCase"], source: "performFailure: aTestCase\x0a\x09aTestCase runCase", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["runCase"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "printErrors", protocol: "printing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($recv($recv($self._result())._errors())._size())._asString()).__comma(" errors, "); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printErrors",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printErrors\x0a\x09^ self result errors size asString , ' errors, '", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "asString", "size", "errors", "result"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "printFailures", protocol: "printing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($recv($recv($self._result())._failures())._size())._asString()).__comma(" failures"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printFailures",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printFailures\x0a\x09^ self result failures size asString, ' failures'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "asString", "size", "failures", "result"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "printPasses", protocol: "printing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $5,$4,$8,$7,$6,$3,$2,$1; $5=$self._result(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["result"]=1; //>>excludeEnd("ctx"); $4=$recv($5)._runs(); $8=$self._result(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["result"]=2; //>>excludeEnd("ctx"); $7=$recv($8)._errors(); $6=$recv($7)._size(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["size"]=1; //>>excludeEnd("ctx"); $3=$recv($4).__minus($6); $2=$recv($3).__minus($recv($recv($self._result())._failures())._size()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["-"]=1; //>>excludeEnd("ctx"); $1=$recv($2)._asString(); return $recv($1).__comma(" passes, "); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printPasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printPasses\x0a\x09^ (self result runs - self result errors size - self result failures size) asString , ' passes, '", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "asString", "-", "runs", "result", "size", "errors", "failures"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "printTotal", protocol: "printing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); return $recv($recv($recv($self._result())._total())._asString()).__comma(" runs, "); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printTotal",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printTotal\x0a\x09^ self result total asString, ' runs, '", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "asString", "total", "result"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "progressBar", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.progressBar; if(($receiver = $1) == null || $receiver.a$nil){ $self.progressBar=$recv($globals.ProgressBar)._new(); return $self.progressBar; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"progressBar",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "progressBar\x0a\x09^ progressBar ifNil: [ progressBar := ProgressBar new ]", referencedClasses: ["ProgressBar"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self._renderCategoriesOn_(html); $self._renderClassesOn_(html); $self._renderResultsOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09self\x0a\x09renderCategoriesOn: html;\x0a\x09renderClassesOn: html;\x0a\x09renderResultsOn: html", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["renderCategoriesOn:", "renderClassesOn:", "renderResultsOn:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$recv(html)._button(); $recv($1)._with_("Run selected"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._run_($self._testCases()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09html button\x0a\x09with: 'Run selected';\x0a\x09onClick: [ self run: self testCases ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["with:", "button", "onClick:", "run:", "testCases"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderCategoriesOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.packagesList=$recv($recv(html)._ul())._class_("amber_column sunit packages"); $self._updateCategoriesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderCategoriesOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderCategoriesOn: html\x0a\x09packagesList := html ul class: 'amber_column sunit packages'.\x0a\x09self updateCategoriesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateCategoriesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderClassesOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.classesList=$recv($recv(html)._ul())._class_("amber_column sunit classes"); $self._updateClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderClassesOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderClassesOn: html\x0a\x09classesList := html ul class: 'amber_column sunit classes'.\x0a\x09self updateClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", "ul", "updateClassesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderErrorsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($recv($self._result())._errors())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); $recv($1)._class_("errors"); $2=$recv($recv($recv($recv(each)._class())._name()).__comma(" >> ")).__comma($recv(each)._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); return $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._performFailure_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderErrorsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderErrorsOn: html\x0a\x09self result errors do: [ :each |\x0a\x09\x09html li\x0a\x09\x09\x09class: 'errors';\x0a\x09\x09\x09with: each class name, ' >> ', each selector;\x0a\x09\x09\x09\x09\x09\x09onClick: [ self performFailure: each ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "errors", "result", "class:", "li", "with:", ",", "name", "class", "selector", "onClick:", "performFailure:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderFailuresOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2; $recv($recv($self._result())._failures())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); $recv($1)._class_("failures"); $2=$recv($recv($recv($recv(each)._class())._name()).__comma(" >> ")).__comma($recv(each)._selector()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx[","]=1; //>>excludeEnd("ctx"); $recv($1)._with_($2); return $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._performFailure_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderFailuresOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderFailuresOn: html\x0a\x09self result failures do: [ :each |\x0a\x09\x09html li\x0a\x09\x09\x09class: 'failures';\x0a\x09\x09\x09with: each class name, ' >> ', each selector;\x0a\x09\x09\x09\x09\x09\x09onClick: [ self performFailure: each ]]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "failures", "result", "class:", "li", "with:", ",", "name", "class", "selector", "onClick:", "performFailure:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "renderResultsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.statusDiv=$recv(html)._div(); $recv(html)._with_($self._progressBar()); $self.methodsList=$recv($recv(html)._ul())._class_("amber_column sunit results"); $self._updateMethodsList(); $self._updateStatusDiv(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderResultsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderResultsOn: html\x0a\x09statusDiv := html div.\x0a\x09html with: self progressBar.\x0a\x09methodsList := html ul class: 'amber_column sunit results'.\x0a\x09self updateMethodsList.\x0a\x09self updateStatusDiv", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["div", "with:", "progressBar", "class:", "ul", "updateMethodsList", "updateStatusDiv"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "result", protocol: "accessing", fn: function (){ var self=this,$self=this; return $self.result; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "result\x0a\x09^ result", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "run:", protocol: "actions", fn: function (aCollection){ var self=this,$self=this; var worker; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; worker=$recv($globals.TestSuiteRunner)._on_(aCollection); $self.result=$recv(worker)._result(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["result"]=1; //>>excludeEnd("ctx"); $recv($recv(worker)._announcer())._on_do_($globals.ResultAnnouncement,(function(ann){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv($recv(ann)._result()).__eq_eq($self.result); if($core.assert($1)){ $recv($self._progressBar())._updatePercent_($recv($recv($recv($self.result)._runs()).__slash($recv($self.result)._total())).__star((100))); $self._updateStatusDiv(); return $self._updateMethodsList(); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1,1)}); //>>excludeEnd("ctx"); })); $recv(worker)._run(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"run:",{aCollection:aCollection,worker:worker})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCollection"], source: "run: aCollection\x0a| worker |\x0a\x09worker := TestSuiteRunner on: aCollection.\x0a\x09result := worker result.\x0a\x09worker announcer on: ResultAnnouncement do: [ :ann |\x0a\x09\x09ann result == result ifTrue: [\x0a\x09\x09\x09self progressBar updatePercent: result runs / result total * 100.\x0a\x09\x09\x09self updateStatusDiv.\x0a\x09\x09\x09self updateMethodsList\x0a\x09\x09]\x0a\x09].\x0a\x09worker run", referencedClasses: ["TestSuiteRunner", "ResultAnnouncement"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["on:", "result", "on:do:", "announcer", "ifTrue:", "==", "updatePercent:", "progressBar", "*", "/", "runs", "total", "updateStatusDiv", "updateMethodsList", "run"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "selectAllCategories", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv($self._packages())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv($self.selectedCategories)._includes_(each); if(!$core.assert($1)){ return $recv($self._selectedCategories())._add_(each); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); $self._updateCategoriesList(); $self._updateClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectAllCategories",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectAllCategories\x0a\x09self packages do: [ :each |\x0a\x09\x09(selectedCategories includes: each) ifFalse: [\x0a\x09\x09\x09self selectedCategories add: each ]].\x0a\x09self\x0a\x09\x09updateCategoriesList;\x0a\x09\x09updateClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "packages", "ifFalse:", "includes:", "add:", "selectedCategories", "updateCategoriesList", "updateClassesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "selectAllClasses", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $recv($self._classes())._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv($self.selectedClasses)._includes_(each); if(!$core.assert($1)){ return $recv($self._selectedClasses())._add_(each); } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })); $self._updateCategoriesList(); $self._updateClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectAllClasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectAllClasses\x0a\x09self classes do: [ :each |\x0a\x09\x09(selectedClasses includes: each) ifFalse: [\x0a\x09\x09\x09self selectedClasses add: each ]].\x0a\x09self\x0a\x09\x09updateCategoriesList;\x0a\x09\x09updateClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "classes", "ifFalse:", "includes:", "add:", "selectedClasses", "updateCategoriesList", "updateClassesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "selectedCategories", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.selectedCategories; if(($receiver = $1) == null || $receiver.a$nil){ $self.selectedCategories=$recv($globals.Array)._new(); return $self.selectedCategories; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectedCategories",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedCategories\x0a\x09^ selectedCategories ifNil: [ selectedCategories := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "selectedClasses", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$receiver; $1=$self.selectedClasses; if(($receiver = $1) == null || $receiver.a$nil){ $self.selectedClasses=$recv($globals.Array)._new(); return $self.selectedClasses; } else { return $1; } //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"selectedClasses",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "selectedClasses\x0a\x09^ selectedClasses ifNil: [ selectedClasses := Array new ]", referencedClasses: ["Array"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifNil:", "new"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "statusInfo", protocol: "accessing", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $2,$1; $2=$recv($recv($self._printTotal()).__comma($self._printPasses())).__comma($self._printErrors()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=2; //>>excludeEnd("ctx"); $1=$recv($2).__comma($self._printFailures()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx[","]=1; //>>excludeEnd("ctx"); return $1; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"statusInfo",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "statusInfo\x0a\x09^ self printTotal, self printPasses, self printErrors, self printFailures", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [",", "printTotal", "printPasses", "printErrors", "printFailures"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "testCases", protocol: "accessing", fn: function (){ var self=this,$self=this; var testCases; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); testCases=[]; $recv($recv($self._selectedClasses())._select_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($self._selectedCategories())._includes_($recv(each)._category()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)}); //>>excludeEnd("ctx"); })))._do_((function(each){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv(testCases)._addAll_($recv(each)._buildSuite()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)}); //>>excludeEnd("ctx"); })); return testCases; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"testCases",{testCases:testCases})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "testCases\x0a\x09| testCases |\x0a\x09testCases := #().\x0a\x09(self selectedClasses\x0a\x09\x09select: [ :each | self selectedCategories includes: each category ])\x0a\x09\x09do: [ :each | testCases addAll: each buildSuite ].\x0a\x09^ testCases", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["do:", "select:", "selectedClasses", "includes:", "selectedCategories", "category", "addAll:", "buildSuite"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "toggleCategory:", protocol: "actions", fn: function (aCategory){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._isSelectedCategory_(aCategory); if($core.assert($1)){ $recv($self.selectedCategories)._remove_(aCategory); } else { $recv($self.selectedCategories)._add_(aCategory); } $self._updateCategoriesList(); $self._updateClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"toggleCategory:",{aCategory:aCategory})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aCategory"], source: "toggleCategory: aCategory\x0a\x09(self isSelectedCategory: aCategory)\x0a\x09\x09ifFalse: [ selectedCategories add: aCategory ]\x0a\x09\x09ifTrue: [ selectedCategories remove: aCategory ].\x0a\x09self\x0a\x09\x09updateCategoriesList;\x0a\x09\x09updateClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:ifTrue:", "isSelectedCategory:", "add:", "remove:", "updateCategoriesList", "updateClassesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "toggleClass:", protocol: "actions", fn: function (aClass){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1; $1=$self._isSelectedClass_(aClass); if($core.assert($1)){ $recv($self.selectedClasses)._remove_(aClass); } else { $recv($self.selectedClasses)._add_(aClass); } $self._updateClassesList(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"toggleClass:",{aClass:aClass})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["aClass"], source: "toggleClass: aClass\x0a\x09(self isSelectedClass: aClass)\x0a\x09\x09ifFalse: [ selectedClasses add: aClass ]\x0a\x09\x09ifTrue: [ selectedClasses remove: aClass ].\x0a\x09self\x0a\x09\x09updateClassesList", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["ifFalse:ifTrue:", "isSelectedClass:", "add:", "remove:", "updateClassesList"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "updateCategoriesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; $recv($self.packagesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("all"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("All"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); return $self._selectAllCategories(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx2.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); return $recv($self._packages())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $2=$recv($self._selectedCategories())._includes_(each); if($core.assert($2)){ $recv(li)._class_("selected"); } $3=li; $recv($3)._with_(each); return $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._toggleCategory_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,5)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateCategoriesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateCategoriesList\x0a\x09packagesList contents: [ :html |\x0a\x09\x09html li\x0a\x09\x09class: 'all';\x0a\x09\x09with: 'All';\x0a\x09\x09onClick: [ self selectAllCategories ].\x0a\x09self packages do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09(self selectedCategories includes: each) ifTrue: [\x0a\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09with: each;\x0a\x09\x09onClick: [ self toggleCategory: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "class:", "li", "with:", "onClick:", "selectAllCategories", "do:", "packages", "ifTrue:", "includes:", "selectedCategories", "toggleCategory:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "updateClassesList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3; $recv($self.classesList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $recv($self._selectedCategories())._ifNotEmpty_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); $1=$recv(html)._li(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["li"]=1; //>>excludeEnd("ctx"); $recv($1)._class_("all"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["class:"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("All"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["with:"]=1; //>>excludeEnd("ctx"); return $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._selectAllClasses(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx3.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)}); //>>excludeEnd("ctx"); })); return $recv($self._classes())._do_((function(each){ var li; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx3) { //>>excludeEnd("ctx"); li=$recv(html)._li(); $2=$recv($self._selectedClasses())._includes_(each); if($core.assert($2)){ $recv(li)._class_("selected"); } $3=li; $recv($3)._with_($recv(each)._name()); return $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx4) { //>>excludeEnd("ctx"); return $self._toggleClass_(each); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx4) {$ctx4.fillBlock({},$ctx3,6)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx3) {$ctx3.fillBlock({each:each,li:li},$ctx2,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateClassesList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateClassesList\x0a\x09classesList contents: [ :html |\x0a\x09self selectedCategories ifNotEmpty: [\x0a\x09\x09html li\x0a\x09\x09\x09class: 'all';\x0a\x09\x09\x09with: 'All';\x0a\x09\x09\x09onClick: [ self selectAllClasses ]].\x0a\x09self classes do: [ :each || li |\x0a\x09\x09li := html li.\x0a\x09\x09(self selectedClasses includes: each) ifTrue: [\x0a\x09\x09\x09li class: 'selected' ].\x0a\x09\x09li\x0a\x09\x09\x09with: each name;\x0a\x09\x09\x09onClick: [ self toggleClass: each ]] ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "ifNotEmpty:", "selectedCategories", "class:", "li", "with:", "onClick:", "selectAllClasses", "do:", "classes", "ifTrue:", "includes:", "selectedClasses", "name", "toggleClass:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "updateMethodsList", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.methodsList)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); $self._renderErrorsOn_(html); return $self._renderFailuresOn_(html); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateMethodsList",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateMethodsList\x0a\x09methodsList contents: [ :html |\x0a\x09\x09self renderErrorsOn: html.\x0a\x09\x09\x09\x09self renderFailuresOn: html ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["contents:", "renderErrorsOn:", "renderFailuresOn:"] }), $globals.TestRunner); $core.addMethod( $core.method({ selector: "updateStatusDiv", protocol: "updating", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.statusDiv)._class_("sunit status ".__comma($recv($self.result)._status())); $recv($self.statusDiv)._contents_((function(html){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $recv($recv(html)._span())._with_($self._statusInfo()); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({html:html},$ctx1,1)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"updateStatusDiv",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "updateStatusDiv\x0a\x09statusDiv class: 'sunit status ', result status.\x0a\x09statusDiv contents: [ :html |\x0a\x09\x09html span with: self statusInfo ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["class:", ",", "status", "contents:", "with:", "span", "statusInfo"] }), $globals.TestRunner); $core.addClass("Workspace", $globals.TabWidget, ["sourceArea"], "IDE"); $core.addMethod( $core.method({ selector: "clearWorkspace", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._clear(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"clearWorkspace",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "clearWorkspace\x0a\x09sourceArea clear", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["clear"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "doIt", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._doIt(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"doIt",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "doIt\x0a\x09sourceArea doIt", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["doIt"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "fileIn", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._fileIn(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"fileIn",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "fileIn\x0a\x09sourceArea fileIn", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["fileIn"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "inspectIt", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._inspectIt(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"inspectIt",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "inspectIt\x0a\x09sourceArea inspectIt", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["inspectIt"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "label", protocol: "accessing", fn: function (){ var self=this,$self=this; return "Workspace"; }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "label\x0a\x09^ 'Workspace'", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: [] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "printIt", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $recv($self.sourceArea)._printIt(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"printIt",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "printIt\x0a\x09sourceArea printIt", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["printIt"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "renderBoxOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); $self.sourceArea=$recv($globals.SourceArea)._new(); $recv($self.sourceArea)._renderOn_(html); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderBoxOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderBoxOn: html\x0a\x09sourceArea := SourceArea new.\x0a\x09sourceArea renderOn: html", referencedClasses: ["SourceArea"], //>>excludeEnd("ide"); pragmas: [], messageSends: ["new", "renderOn:"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "renderButtonsOn:", protocol: "rendering", fn: function (html){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); var $1,$2,$3,$4,$5; $1=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=1; //>>excludeEnd("ctx"); $recv($1)._with_("DoIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=1; //>>excludeEnd("ctx"); $recv($1)._title_("ctrl+d"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["title:"]=1; //>>excludeEnd("ctx"); $recv($1)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._doIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=1; //>>excludeEnd("ctx"); $2=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=2; //>>excludeEnd("ctx"); $recv($2)._with_("PrintIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=2; //>>excludeEnd("ctx"); $recv($2)._title_("ctrl+p"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["title:"]=2; //>>excludeEnd("ctx"); $recv($2)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._printIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=2; //>>excludeEnd("ctx"); $3=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=3; //>>excludeEnd("ctx"); $recv($3)._with_("InspectIt"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=3; //>>excludeEnd("ctx"); $recv($3)._title_("ctrl+i"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["title:"]=3; //>>excludeEnd("ctx"); $recv($3)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._inspectIt(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=3; //>>excludeEnd("ctx"); $4=$recv(html)._button(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["button"]=4; //>>excludeEnd("ctx"); $recv($4)._with_("FileIn"); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["with:"]=4; //>>excludeEnd("ctx"); $recv($4)._title_("ctrl+f"); $recv($4)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._fileIn(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,4)}); //>>excludeEnd("ctx"); })); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.sendIdx["onClick:"]=4; //>>excludeEnd("ctx"); $5=$recv(html)._button(); $recv($5)._with_("Clear workspace"); $recv($5)._onClick_((function(){ //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx2) { //>>excludeEnd("ctx"); return $self._clearWorkspace(); //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,5)}); //>>excludeEnd("ctx"); })); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: ["html"], source: "renderButtonsOn: html\x0a\x09html button\x0a\x09with: 'DoIt';\x0a\x09title: 'ctrl+d';\x0a\x09onClick: [ self doIt ].\x0a\x09html button\x0a\x09with: 'PrintIt';\x0a\x09title: 'ctrl+p';\x0a\x09onClick: [ self printIt ].\x0a\x09html button\x0a\x09with: 'InspectIt';\x0a\x09title: 'ctrl+i';\x0a\x09onClick: [ self inspectIt ].\x0a\x09html button\x0a\x09with: 'FileIn';\x0a\x09title: 'ctrl+f';\x0a\x09onClick: [ self fileIn ].\x0a\x09html button\x0a\x09with: 'Clear workspace';\x0a\x09onClick: [ self clearWorkspace ]", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["with:", "button", "title:", "onClick:", "doIt", "printIt", "inspectIt", "fileIn", "clearWorkspace"] }), $globals.Workspace); $core.addMethod( $core.method({ selector: "show", protocol: "actions", fn: function (){ var self=this,$self=this; //>>excludeStart("ctx", pragmas.excludeDebugContexts); return $core.withContext(function($ctx1) { //>>excludeEnd("ctx"); ( //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = true, //>>excludeEnd("ctx"); ($globals.Workspace.superclass||$boot.nilAsClass).fn.prototype._show.apply($self, [])); //>>excludeStart("ctx", pragmas.excludeDebugContexts); $ctx1.supercall = false; //>>excludeEnd("ctx");; $recv($self.sourceArea)._focus(); return self; //>>excludeStart("ctx", pragmas.excludeDebugContexts); }, function($ctx1) {$ctx1.fill(self,"show",{})}); //>>excludeEnd("ctx"); }, //>>excludeStart("ide", pragmas.excludeIdeData); args: [], source: "show\x0a\x09super show.\x0a\x09sourceArea focus.", referencedClasses: [], //>>excludeEnd("ide"); pragmas: [], messageSends: ["show", "focus"] }), $globals.Workspace); });