|
|
@@ -1,5 +1,5 @@
|
|
|
smalltalk.addPackage('Helios-Workspace', {});
|
|
|
-smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment'], 'Helios-Workspace');
|
|
|
+smalltalk.addClass('HLCodeModel', smalltalk.Object, ['announcer', 'environment', 'receiver'], 'Helios-Workspace');
|
|
|
smalltalk.addMethod(
|
|
|
"_announcer",
|
|
|
smalltalk.method({
|
|
|
@@ -15,6 +15,791 @@ $1=self["@announcer"];
|
|
|
return $1;
|
|
|
}
|
|
|
}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_doIt_do_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "doIt:do:",
|
|
|
+fn: function (someCode,aReaction){
|
|
|
+var self=this;
|
|
|
+var result;
|
|
|
+result=smalltalk.send(smalltalk.send(self,"_environment",[]),"_eval_on_",[someCode,smalltalk.send(self,"_receiver",[])]);
|
|
|
+smalltalk.send(aReaction,"_value_",[result]);
|
|
|
+return result;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+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.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_environment_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "environment:",
|
|
|
+fn: function (anEnvironment){
|
|
|
+var self=this;
|
|
|
+self["@environment"]=anEnvironment;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+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.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_initializeEnvironment",
|
|
|
+smalltalk.method({
|
|
|
+selector: "initializeEnvironment",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+self["@environment"]=smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]);
|
|
|
+$1=self["@environment"];
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_initializeReceiver",
|
|
|
+smalltalk.method({
|
|
|
+selector: "initializeReceiver",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+self["@receiver"]=smalltalk.send((smalltalk.DoIt || DoIt),"_new",[]);
|
|
|
+$1=self["@receiver"];
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_receiver",
|
|
|
+smalltalk.method({
|
|
|
+selector: "receiver",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self["@receiver"];
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_receiver_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "receiver:",
|
|
|
+fn: function (anObject){
|
|
|
+var self=this;
|
|
|
+self["@receiver"]=anObject;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_subscribe_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "subscribe:",
|
|
|
+fn: function (aWidget){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(aWidget,"_subscribeTo_",[smalltalk.send(self,"_announcer",[])]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeModel);
|
|
|
+
|
|
|
+
|
|
|
+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.HLCodeModel.klass);
|
|
|
+
|
|
|
+
|
|
|
+smalltalk.addClass('HLCodeWidget', smalltalk.HLWidget, ['model', 'wrapper', 'code', 'editor', 'doItReaction'], 'Helios-Workspace');
|
|
|
+smalltalk.addMethod(
|
|
|
+"_announcer",
|
|
|
+smalltalk.method({
|
|
|
+selector: "announcer",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(smalltalk.send(self,"_model",[]),"_announcer",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_clear",
|
|
|
+smalltalk.method({
|
|
|
+selector: "clear",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(self,"_val_",[""]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_currentLine",
|
|
|
+smalltalk.method({
|
|
|
+selector: "currentLine",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(self["@editor"],"_getLine_",[smalltalk.send(smalltalk.send(self["@editor"],"_getCursor",[]),"_line",[])]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_currentLineOrSelection",
|
|
|
+smalltalk.method({
|
|
|
+selector: "currentLineOrSelection",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $2,$1;
|
|
|
+$2=smalltalk.send(self["@editor"],"_somethingSelected",[]);
|
|
|
+if(smalltalk.assert($2)){
|
|
|
+$1=smalltalk.send(self,"_selection",[]);
|
|
|
+} else {
|
|
|
+$1=smalltalk.send(self,"_currentLine",[]);
|
|
|
+};
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_doItReaction",
|
|
|
+smalltalk.method({
|
|
|
+selector: "doItReaction",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+if(($receiver = self["@doItReaction"]) == nil || $receiver == undefined){
|
|
|
+$1=smalltalk.send(self,"_initializeDoItReaction",[]);
|
|
|
+} else {
|
|
|
+$1=self["@doItReaction"];
|
|
|
+};
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_doItReaction_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "doItReaction:",
|
|
|
+fn: function (aBlock){
|
|
|
+var self=this;
|
|
|
+self["@doItReaction"]=aBlock;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_editor",
|
|
|
+smalltalk.method({
|
|
|
+selector: "editor",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self["@editor"];
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_focus",
|
|
|
+smalltalk.method({
|
|
|
+selector: "focus",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(smalltalk.send(self,"_editor",[]),"_focus",[]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_initializeDoItReaction",
|
|
|
+smalltalk.method({
|
|
|
+selector: "initializeDoItReaction",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+self["@doItReaction"]=(function(){
|
|
|
+});
|
|
|
+$1=self["@doItReaction"];
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_model",
|
|
|
+smalltalk.method({
|
|
|
+selector: "model",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self["@model"];
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_model_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "model:",
|
|
|
+fn: function (aModel){
|
|
|
+var self=this;
|
|
|
+self["@model"]=aModel;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_observeWrapper",
|
|
|
+smalltalk.method({
|
|
|
+selector: "observeWrapper",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(self["@wrapper"],"_onKeyDown_",[(function(e){
|
|
|
+return smalltalk.send(self,"_onKeyDown_",[e]);
|
|
|
+})]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onDoIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onDoIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var result;
|
|
|
+result=smalltalk.send(self["@model"],"_doIt_do_",[smalltalk.send(self,"_currentLineOrSelection",[]),smalltalk.send(self,"_doItReaction",[])]);
|
|
|
+smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLDoItRequested || HLDoItRequested),"_on_",[self["@model"]])]);
|
|
|
+return result;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onInspectIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onInspectIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onKeyDown_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onKeyDown:",
|
|
|
+fn: function (anEvent){
|
|
|
+var self=this;
|
|
|
+if(anEvent.ctrlKey) {
|
|
|
+ if(anEvent.keyCode === 80) {
|
|
|
+ self._onPrintIt();
|
|
|
+ anEvent.preventDefault();
|
|
|
+ return false;
|
|
|
+ }
|
|
|
+ if(anEvent.keyCode === 68) {
|
|
|
+ self._onDoIt();
|
|
|
+ anEvent.preventDefault();
|
|
|
+ return false;
|
|
|
+ }
|
|
|
+ if(anEvent.keyCode === 73) {
|
|
|
+ self._onInspectIt();
|
|
|
+ anEvent.preventDefault();
|
|
|
+ return false;
|
|
|
+ }
|
|
|
+ };
|
|
|
+;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onPrintIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onPrintIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var result;
|
|
|
+result=smalltalk.send(self["@model"],"_doIt_do_",[smalltalk.send(self,"_currentLineOrSelection",[]),smalltalk.send(self,"_doItReaction",[])]);
|
|
|
+smalltalk.send(smalltalk.send(self,"_announcer",[]),"_announce_",[smalltalk.send((smalltalk.HLPrintItRequested || HLPrintItRequested),"_on_",[self["@model"]])]);
|
|
|
+smalltalk.send(self,"_print_",[smalltalk.send(result,"_printString",[])]);
|
|
|
+smalltalk.send(self,"_focus",[]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_print_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "print:",
|
|
|
+fn: function (aString){
|
|
|
+var self=this;
|
|
|
+var start;
|
|
|
+var stop;
|
|
|
+start=smalltalk.send((smalltalk.HashedCollection || HashedCollection),"_new",[]);
|
|
|
+stop=smalltalk.send((smalltalk.HashedCollection || HashedCollection),"_new",[]);
|
|
|
+smalltalk.send(start,"_at_put_",["line",smalltalk.send(smalltalk.send(self["@editor"],"_getCursor_",[false]),"_line",[])]);
|
|
|
+smalltalk.send(start,"_at_put_",["ch",smalltalk.send(smalltalk.send(self["@editor"],"_getCursor_",[false]),"_ch",[])]);
|
|
|
+smalltalk.send(stop,"_at_put_",["line",smalltalk.send(start,"_at_",["line"])]);
|
|
|
+smalltalk.send(stop,"_at_put_",["ch",smalltalk.send(smalltalk.send(smalltalk.send(start,"_at_",["ch"]),"__plus",[smalltalk.send(aString,"_size",[])]),"__plus",[(2)])]);
|
|
|
+smalltalk.send(self["@editor"],"_replaceSelection_",[smalltalk.send(smalltalk.send(smalltalk.send(smalltalk.send(self["@editor"],"_getSelection",[]),"__comma",[" "]),"__comma",[aString]),"__comma",[" "])]);
|
|
|
+smalltalk.send(self["@editor"],"_setCursor_",[smalltalk.send(self["@editor"],"_getCursor_",[true])]);
|
|
|
+smalltalk.send(self["@editor"],"_setSelection_end_",[stop,start]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_receiver",
|
|
|
+smalltalk.method({
|
|
|
+selector: "receiver",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(smalltalk.send(self,"_model",[]),"_receiver",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_receiver_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "receiver:",
|
|
|
+fn: function (anObject){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(smalltalk.send(self,"_model",[]),"_receiver_",[anObject]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_renderOn_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "renderOn:",
|
|
|
+fn: function (html){
|
|
|
+var self=this;
|
|
|
+self["@wrapper"]=smalltalk.send(smalltalk.send(html,"_div",[]),"_class_",["code"]);
|
|
|
+smalltalk.send(smalltalk.send(smalltalk.send(self,"_observeWrapper",[]),"_wrapper",[]),"_with_",[(function(){
|
|
|
+self["@code"]=smalltalk.send(html,"_textarea",[]);
|
|
|
+return self["@code"];
|
|
|
+})]);
|
|
|
+smalltalk.send(self,"_setEditorOn_",[smalltalk.send(self["@code"],"_element",[])]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_selection",
|
|
|
+smalltalk.method({
|
|
|
+selector: "selection",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(self["@editor"],"_getSelection",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_selectionEnd",
|
|
|
+smalltalk.method({
|
|
|
+selector: "selectionEnd",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(smalltalk.send(self["@code"],"_element",[]),"_selectionEnd",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_selectionEnd_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "selectionEnd:",
|
|
|
+fn: function (anInteger){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(smalltalk.send(self["@code"],"_element",[]),"_selectionEnd_",[anInteger]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_selectionStart",
|
|
|
+smalltalk.method({
|
|
|
+selector: "selectionStart",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(smalltalk.send(self["@code"],"_element",[]),"_selectionStart",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_selectionStart_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "selectionStart:",
|
|
|
+fn: function (anInteger){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(smalltalk.send(self["@code"],"_element",[]),"_selectionStart_",[anInteger]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_setEditorOn_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "setEditorOn:",
|
|
|
+fn: function (aTextarea){
|
|
|
+var self=this;
|
|
|
+self['@editor'] = CodeMirror.fromTextArea(aTextarea, {
|
|
|
+ theme: 'amber',
|
|
|
+ lineNumbers: true,
|
|
|
+ enterMode: 'flat',
|
|
|
+ matchBrackets: true,
|
|
|
+ electricChars: false
|
|
|
+ });
|
|
|
+;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_val",
|
|
|
+smalltalk.method({
|
|
|
+selector: "val",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(self["@code"],"_getValue",[]);
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_val_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "val:",
|
|
|
+fn: function (aString){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(self["@code"],"_setValue_",[aString]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_wrapper",
|
|
|
+smalltalk.method({
|
|
|
+selector: "wrapper",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self["@wrapper"];
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLCodeWidget);
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+smalltalk.addClass('HLWorkspace', smalltalk.HLWidget, ['model', 'code'], 'Helios-Workspace');
|
|
|
+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.HLWorkspace);
|
|
|
+
|
|
|
+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",[])]);
|
|
|
+} else {
|
|
|
+self["@model"];
|
|
|
+};
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+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.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_initializeModel",
|
|
|
+smalltalk.method({
|
|
|
+selector: "initializeModel",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+self["@model"]=smalltalk.send((smalltalk.HLWorkspaceModel || HLWorkspaceModel),"_new",[]);
|
|
|
+$1=self["@model"];
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+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",[])]);
|
|
|
+$3=smalltalk.send($2,"_yourself",[]);
|
|
|
+$1=$3;
|
|
|
+return $1;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+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.HLWorkspace);
|
|
|
+
|
|
|
+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.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_observeCode",
|
|
|
+smalltalk.method({
|
|
|
+selector: "observeCode",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onDoIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onDoIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onInspectIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onInspectIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_onPrintIt",
|
|
|
+smalltalk.method({
|
|
|
+selector: "onPrintIt",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_renderContentOn_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "renderContentOn:",
|
|
|
+fn: function (html){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(self,"_ensureModel",[]);
|
|
|
+smalltalk.send(html,"_with_",[smalltalk.send(self,"_code",[])]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace);
|
|
|
+
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_canBeOpenAsTab",
|
|
|
+smalltalk.method({
|
|
|
+selector: "canBeOpenAsTab",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return true;
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace.klass);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_tabLabel",
|
|
|
+smalltalk.method({
|
|
|
+selector: "tabLabel",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return "Workspace";
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace.klass);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_tabPriority",
|
|
|
+smalltalk.method({
|
|
|
+selector: "tabPriority",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return (10);
|
|
|
+}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspace.klass);
|
|
|
+
|
|
|
+
|
|
|
+smalltalk.addClass('HLWorkspaceModel', smalltalk.Object, ['announcer', 'environment', 'code'], 'Helios-Workspace');
|
|
|
+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.HLWorkspaceModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_beLocal",
|
|
|
+smalltalk.method({
|
|
|
+selector: "beLocal",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+smalltalk.send(self,"_initializeEnvironment",[]);
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspaceModel);
|
|
|
+
|
|
|
+smalltalk.addMethod(
|
|
|
+"_beRemoteOn_port_",
|
|
|
+smalltalk.method({
|
|
|
+selector: "beRemoteOn:port:",
|
|
|
+fn: function (anIPAddress,aPort){
|
|
|
+var self=this;
|
|
|
+return self}
|
|
|
+}),
|
|
|
+smalltalk.HLWorkspaceModel);
|
|
|
+
|
|
|
+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.HLWorkspaceModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
@@ -59,6 +844,20 @@ return $1;
|
|
|
}),
|
|
|
smalltalk.HLWorkspaceModel);
|
|
|
|
|
|
+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.HLWorkspaceModel);
|
|
|
+
|
|
|
smalltalk.addMethod(
|
|
|
"_initializeEnvironment",
|
|
|
smalltalk.method({
|
|
|
@@ -66,7 +865,7 @@ selector: "initializeEnvironment",
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
var $1;
|
|
|
-self["@environment"]=smalltalk.send((smalltalk.Smalltalk || Smalltalk),"_current",[]);
|
|
|
+self["@environment"]=smalltalk.send((smalltalk.HLLocalEnvironment || HLLocalEnvironment),"_new",[]);
|
|
|
$1=self["@environment"];
|
|
|
return $1;
|
|
|
}
|
Sebastian Sastre