amber/js/Helios-Inspector.deploy.js

smalltalk.addPackage('Helios-Inspector', {});
smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variables', 'display', 'code', 'label'], 'Helios-Inspector');
smalltalk.addMethod(
"_code",
smalltalk.method({
selector: "code",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@code"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeCode",[]);
} else {
$1=self["@code"];
};
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_display",
smalltalk.method({
selector: "display",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@display"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeDisplay",[]);
} else {
$1=self["@display"];
};
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_ensureModel",
smalltalk.method({
selector: "ensureModel",
fn: function (){
var self=this;
if(($receiver = self["@model"]) == nil || $receiver == undefined){
smalltalk.send(self,"_model_",[smalltalk.send(self,"_model",[])]);
smalltalk.send(self,"_observeVariables",[]);
} else {
self["@model"];
};
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_initializeCode",
smalltalk.method({
selector: "initializeCode",
fn: function (){
var self=this;
var $1;
self["@code"]=smalltalk.send(self,"_makeCode",[]);
$1=self["@code"];
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_initializeDisplay",
smalltalk.method({
selector: "initializeDisplay",
fn: function (){
var self=this;
var $1;
self["@display"]=smalltalk.send(self,"_makeDisplay",[]);
$1=self["@display"];
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_initializeLabel",
smalltalk.method({
selector: "initializeLabel",
fn: function (){
var self=this;
var $1;
self["@label"]=smalltalk.send(smalltalk.send(self["@model"],"_inspectee",[]),"_printString",[]);
$1=self["@label"];
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_initializeModel",
smalltalk.method({
selector: "initializeModel",
fn: function (){
var self=this;
var $1;
self["@model"]=smalltalk.send((smalltalk.HLInspectorModel || HLInspectorModel),"_new",[]);
$1=self["@model"];
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_initializeVariables",
smalltalk.method({
selector: "initializeVariables",
fn: function (){
var self=this;
var $1;
self["@variables"]=smalltalk.send(self,"_makeVariables",[]);
$1=self["@variables"];
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_inspect_",
smalltalk.method({
selector: "inspect:",
fn: function (anObject){
var self=this;
smalltalk.send(smalltalk.send(self,"_model",[]),"_inspect_on_",[anObject,self]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_inspectee",
smalltalk.method({
selector: "inspectee",
fn: function (){
var self=this;
var $1;
$1=smalltalk.send(smalltalk.send(self,"_model",[]),"_inspectee",[]);
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_inspectee_",
smalltalk.method({
selector: "inspectee:",
fn: function (anObject){
var self=this;
smalltalk.send(smalltalk.send(self,"_model",[]),"_inspectee_",[anObject]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_label",
smalltalk.method({
selector: "label",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@label"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeLabel",[]);
} else {
$1=self["@label"];
};
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_makeCode",
smalltalk.method({
selector: "makeCode",
fn: function (){
var self=this;
var $2,$3,$1;
$2=smalltalk.send((smalltalk.HLCodeWidget || HLCodeWidget),"_new",[]);
smalltalk.send($2,"_model_",[smalltalk.send(self["@model"],"_code",[])]);
smalltalk.send($2,"_doItReaction_",[(function(){
return smalltalk.send(self,"_refresh",[]);
})]);
$3=smalltalk.send($2,"_yourself",[]);
$1=$3;
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_makeDisplay",
smalltalk.method({
selector: "makeDisplay",
fn: function (){
var self=this;
var $2,$3,$1;
$2=smalltalk.send((smalltalk.HLInspectorDisplay || HLInspectorDisplay),"_new",[]);
smalltalk.send($2,"_model_",[smalltalk.send(self,"_model",[])]);
$3=smalltalk.send($2,"_yourself",[]);
$1=$3;
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_makeVariables",
smalltalk.method({
selector: "makeVariables",
fn: function (){
var self=this;
var $2,$3,$1;
$2=smalltalk.send((smalltalk.HLInspectorVariables || HLInspectorVariables),"_new",[]);
smalltalk.send($2,"_model_",[smalltalk.send(self,"_model",[])]);
$3=smalltalk.send($2,"_yourself",[]);
$1=$3;
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_model",
smalltalk.method({
selector: "model",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@model"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeModel",[]);
} else {
$1=self["@model"];
};
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_model_",
smalltalk.method({
selector: "model:",
fn: function (aModel){
var self=this;
self["@model"]=aModel;
smalltalk.send(smalltalk.send(self,"_code",[]),"_model_",[smalltalk.send(aModel,"_code",[])]);
smalltalk.send(self,"_observeCode",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_observeCode",
smalltalk.method({
selector: "observeCode",
fn: function (){
var self=this;
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_observeVariables",
smalltalk.method({
selector: "observeVariables",
fn: function (){
var self=this;
var $1,$2;
$1=smalltalk.send(smalltalk.send(self,"_variables",[]),"_announcer",[]);
smalltalk.send($1,"_on_do_",[(smalltalk.HLRefreshRequested || HLRefreshRequested),(function(ann){
return smalltalk.send(self,"_onRefresh",[]);
})]);
smalltalk.send($1,"_on_do_",[(smalltalk.HLInstanceVariableSelected || HLInstanceVariableSelected),(function(ann){
return smalltalk.send(self,"_onInstanceVariableSelected",[]);
})]);
$2=smalltalk.send($1,"_yourself",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_onDoIt",
smalltalk.method({
selector: "onDoIt",
fn: function (){
var self=this;
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_onInspectIt",
smalltalk.method({
selector: "onInspectIt",
fn: function (){
var self=this;
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_onInstanceVariableSelected",
smalltalk.method({
selector: "onInstanceVariableSelected",
fn: function (){
var self=this;
smalltalk.send(self,"_halt",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_onPrintIt",
smalltalk.method({
selector: "onPrintIt",
fn: function (){
var self=this;
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_onRefresh",
smalltalk.method({
selector: "onRefresh",
fn: function (){
var self=this;
smalltalk.send(self,"_refresh",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_open",
smalltalk.method({
selector: "open",
fn: function (){
var self=this;
smalltalk.send(smalltalk.send((smalltalk.HLManager || HLManager),"_current",[]),"_addTab_",[smalltalk.send((smalltalk.HLTab || HLTab),"_on_labelled_",[self,smalltalk.send(self,"_tabLabel",[])])]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_refresh",
smalltalk.method({
selector: "refresh",
fn: function (){
var self=this;
var $1;
smalltalk.send(self,"_inspect_",[smalltalk.send(self,"_inspectee",[])]);
smalltalk.send(self,"_refreshVariables",[]);
$1=smalltalk.send(self,"_refreshDisplay",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_refreshDisplay",
smalltalk.method({
selector: "refreshDisplay",
fn: function (){
var self=this;
smalltalk.send(smalltalk.send(self,"_display",[]),"_refresh",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_refreshVariables",
smalltalk.method({
selector: "refreshVariables",
fn: function (){
var self=this;
smalltalk.send(smalltalk.send(self,"_variables",[]),"_refresh",[]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_renderContentOn_",
smalltalk.method({
selector: "renderContentOn:",
fn: function (html){
var self=this;
smalltalk.send(self,"_ensureModel",[]);
smalltalk.send(html,"_with_",[smalltalk.send((smalltalk.HLContainer || HLContainer),"_with_",[smalltalk.send((smalltalk.HLHorizontalSplitter || HLHorizontalSplitter),"_with_with_",[smalltalk.send((smalltalk.HLVerticalSplitter || HLVerticalSplitter),"_with_with_",[smalltalk.send(self,"_variables",[]),smalltalk.send(self,"_display",[])]),smalltalk.send(self,"_code",[])])])]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_setLabel_",
smalltalk.method({
selector: "setLabel:",
fn: function (aString){
var self=this;
self["@label"]=aString;
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_setVariables_",
smalltalk.method({
selector: "setVariables:",
fn: function (aDictionary){
var self=this;
smalltalk.send(smalltalk.send(self,"_model",[]),"_variables_",[aDictionary]);
return self}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_tabLabel",
smalltalk.method({
selector: "tabLabel",
fn: function (){
var self=this;
var $1;
$1=smalltalk.send(self,"_label",[]);
return $1;
}
}),
smalltalk.HLInspector);

smalltalk.addMethod(
"_variables",
smalltalk.method({
selector: "variables",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@variables"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeVariables",[]);
} else {
$1=self["@variables"];
};
return $1;
}
}),
smalltalk.HLInspector);


smalltalk.addMethod(
"_canBeOpenAsTab",
smalltalk.method({
selector: "canBeOpenAsTab",
fn: function (){
var self=this;
return false;
}
}),
smalltalk.HLInspector.klass);

smalltalk.addMethod(
"_tabLabel",
smalltalk.method({
selector: "tabLabel",
fn: function (){
var self=this;
return "Inspector";
}
}),
smalltalk.HLInspector.klass);

smalltalk.addMethod(
"_tabPriority",
smalltalk.method({
selector: "tabPriority",
fn: function (){
var self=this;
return (10);
}
}),
smalltalk.HLInspector.klass);


smalltalk.addClass('HLInspectorDisplay', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
smalltalk.addMethod(
"_model",
smalltalk.method({
selector: "model",
fn: function (){
var self=this;
return self["@model"];
}
}),
smalltalk.HLInspectorDisplay);

smalltalk.addMethod(
"_model_",
smalltalk.method({
selector: "model:",
fn: function (aModel){
var self=this;
self["@model"]=aModel;
return self}
}),
smalltalk.HLInspectorDisplay);

smalltalk.addMethod(
"_renderContentOn_",
smalltalk.method({
selector: "renderContentOn:",
fn: function (html){
var self=this;
smalltalk.send(smalltalk.send(html,"_div",[]),"_with_",[smalltalk.send(smalltalk.send(self["@model"],"_selection",[]),"_printString",[])]);
return self}
}),
smalltalk.HLInspectorDisplay);



smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
smalltalk.addMethod(
"_announcer",
smalltalk.method({
selector: "announcer",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@announcer"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeAnnouncer",[]);
} else {
$1=self["@announcer"];
};
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_beLocal",
smalltalk.method({
selector: "beLocal",
fn: function (){
var self=this;
smalltalk.send(self,"_initializeEnvironment",[]);
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_beRemoteOn_port_",
smalltalk.method({
selector: "beRemoteOn:port:",
fn: function (anIPAddress,aPort){
var self=this;
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_code",
smalltalk.method({
selector: "code",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@code"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeCode",[]);
} else {
$1=self["@code"];
};
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_environment",
smalltalk.method({
selector: "environment",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@environment"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeEnvironment",[]);
} else {
$1=self["@environment"];
};
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_environment_",
smalltalk.method({
selector: "environment:",
fn: function (anEnvironment){
var self=this;
self["@environment"]=anEnvironment;
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_initializeAnnouncer",
smalltalk.method({
selector: "initializeAnnouncer",
fn: function (){
var self=this;
var $1;
self["@announcer"]=smalltalk.send((smalltalk.Announcer || Announcer),"_new",[]);
$1=self["@announcer"];
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_initializeCode",
smalltalk.method({
selector: "initializeCode",
fn: function (){
var self=this;
var $1;
self["@code"]=smalltalk.send((smalltalk.HLCodeModel || HLCodeModel),"_on_",[smalltalk.send(self,"_environment",[])]);
$1=self["@code"];
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_initializeEnvironment",
smalltalk.method({
selector: "initializeEnvironment",
fn: function (){
var self=this;
var $1;
self["@environment"]=smalltalk.send((smalltalk.HLLocalEnvironment || HLLocalEnvironment),"_new",[]);
$1=self["@environment"];
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_initializeSelection",
smalltalk.method({
selector: "initializeSelection",
fn: function (){
var self=this;
var $1;
self["@selection"]=smalltalk.send(self,"_inspectee",[]);
$1=self["@selection"];
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_inspect_on_",
smalltalk.method({
selector: "inspect:on:",
fn: function (anObject,anInspector){
var self=this;
self["@inspectee"]=anObject;
self["@variables"]=[];
smalltalk.send(self["@inspectee"],"_inspectOn_",[anInspector]);
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_inspectee",
smalltalk.method({
selector: "inspectee",
fn: function (){
var self=this;
return self["@inspectee"];
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_inspectee_",
smalltalk.method({
selector: "inspectee:",
fn: function (anObject){
var self=this;
self["@inspectee"]=anObject;
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_onKeyDown_",
smalltalk.method({
selector: "onKeyDown:",
fn: function (anEvent){
var self=this;
if(anEvent.ctrlKey) {
		if(anEvent.keyCode === 80) { //ctrl+p
			self._printIt();
			anEvent.preventDefault();
			return false;
		}
		if(anEvent.keyCode === 68) { //ctrl+d
			self._doIt();
			anEvent.preventDefault();
			return false;
		}
		if(anEvent.keyCode === 73) { //ctrl+i
			self._inspectIt();
			anEvent.preventDefault();
			return false;
		}
	};
;
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_selection",
smalltalk.method({
selector: "selection",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@selection"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeSelection",[]);
} else {
$1=self["@selection"];
};
return $1;
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_selection_",
smalltalk.method({
selector: "selection:",
fn: function (anObject){
var self=this;
self["@selection"]=anObject;
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_subscribe_",
smalltalk.method({
selector: "subscribe:",
fn: function (aWidget){
var self=this;
smalltalk.send(aWidget,"_subscribeTo_",[smalltalk.send(self,"_announcer",[])]);
return self}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_variables",
smalltalk.method({
selector: "variables",
fn: function (){
var self=this;
return self["@variables"];
}
}),
smalltalk.HLInspectorModel);

smalltalk.addMethod(
"_variables_",
smalltalk.method({
selector: "variables:",
fn: function (aCollection){
var self=this;
self["@variables"]=aCollection;
return self}
}),
smalltalk.HLInspectorModel);


smalltalk.addMethod(
"_on_",
smalltalk.method({
selector: "on:",
fn: function (anEnvironment){
var self=this;
var $2,$3,$1;
$2=smalltalk.send(self,"_new",[]);
smalltalk.send($2,"_environment_",[anEnvironment]);
$3=smalltalk.send($2,"_yourself",[]);
$1=$3;
return $1;
}
}),
smalltalk.HLInspectorModel.klass);


smalltalk.addClass('HLInspectorVariables', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
smalltalk.addMethod(
"_announcer",
smalltalk.method({
selector: "announcer",
fn: function (){
var self=this;
var $1;
if(($receiver = self["@announcer"]) == nil || $receiver == undefined){
$1=smalltalk.send(self,"_initializeAnnouncer",[]);
} else {
$1=self["@announcer"];
};
return $1;
}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_initializeAnnouncer",
smalltalk.method({
selector: "initializeAnnouncer",
fn: function (){
var self=this;
var $1;
self["@announcer"]=smalltalk.send((smalltalk.Announcer || Announcer),"_new",[]);
$1=self["@announcer"];
return $1;
}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_initializeItems",
smalltalk.method({
selector: "initializeItems",
fn: function (){
var self=this;
var $1;
self["@items"]=smalltalk.send(smalltalk.send(smalltalk.send(self,"_model",[]),"_variables",[]),"_keys",[]);
$1=self["@items"];
return $1;
}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_model",
smalltalk.method({
selector: "model",
fn: function (){
var self=this;
return self["@model"];
}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_model_",
smalltalk.method({
selector: "model:",
fn: function (aModel){
var self=this;
self["@model"]=aModel;
return self}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_refresh",
smalltalk.method({
selector: "refresh",
fn: function (){
var self=this;
smalltalk.send(self,"_resetItems",[]);
smalltalk.send(self,"_refresh",[],smalltalk.HLNavigationListWidget);
return self}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_renderButtonsOn_",
smalltalk.method({
selector: "renderButtonsOn:",
fn: function (html){
var self=this;
var $1,$2,$3,$4;
$1=smalltalk.send(html,"_button",[]);
smalltalk.send($1,"_class_",["btn"]);
smalltalk.send($1,"_with_",["Refresh"]);
$2=smalltalk.send($1,"_onClick_",[(function(){
return smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLRefreshRequested || HLRefreshRequested),"_new",[])]);
})]);
$3=smalltalk.send(html,"_button",[]);
smalltalk.send($3,"_class_",["btn"]);
smalltalk.send($3,"_with_",["Dive"]);
$4=smalltalk.send($3,"_onClick_",[(function(){
return smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLDiveRequested || HLDiveRequested),"_new",[])]);
})]);
self["@diveButton"]=$4;
return self}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_resetItems",
smalltalk.method({
selector: "resetItems",
fn: function (){
var self=this;
self["@items"]=nil;
return self}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_selection",
smalltalk.method({
selector: "selection",
fn: function (){
var self=this;
var $1;
$1=smalltalk.send(self["@model"],"_selection",[]);
return $1;
}
}),
smalltalk.HLInspectorVariables);

smalltalk.addMethod(
"_variables",
smalltalk.method({
selector: "variables",
fn: function (){
var self=this;
var $1;
$1=smalltalk.send(self["@model"],"_variables",[]);
return $1;
}
}),
smalltalk.HLInspectorVariables);