define("amber_core/Helios-Commands-Browser", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Helios-Commands-Tools"], function(smalltalk,nil,_st){ smalltalk.addPackage('Helios-Commands-Browser'); smalltalk.packages["Helios-Commands-Browser"].transport = {"type":"amd","amdNamespace":"amber_core"}; smalltalk.addClass('HLBrowserCommand', smalltalk.HLToolCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "isValidFor:", category: 'testing', fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(aModel)._isBrowserModel(); return $1; }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserCommand.klass)})}, args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel", messageSends: ["isBrowserModel"], referencedClasses: [] }), smalltalk.HLBrowserCommand.klass); smalltalk.addClass('HLBrowserGoToCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "isValidFor:", category: 'testing', fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(aModel)._isBrowserModel(); return $1; }, function($ctx1) {$ctx1.fill(self,"isValidFor:",{aModel:aModel},smalltalk.HLBrowserGoToCommand.klass)})}, args: ["aModel"], source: "isValidFor: aModel\x0a\x09^ aModel isBrowserModel", messageSends: ["isBrowserModel"], referencedClasses: [] }), smalltalk.HLBrowserGoToCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "g"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLBrowserGoToCommand.klass)})}, args: [], source: "key\x0a\x09^ 'g'", messageSends: [], referencedClasses: [] }), smalltalk.HLBrowserGoToCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Go to"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLBrowserGoToCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Go to'", messageSends: [], referencedClasses: [] }), smalltalk.HLBrowserGoToCommand.klass); smalltalk.addClass('HLGoToClassesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._focusOnClasses(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToClassesCommand)})}, args: [], source: "execute\x0a\x09self model focusOnClasses", messageSends: ["focusOnClasses", "model"], referencedClasses: [] }), smalltalk.HLGoToClassesCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToClassesCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToClassesCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Classes"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToClassesCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Classes'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToClassesCommand.klass); smalltalk.addClass('HLGoToMethodsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._focusOnMethods(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToMethodsCommand)})}, args: [], source: "execute\x0a\x09self model focusOnMethods", messageSends: ["focusOnMethods", "model"], referencedClasses: [] }), smalltalk.HLGoToMethodsCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "m"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToMethodsCommand.klass)})}, args: [], source: "key\x0a\x09^ 'm'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToMethodsCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Methods"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToMethodsCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Methods'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToMethodsCommand.klass); smalltalk.addClass('HLGoToPackagesCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._focusOnPackages(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToPackagesCommand)})}, args: [], source: "execute\x0a\x09self model focusOnPackages", messageSends: ["focusOnPackages", "model"], referencedClasses: [] }), smalltalk.HLGoToPackagesCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "p"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToPackagesCommand.klass)})}, args: [], source: "key\x0a\x09^ 'p'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToPackagesCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Packages"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToPackagesCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Packages'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToPackagesCommand.klass); smalltalk.addClass('HLGoToProtocolsCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._focusOnProtocols(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToProtocolsCommand)})}, args: [], source: "execute\x0a\x09self model focusOnProtocols", messageSends: ["focusOnProtocols", "model"], referencedClasses: [] }), smalltalk.HLGoToProtocolsCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "t"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToProtocolsCommand.klass)})}, args: [], source: "key\x0a\x09^ 't'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToProtocolsCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Protocols"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToProtocolsCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Protocols'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToProtocolsCommand.klass); smalltalk.addClass('HLGoToSourceCodeCommand', smalltalk.HLBrowserGoToCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._focusOnSourceCode(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLGoToSourceCodeCommand)})}, args: [], source: "execute\x0a\x09self model focusOnSourceCode", messageSends: ["focusOnSourceCode", "model"], referencedClasses: [] }), smalltalk.HLGoToSourceCodeCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "s"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLGoToSourceCodeCommand.klass)})}, args: [], source: "key\x0a\x09^ 's'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToSourceCodeCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Source code"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLGoToSourceCodeCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Source code'", messageSends: [], referencedClasses: [] }), smalltalk.HLGoToSourceCodeCommand.klass); smalltalk.addClass('HLEditCommentCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._editComment(); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLEditCommentCommand)})}, args: [], source: "execute\x0a\x09self model editComment", messageSends: ["editComment", "model"], referencedClasses: [] }), smalltalk.HLEditCommentCommand); smalltalk.addMethod( smalltalk.method({ selector: "isActive", category: 'testing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $3,$2,$1; $3=self._model(); $ctx1.sendIdx["model"]=1; $2=_st($3)._showComment(); $1=_st($2)._and_((function(){ return smalltalk.withContext(function($ctx2) { return _st(_st(self._model())._selectedClass())._notNil(); }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"isActive",{},smalltalk.HLEditCommentCommand)})}, args: [], source: "isActive\x0a\x09^ self model showComment and: [ self model selectedClass notNil ]", messageSends: ["and:", "showComment", "model", "notNil", "selectedClass"], referencedClasses: [] }), smalltalk.HLEditCommentCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "d"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLEditCommentCommand.klass)})}, args: [], source: "key\x0a\x09^ 'd'", messageSends: [], referencedClasses: [] }), smalltalk.HLEditCommentCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Edit documentation"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLEditCommentCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Edit documentation'", messageSends: [], referencedClasses: [] }), smalltalk.HLEditCommentCommand.klass); smalltalk.addClass('HLToggleCommand', smalltalk.HLBrowserCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "t"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleCommand.klass)})}, args: [], source: "key\x0a\x09^ 't'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Toggle"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Toggle'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleCommand.klass); smalltalk.addClass('HLToggleClassCommentCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self._model(); $ctx1.sendIdx["model"]=1; _st($1)._showComment_(_st(_st(self._model())._showComment())._not()); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassCommentCommand)})}, args: [], source: "execute\x0a\x09self model showComment: self model showComment not", messageSends: ["showComment:", "model", "not", "showComment"], referencedClasses: [] }), smalltalk.HLToggleClassCommentCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "d"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassCommentCommand.klass)})}, args: [], source: "key\x0a\x09^ 'd'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleClassCommentCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Documentation"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassCommentCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Documentation'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleClassCommentCommand.klass); smalltalk.addClass('HLToggleClassSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._showInstance_(false); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleClassSideCommand)})}, args: [], source: "execute\x0a\x09self model showInstance: false", messageSends: ["showInstance:", "model"], referencedClasses: [] }), smalltalk.HLToggleClassSideCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "c"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleClassSideCommand.klass)})}, args: [], source: "key\x0a\x09^ 'c'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleClassSideCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class side"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleClassSideCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Class side'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleClassSideCommand.klass); smalltalk.addClass('HLToggleInstanceSideCommand', smalltalk.HLToggleCommand, [], 'Helios-Commands-Browser'); smalltalk.addMethod( smalltalk.method({ selector: "execute", category: 'executing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self._model())._showInstance_(true); return self}, function($ctx1) {$ctx1.fill(self,"execute",{},smalltalk.HLToggleInstanceSideCommand)})}, args: [], source: "execute\x0a\x09self model showInstance: true", messageSends: ["showInstance:", "model"], referencedClasses: [] }), smalltalk.HLToggleInstanceSideCommand); smalltalk.addMethod( smalltalk.method({ selector: "key", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "i"; }, function($ctx1) {$ctx1.fill(self,"key",{},smalltalk.HLToggleInstanceSideCommand.klass)})}, args: [], source: "key\x0a\x09^ 'i'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleInstanceSideCommand.klass); smalltalk.addMethod( smalltalk.method({ selector: "label", category: 'accessing', fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Instance side"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLToggleInstanceSideCommand.klass)})}, args: [], source: "label\x0a\x09^ 'Instance side'", messageSends: [], referencedClasses: [] }), smalltalk.HLToggleInstanceSideCommand.klass); });