12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271 |
- define("helios/Helios-Commands-Core", ["amber/boot", "amber_core/Kernel-Objects"], function($boot){"use strict";
- var $core=$boot.api,nil=$boot.nil,$recv=$boot.asReceiver,$globals=$boot.globals;
- $core.addPackage('Helios-Commands-Core');
- $core.packages["Helios-Commands-Core"].innerEval = function (expr) { return eval(expr); };
- $core.packages["Helios-Commands-Core"].transport = {"type":"amd","amdNamespace":"helios"};
- $core.addClass('HLCommand', $globals.Object, ['input'], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "asActionBinding",
- protocol: 'converting',
- fn: function (){
- var self=this;
- function $HLBindingAction(){return $globals.HLBindingAction||(typeof HLBindingAction=="undefined"?nil:HLBindingAction)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv($HLBindingAction())._on_labelled_(self._keyCode(),self._label());
- $recv($1)._command_(self);
- return $recv($1)._yourself();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"asActionBinding",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "asActionBinding\x0a\x09^ (HLBindingAction on: self keyCode labelled: self label)\x0a \x09command: self;\x0a\x09\x09yourself",
- referencedClasses: ["HLBindingAction"],
- //>>excludeEnd("ide");
- messageSends: ["command:", "on:labelled:", "keyCode", "label", "yourself"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "asBinding",
- protocol: 'converting',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=self._isBindingGroup();
- if($core.assert($1)){
- return self._asGroupBinding();
- } else {
- return self._asActionBinding();
- };
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"asBinding",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "asBinding\x0a\x09^ self isBindingGroup\x0a\x09\x09ifTrue: [ self asGroupBinding ]\x0a\x09\x09ifFalse: [ self asActionBinding ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["ifTrue:ifFalse:", "isBindingGroup", "asGroupBinding", "asActionBinding"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "asGroupBinding",
- protocol: 'converting',
- fn: function (){
- var self=this;
- function $HLBindingGroup(){return $globals.HLBindingGroup||(typeof HLBindingGroup=="undefined"?nil:HLBindingGroup)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($HLBindingGroup())._on_labelled_(self._keyCode(),self._label());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"asGroupBinding",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "asGroupBinding\x0a\x09^ HLBindingGroup \x0a\x09\x09on: self keyCode\x0a\x09\x09labelled: self label",
- referencedClasses: ["HLBindingGroup"],
- //>>excludeEnd("ide");
- messageSends: ["on:labelled:", "keyCode", "label"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "commandError:",
- protocol: 'error handling',
- fn: function (aString){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- self._error_(aString);
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"commandError:",{aString:aString},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString"],
- source: "commandError: aString\x0a\x09self error: aString",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["error:"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "defaultInput",
- protocol: 'defaults',
- fn: function (){
- var self=this;
- return "";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "defaultInput\x0a\x09^ ''",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "documentation",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._class())._documentation();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"documentation",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "documentation\x0a\x09^ self class documentation",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["documentation", "class"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- return self;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "input",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return self["@input"];
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "input\x0a\x09^ input",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "input:",
- protocol: 'accessing',
- fn: function (aString){
- var self=this;
- var $1;
- self["@input"]=aString;
- $1=self["@input"];
- return $1;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aString"],
- source: "input: aString\x0a\x09^ input := aString",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "inputCompletion",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return [];
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputCompletion\x0a\x09^ #()",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "inputLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return self._label();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"inputLabel",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "inputLabel\x0a\x09^ self label",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["label"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "isAction",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._isBindingGroup())._not();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isAction",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isAction\x0a\x09^ self isBindingGroup not",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["not", "isBindingGroup"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "isActive",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isActive\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "isBindingGroup",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($recv(self._class())._methodDictionary())._includesKey_("execute"))._not();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isBindingGroup",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isBindingGroup\x0a\x09^ (self class methodDictionary includesKey: 'execute') not",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["not", "includesKey:", "methodDictionary", "class"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "isInputRequired",
- protocol: 'testing',
- fn: function (){
- var self=this;
- return false;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isInputRequired\x0a\x09^ false",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._class())._key();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"key",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ self class key",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["key", "class"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "keyCode",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv(self._key())._asUppercase())._charCodeAt_((1));
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"keyCode",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "keyCode\x0a\x09^ self key asUppercase charCodeAt: 1",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["charCodeAt:", "asUppercase", "key"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._class())._label();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"label",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ self class label",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["label", "class"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._class())._menuLabel();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ self class menuLabel",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["menuLabel", "class"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "registerOn:",
- protocol: 'registration',
- fn: function (aBinding){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(aBinding)._add_(self._asBinding());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},$globals.HLCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aBinding"],
- source: "registerOn: aBinding\x0a\x09^ aBinding add: self asBinding",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["add:", "asBinding"]
- }),
- $globals.HLCommand);
- $core.addMethod(
- $core.method({
- selector: "concreteClasses",
- protocol: 'registration',
- fn: function (){
- var self=this;
- var classes;
- function $OrderedCollection(){return $globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- classes=$recv($OrderedCollection())._new();
- $1=self._isConcrete();
- if($core.assert($1)){
- $recv(classes)._add_(self);
- };
- $recv(self._subclasses())._do_((function(each){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(classes)._addAll_($recv(each)._concreteClasses());
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
- //>>excludeEnd("ctx");
- }));
- return classes;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"concreteClasses",{classes:classes},$globals.HLCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "concreteClasses\x0a\x09| classes |\x0a\x09\x0a\x09classes := OrderedCollection new.\x0a\x09\x0a\x09self isConcrete\x0a\x09\x09ifTrue: [ classes add: self ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each | \x0a\x09\x09classes addAll: each concreteClasses ].\x0a\x09\x09\x0a\x09^ classes",
- referencedClasses: ["OrderedCollection"],
- //>>excludeEnd("ide");
- messageSends: ["new", "ifTrue:", "isConcrete", "add:", "do:", "subclasses", "addAll:", "concreteClasses"]
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "documentation",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "documentation\x0a\x09^ ''",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "isConcrete",
- protocol: 'testing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._key())._notNil();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"isConcrete",{},$globals.HLCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "isConcrete\x0a\x09^ self key notNil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["notNil", "key"]
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "isValidFor:",
- protocol: 'testing',
- fn: function (aModel){
- var self=this;
- return true;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aModel"],
- source: "isValidFor: aModel\x0a\x09^ true",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return nil;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09\x22Answer a single character string or nil if no key\x22\x0a\x09\x0a\x09^ nil",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ ''",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "menuLabel",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return self._label();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"menuLabel",{},$globals.HLCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "menuLabel\x0a\x09^ self label",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["label"]
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "registerConcreteClassesOn:",
- protocol: 'accessing',
- fn: function (aBinding){
- var self=this;
- var newBinding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=self._isConcrete();
- if($core.assert($1)){
- newBinding=self._registerOn_(aBinding);
- newBinding;
- } else {
- newBinding=aBinding;
- newBinding;
- };
- $recv(self._subclasses())._do_((function(each){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(each)._registerConcreteClassesOn_(newBinding);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:",{aBinding:aBinding,newBinding:newBinding},$globals.HLCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aBinding"],
- source: "registerConcreteClassesOn: aBinding\x0a\x09| newBinding |\x0a\x09\x0a\x09self isConcrete\x0a\x09\x09ifTrue: [ newBinding := self registerOn: aBinding ]\x0a\x09\x09ifFalse: [ newBinding := aBinding ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each | each registerConcreteClassesOn: newBinding ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["ifTrue:ifFalse:", "isConcrete", "registerOn:", "do:", "subclasses", "registerConcreteClassesOn:"]
- }),
- $globals.HLCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "registerOn:",
- protocol: 'registration',
- fn: function (aBinding){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._new())._registerOn_(aBinding);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"registerOn:",{aBinding:aBinding},$globals.HLCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aBinding"],
- source: "registerOn: aBinding\x0a\x09^ self new registerOn: aBinding",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["registerOn:", "new"]
- }),
- $globals.HLCommand.klass);
- $core.addClass('HLCloseTabCommand', $globals.HLCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLManager(){return $globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- $recv($recv($HLManager())._current())._removeActiveTab();
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLCloseTabCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09HLManager current removeActiveTab",
- referencedClasses: ["HLManager"],
- //>>excludeEnd("ide");
- messageSends: ["removeActiveTab", "current"]
- }),
- $globals.HLCloseTabCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "w";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'w'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCloseTabCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Close tab";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Close tab'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLCloseTabCommand.klass);
- $core.addClass('HLModelCommand', $globals.HLCommand, ['model'], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "model",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return self["@model"];
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "model\x0a\x09^ model",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLModelCommand);
- $core.addMethod(
- $core.method({
- selector: "model:",
- protocol: 'accessing',
- fn: function (aModel){
- var self=this;
- self["@model"]=aModel;
- return self;
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aModel"],
- source: "model: aModel\x0a\x09model := aModel",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLModelCommand);
- $core.addMethod(
- $core.method({
- selector: "for:",
- protocol: 'instance creation',
- fn: function (aModel){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return self._new();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"for:",{aModel:aModel},$globals.HLModelCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aModel"],
- source: "for: aModel\x0a\x09^ self new",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["new"]
- }),
- $globals.HLModelCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "registerConcreteClassesOn:for:",
- protocol: 'registration',
- fn: function (aBinding,aModel){
- var self=this;
- var newBinding;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- $1=$recv(self._isConcrete())._and_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return self._isValidFor_(aModel);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- if($core.assert($1)){
- newBinding=self._registerOn_for_(aBinding,aModel);
- newBinding;
- } else {
- newBinding=aBinding;
- newBinding;
- };
- $recv(self._subclasses())._do_((function(each){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(each)._registerConcreteClassesOn_for_(newBinding,aModel);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,4)});
- //>>excludeEnd("ctx");
- }));
- return self;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"registerConcreteClassesOn:for:",{aBinding:aBinding,aModel:aModel,newBinding:newBinding},$globals.HLModelCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aBinding", "aModel"],
- source: "registerConcreteClassesOn: aBinding for: aModel\x0a\x09| newBinding |\x0a\x09\x0a\x09(self isConcrete and: [ self isValidFor: aModel ])\x0a\x09\x09ifTrue: [ newBinding := self registerOn: aBinding for: aModel ]\x0a\x09\x09ifFalse: [ newBinding := aBinding ].\x0a\x09\x09\x0a\x09self subclasses do: [ :each |\x0a\x09\x09each registerConcreteClassesOn: newBinding for: aModel ]",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["ifTrue:ifFalse:", "and:", "isConcrete", "isValidFor:", "registerOn:for:", "do:", "subclasses", "registerConcreteClassesOn:for:"]
- }),
- $globals.HLModelCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "registerOn:for:",
- protocol: 'registration',
- fn: function (aBinding,aModel){
- var self=this;
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv(self._for_(aModel))._registerOn_(aBinding);
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"registerOn:for:",{aBinding:aBinding,aModel:aModel},$globals.HLModelCommand.klass)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: ["aBinding", "aModel"],
- source: "registerOn: aBinding for: aModel\x0a\x09^ (self for: aModel) registerOn: aBinding",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: ["registerOn:", "for:"]
- }),
- $globals.HLModelCommand.klass);
- $core.addClass('HLOpenCommand', $globals.HLCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "o";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'o'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Open";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Open'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenCommand.klass);
- $core.addClass('HLOpenBrowserCommand', $globals.HLOpenCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLBrowser(){return $globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($HLBrowser())._openAsTab();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLOpenBrowserCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09^ HLBrowser openAsTab",
- referencedClasses: ["HLBrowser"],
- //>>excludeEnd("ide");
- messageSends: ["openAsTab"]
- }),
- $globals.HLOpenBrowserCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "b";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'b'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenBrowserCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Browser";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Browser'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenBrowserCommand.klass);
- $core.addClass('HLOpenSUnitCommand', $globals.HLOpenCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLSUnit(){return $globals.HLSUnit||(typeof HLSUnit=="undefined"?nil:HLSUnit)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($HLSUnit())._openAsTab();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLOpenSUnitCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09^ HLSUnit openAsTab",
- referencedClasses: ["HLSUnit"],
- //>>excludeEnd("ide");
- messageSends: ["openAsTab"]
- }),
- $globals.HLOpenSUnitCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "s";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 's'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenSUnitCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "SUnit";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'SUnit'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenSUnitCommand.klass);
- $core.addClass('HLOpenWorkspaceCommand', $globals.HLOpenCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- function $HLWorkspace(){return $globals.HLWorkspace||(typeof HLWorkspace=="undefined"?nil:HLWorkspace)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($HLWorkspace())._openAsTab();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{},$globals.HLOpenWorkspaceCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09^ HLWorkspace openAsTab",
- referencedClasses: ["HLWorkspace"],
- //>>excludeEnd("ide");
- messageSends: ["openAsTab"]
- }),
- $globals.HLOpenWorkspaceCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "w";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 'w'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenWorkspaceCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Workspace";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Workspace'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLOpenWorkspaceCommand.klass);
- $core.addClass('HLSwitchTabCommand', $globals.HLCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "execute",
- protocol: 'executing',
- fn: function (){
- var self=this;
- var activeTab;
- function $HLTabSelectionWidget(){return $globals.HLTabSelectionWidget||(typeof HLTabSelectionWidget=="undefined"?nil:HLTabSelectionWidget)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- var $1;
- activeTab=self._selectedTab();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx1.sendIdx["selectedTab"]=1;
- //>>excludeEnd("ctx");
- $1=$recv($HLTabSelectionWidget())._new();
- $recv($1)._tabs_(self._tabs());
- $recv($1)._selectedTab_(self._selectedTab());
- $recv($1)._selectCallback_((function(tab){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(tab)._activate();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- $ctx2.sendIdx["activate"]=1;
- //>>excludeEnd("ctx");
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({tab:tab},$ctx1,1)});
- //>>excludeEnd("ctx");
- }));
- $recv($1)._confirmCallback_((function(tab){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(tab)._focus();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({tab:tab},$ctx1,2)});
- //>>excludeEnd("ctx");
- }));
- $recv($1)._cancelCallback_((function(){
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx2) {
- //>>excludeEnd("ctx");
- return $recv(activeTab)._activate();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
- //>>excludeEnd("ctx");
- }));
- return $recv($1)._show();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"execute",{activeTab:activeTab},$globals.HLSwitchTabCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "execute\x0a\x09| activeTab |\x0a\x09\x0a\x09activeTab := self selectedTab.\x0a\x09\x0a\x09^ HLTabSelectionWidget new\x0a\x09\x09tabs: self tabs;\x0a\x09\x09selectedTab: self selectedTab;\x0a\x09\x09selectCallback: [ :tab | tab activate ];\x0a\x09\x09confirmCallback: [ :tab | tab focus ];\x0a\x09\x09cancelCallback: [ activeTab activate ];\x0a\x09\x09show",
- referencedClasses: ["HLTabSelectionWidget"],
- //>>excludeEnd("ide");
- messageSends: ["selectedTab", "tabs:", "new", "tabs", "selectedTab:", "selectCallback:", "activate", "confirmCallback:", "focus", "cancelCallback:", "show"]
- }),
- $globals.HLSwitchTabCommand);
- $core.addMethod(
- $core.method({
- selector: "selectedTab",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLManager(){return $globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($HLManager())._current())._activeTab();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"selectedTab",{},$globals.HLSwitchTabCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "selectedTab\x0a\x09^ HLManager current activeTab",
- referencedClasses: ["HLManager"],
- //>>excludeEnd("ide");
- messageSends: ["activeTab", "current"]
- }),
- $globals.HLSwitchTabCommand);
- $core.addMethod(
- $core.method({
- selector: "tabs",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- function $HLManager(){return $globals.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- return $core.withContext(function($ctx1) {
- //>>excludeEnd("ctx");
- return $recv($recv($HLManager())._current())._tabs();
- //>>excludeStart("ctx", pragmas.excludeDebugContexts);
- }, function($ctx1) {$ctx1.fill(self,"tabs",{},$globals.HLSwitchTabCommand)});
- //>>excludeEnd("ctx");
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "tabs\x0a\x09^ HLManager current tabs",
- referencedClasses: ["HLManager"],
- //>>excludeEnd("ide");
- messageSends: ["tabs", "current"]
- }),
- $globals.HLSwitchTabCommand);
- $core.addMethod(
- $core.method({
- selector: "key",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "s";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "key\x0a\x09^ 's'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLSwitchTabCommand.klass);
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "Switch tab";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'Switch tab'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLSwitchTabCommand.klass);
- $core.addClass('HLViewCommand', $globals.HLCommand, [], 'Helios-Commands-Core');
- $core.addMethod(
- $core.method({
- selector: "label",
- protocol: 'accessing',
- fn: function (){
- var self=this;
- return "View";
- },
- //>>excludeStart("ide", pragmas.excludeIdeData);
- args: [],
- source: "label\x0a\x09^ 'View'",
- referencedClasses: [],
- //>>excludeEnd("ide");
- messageSends: []
- }),
- $globals.HLViewCommand.klass);
- });
|