|
@@ -1,8 +1,8 @@
|
|
|
-define("amber_core/Helios-Debugger", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects", "amber_core/Helios-Core", "amber_core/Helios-Workspace"], function(smalltalk,nil,_st){
|
|
|
+define("amber_core/Helios-Debugger", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_vm/globals", "amber_core/Kernel-Objects", "amber_core/Helios-Core", "amber_core/Helios-Workspace"], function(smalltalk,nil,_st, globals){
|
|
|
smalltalk.addPackage('Helios-Debugger');
|
|
|
smalltalk.packages["Helios-Debugger"].transport = {"type":"amd","amdNamespace":"amber_core"};
|
|
|
|
|
|
-smalltalk.addClass('HLContextInspectorDecorator', smalltalk.Object, ['context'], 'Helios-Debugger');
|
|
|
+smalltalk.addClass('HLContextInspectorDecorator', globals.Object, ['context'], 'Helios-Debugger');
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "context",
|
|
@@ -18,7 +18,7 @@ source: "context\x0a\x09^ context",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLContextInspectorDecorator);
|
|
|
+globals.HLContextInspectorDecorator);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -33,7 +33,7 @@ source: "initializeFromContext: aContext\x0a\x09context := aContext",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLContextInspectorDecorator);
|
|
|
+globals.HLContextInspectorDecorator);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -42,7 +42,7 @@ protocol: 'inspecting',
|
|
|
fn: function (anInspector){
|
|
|
var self=this;
|
|
|
var variables,inspectedContext;
|
|
|
-function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
|
|
|
+function $Dictionary(){return globals.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2,$3,$4;
|
|
|
variables=_st($Dictionary())._new();
|
|
@@ -71,13 +71,13 @@ return _st(variables)._addAll_(_st(inspectedContext)._locals());
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
|
|
|
_st(anInspector)._setLabel_("Context");
|
|
|
$4=_st(anInspector)._setVariables_(variables);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector,variables:variables,inspectedContext:inspectedContext},smalltalk.HLContextInspectorDecorator)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector,variables:variables,inspectedContext:inspectedContext},globals.HLContextInspectorDecorator)})},
|
|
|
args: ["anInspector"],
|
|
|
source: "inspectOn: anInspector\x0a\x09| variables inspectedContext |\x0a\x09\x0a\x09variables := Dictionary new.\x0a\x09inspectedContext := self context.\x0a\x09\x0a\x09variables addAll: inspectedContext locals.\x0a\x09\x0a\x09[ inspectedContext notNil and: [ inspectedContext isBlockContext ] ] whileTrue: [\x0a\x09\x09inspectedContext := inspectedContext outerContext.\x0a\x09\x09inspectedContext ifNotNil: [\x0a\x09\x09\x09variables addAll: inspectedContext locals ] ].\x0a\x09\x0a\x09anInspector\x0a\x09\x09setLabel: 'Context';\x0a\x09\x09setVariables: variables",
|
|
|
messageSends: ["new", "context", "addAll:", "locals", "whileTrue:", "and:", "notNil", "isBlockContext", "outerContext", "ifNotNil:", "setLabel:", "setVariables:"],
|
|
|
referencedClasses: ["Dictionary"]
|
|
|
}),
|
|
|
-smalltalk.HLContextInspectorDecorator);
|
|
|
+globals.HLContextInspectorDecorator);
|
|
|
|
|
|
|
|
|
smalltalk.addMethod(
|
|
@@ -93,24 +93,24 @@ _st($2)._initializeFromContext_(aContext);
|
|
|
$3=_st($2)._yourself();
|
|
|
$1=$3;
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"on:",{aContext:aContext},smalltalk.HLContextInspectorDecorator.klass)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"on:",{aContext:aContext},globals.HLContextInspectorDecorator.klass)})},
|
|
|
args: ["aContext"],
|
|
|
source: "on: aContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aContext;\x0a\x09\x09yourself",
|
|
|
messageSends: ["initializeFromContext:", "new", "yourself"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLContextInspectorDecorator.klass);
|
|
|
+globals.HLContextInspectorDecorator.klass);
|
|
|
|
|
|
|
|
|
-smalltalk.addClass('HLDebugger', smalltalk.HLFocusableWidget, ['model', 'stackListWidget', 'codeWidget', 'inspectorWidget'], 'Helios-Debugger');
|
|
|
-smalltalk.HLDebugger.comment="I am the main widget for the Helios debugger.";
|
|
|
+smalltalk.addClass('HLDebugger', globals.HLFocusableWidget, ['model', 'stackListWidget', 'codeWidget', 'inspectorWidget'], 'Helios-Debugger');
|
|
|
+globals.HLDebugger.comment="I am the main widget for the Helios debugger.";
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "codeWidget",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerCodeWidget(){return smalltalk.HLDebuggerCodeWidget||(typeof HLDebuggerCodeWidget=="undefined"?nil:HLDebuggerCodeWidget)}
|
|
|
+function $HLDebuggerCodeWidget(){return globals.HLDebuggerCodeWidget||(typeof HLDebuggerCodeWidget=="undefined"?nil:HLDebuggerCodeWidget)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$3,$4,$1;
|
|
|
$2=self["@codeWidget"];
|
|
@@ -124,13 +124,13 @@ $1=self["@codeWidget"];
|
|
|
$1=$2;
|
|
|
};
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"codeWidget",{},smalltalk.HLDebugger)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"codeWidget",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLDebuggerCodeWidget new\x0a\x09\x09browserModel: self model;\x0a\x09\x09yourself ]",
|
|
|
messageSends: ["ifNil:", "browserModel:", "new", "model", "yourself"],
|
|
|
referencedClasses: ["HLDebuggerCodeWidget"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -140,13 +140,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._stackListWidget())._focus();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"focus",{},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"focus",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "focus\x0a\x09self stackListWidget focus",
|
|
|
messageSends: ["focus", "stackListWidget"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -154,17 +154,17 @@ selector: "initializeFromMethodContext:",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (aMethodContext){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerModel(){return smalltalk.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
|
|
|
+function $HLDebuggerModel(){return globals.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self["@model"]=_st($HLDebuggerModel())._on_(aMethodContext);
|
|
|
self._observeModel();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethodContext:",{aMethodContext:aMethodContext},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethodContext:",{aMethodContext:aMethodContext},globals.HLDebugger)})},
|
|
|
args: ["aMethodContext"],
|
|
|
source: "initializeFromMethodContext: aMethodContext\x0a\x09model := HLDebuggerModel on: aMethodContext.\x0a\x09self observeModel",
|
|
|
messageSends: ["on:", "observeModel"],
|
|
|
referencedClasses: ["HLDebuggerModel"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -172,7 +172,7 @@ selector: "inspectorWidget",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLInspectorWidget(){return smalltalk.HLInspectorWidget||(typeof HLInspectorWidget=="undefined"?nil:HLInspectorWidget)}
|
|
|
+function $HLInspectorWidget(){return globals.HLInspectorWidget||(typeof HLInspectorWidget=="undefined"?nil:HLInspectorWidget)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$1;
|
|
|
$2=self["@inspectorWidget"];
|
|
@@ -183,13 +183,13 @@ $1=self["@inspectorWidget"];
|
|
|
$1=$2;
|
|
|
};
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"inspectorWidget",{},smalltalk.HLDebugger)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"inspectorWidget",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "inspectorWidget\x0a\x09^ inspectorWidget ifNil: [ \x0a\x09\x09inspectorWidget := HLInspectorWidget new ]",
|
|
|
messageSends: ["ifNil:", "new"],
|
|
|
referencedClasses: ["HLInspectorWidget"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -197,7 +197,7 @@ selector: "model",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerModel(){return smalltalk.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
|
|
|
+function $HLDebuggerModel(){return globals.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$1;
|
|
|
$2=self["@model"];
|
|
@@ -208,13 +208,13 @@ $1=self["@model"];
|
|
|
$1=$2;
|
|
|
};
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLDebugger)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"model",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "model\x0a\x09^ model ifNil: [ model := HLDebuggerModel new ]",
|
|
|
messageSends: ["ifNil:", "new"],
|
|
|
referencedClasses: ["HLDebuggerModel"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -222,8 +222,8 @@ selector: "observeModel",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
-function $HLDebuggerStepped(){return smalltalk.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
+function $HLDebuggerContextSelected(){return globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
+function $HLDebuggerStepped(){return globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$1;
|
|
|
$2=self._model();
|
|
@@ -233,13 +233,13 @@ $ctx1.sendIdx["announcer"]=1;
|
|
|
_st($1)._on_send_to_($HLDebuggerContextSelected(),"onContextSelected:",self);
|
|
|
$ctx1.sendIdx["on:send:to:"]=1;
|
|
|
_st(_st(self._model())._announcer())._on_send_to_($HLDebuggerStepped(),"onContextSelected:",self);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected:\x0a\x09\x09to: self.\x0a\x09\x09\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onContextSelected:\x0a\x09\x09to: self",
|
|
|
messageSends: ["on:send:to:", "announcer", "model"],
|
|
|
referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -247,16 +247,16 @@ selector: "onContextSelected:",
|
|
|
protocol: 'reactions',
|
|
|
fn: function (anAnnouncement){
|
|
|
var self=this;
|
|
|
-function $HLContextInspectorDecorator(){return smalltalk.HLContextInspectorDecorator||(typeof HLContextInspectorDecorator=="undefined"?nil:HLContextInspectorDecorator)}
|
|
|
+function $HLContextInspectorDecorator(){return globals.HLContextInspectorDecorator||(typeof HLContextInspectorDecorator=="undefined"?nil:HLContextInspectorDecorator)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._inspectorWidget())._inspect_(_st($HLContextInspectorDecorator())._on_(_st(anAnnouncement)._context()));
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected:",{anAnnouncement:anAnnouncement},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected:",{anAnnouncement:anAnnouncement},globals.HLDebugger)})},
|
|
|
args: ["anAnnouncement"],
|
|
|
source: "onContextSelected: anAnnouncement\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context)",
|
|
|
messageSends: ["inspect:", "inspectorWidget", "on:", "context"],
|
|
|
referencedClasses: ["HLContextInspectorDecorator"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -264,16 +264,16 @@ selector: "registerBindingsOn:",
|
|
|
protocol: 'keybindings',
|
|
|
fn: function (aBindingGroup){
|
|
|
var self=this;
|
|
|
-function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
|
|
|
+function $HLToolCommand(){return globals.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,self._model());
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},globals.HLDebugger)})},
|
|
|
args: ["aBindingGroup"],
|
|
|
source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
|
|
|
messageSends: ["registerConcreteClassesOn:for:", "model"],
|
|
|
referencedClasses: ["HLToolCommand"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -281,9 +281,9 @@ selector: "renderContentOn:",
|
|
|
protocol: 'rendering',
|
|
|
fn: function (html){
|
|
|
var self=this;
|
|
|
-function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
|
|
|
-function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
|
|
|
-function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
|
|
|
+function $HLContainer(){return globals.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
|
|
|
+function $HLHorizontalSplitter(){return globals.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
|
|
|
+function $HLVerticalSplitter(){return globals.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$1;
|
|
|
$2=_st($HLHorizontalSplitter())._with_with_(self._stackListWidget(),_st($HLVerticalSplitter())._with_with_(self._codeWidget(),self._inspectorWidget()));
|
|
@@ -291,13 +291,13 @@ $ctx1.sendIdx["with:with:"]=1;
|
|
|
$1=_st($HLContainer())._with_($2);
|
|
|
_st(html)._with_($1);
|
|
|
$ctx1.sendIdx["with:"]=1;
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},globals.HLDebugger)})},
|
|
|
args: ["html"],
|
|
|
source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter\x0a\x09\x09with: self stackListWidget\x0a\x09\x09with: (HLVerticalSplitter\x0a\x09\x09\x09with: self codeWidget\x0a\x09\x09\x09with: self inspectorWidget)))",
|
|
|
messageSends: ["with:", "with:with:", "stackListWidget", "codeWidget", "inspectorWidget"],
|
|
|
referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -305,7 +305,7 @@ selector: "stackListWidget",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLStackListWidget(){return smalltalk.HLStackListWidget||(typeof HLStackListWidget=="undefined"?nil:HLStackListWidget)}
|
|
|
+function $HLStackListWidget(){return globals.HLStackListWidget||(typeof HLStackListWidget=="undefined"?nil:HLStackListWidget)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$3,$4,$1;
|
|
|
$2=self["@stackListWidget"];
|
|
@@ -319,13 +319,13 @@ $1=self["@stackListWidget"];
|
|
|
$1=$2;
|
|
|
};
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"stackListWidget",{},smalltalk.HLDebugger)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"stackListWidget",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "stackListWidget\x0a\x09^ stackListWidget ifNil: [ \x0a\x09\x09stackListWidget := (HLStackListWidget on: self model)\x0a\x09\x09\x09next: self codeWidget;\x0a\x09\x09\x09yourself ]",
|
|
|
messageSends: ["ifNil:", "next:", "on:", "model", "codeWidget", "yourself"],
|
|
|
referencedClasses: ["HLStackListWidget"]
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -334,16 +334,16 @@ protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
-smalltalk.HLDebugger.superclass.fn.prototype._unregister.apply(_st(self), []);
|
|
|
+globals.HLDebugger.superclass.fn.prototype._unregister.apply(_st(self), []);
|
|
|
$ctx1.sendIdx["unregister"]=1;
|
|
|
_st(self._inspectorWidget())._unregister();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},smalltalk.HLDebugger)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},globals.HLDebugger)})},
|
|
|
args: [],
|
|
|
source: "unregister\x0a\x09super unregister.\x0a\x09self inspectorWidget unregister",
|
|
|
messageSends: ["unregister", "inspectorWidget"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebugger);
|
|
|
+globals.HLDebugger);
|
|
|
|
|
|
|
|
|
smalltalk.addMethod(
|
|
@@ -359,13 +359,13 @@ _st($2)._initializeFromMethodContext_(aMethodContext);
|
|
|
$3=_st($2)._yourself();
|
|
|
$1=$3;
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebugger.klass)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},globals.HLDebugger.klass)})},
|
|
|
args: ["aMethodContext"],
|
|
|
source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromMethodContext: aMethodContext;\x0a\x09\x09yourself",
|
|
|
messageSends: ["initializeFromMethodContext:", "new", "yourself"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebugger.klass);
|
|
|
+globals.HLDebugger.klass);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -380,7 +380,7 @@ source: "tabClass\x0a\x09^ 'debugger'",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebugger.klass);
|
|
|
+globals.HLDebugger.klass);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -395,10 +395,10 @@ source: "tabLabel\x0a\x09^ 'Debugger'",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebugger.klass);
|
|
|
+globals.HLDebugger.klass);
|
|
|
|
|
|
|
|
|
-smalltalk.addClass('HLDebuggerCodeWidget', smalltalk.HLBrowserCodeWidget, [], 'Helios-Debugger');
|
|
|
+smalltalk.addClass('HLDebuggerCodeWidget', globals.HLBrowserCodeWidget, [], 'Helios-Debugger');
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "addStopAt:",
|
|
@@ -407,13 +407,13 @@ fn: function (anInteger){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self["@editor"])._setGutterMarker_gutter_value_(anInteger,"stops",_st(_st("<div class=\x22stop\x22></stop>"._asJQuery())._toArray())._first());
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"addStopAt:",{anInteger:anInteger},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"addStopAt:",{anInteger:anInteger},globals.HLDebuggerCodeWidget)})},
|
|
|
args: ["anInteger"],
|
|
|
source: "addStopAt: anInteger\x0a\x09editor\x0a\x09\x09setGutterMarker: anInteger\x0a\x09\x09gutter: 'stops'\x0a\x09\x09value: '<div class=\x22stop\x22></stop>' asJQuery toArray first",
|
|
|
messageSends: ["setGutterMarker:gutter:value:", "first", "toArray", "asJQuery"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -423,13 +423,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._editor())._clearGutter_("stops");
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"clearHighlight",{},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"clearHighlight",{},globals.HLDebuggerCodeWidget)})},
|
|
|
args: [],
|
|
|
source: "clearHighlight\x0a\x09self editor clearGutter: 'stops'",
|
|
|
messageSends: ["clearGutter:", "editor"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -439,14 +439,14 @@ fn: function (aString){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self._clearHighlight();
|
|
|
-smalltalk.HLDebuggerCodeWidget.superclass.fn.prototype._contents_.apply(_st(self), [aString]);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"contents:",{aString:aString},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+globals.HLDebuggerCodeWidget.superclass.fn.prototype._contents_.apply(_st(self), [aString]);
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"contents:",{aString:aString},globals.HLDebuggerCodeWidget)})},
|
|
|
args: ["aString"],
|
|
|
source: "contents: aString\x0a\x09self clearHighlight.\x0a\x09super contents: aString",
|
|
|
messageSends: ["clearHighlight", "contents:"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -456,18 +456,18 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$3,$1;
|
|
|
-$2=smalltalk.HLDebuggerCodeWidget.superclass.fn.prototype._editorOptions.apply(_st(self), []);
|
|
|
+$2=globals.HLDebuggerCodeWidget.superclass.fn.prototype._editorOptions.apply(_st(self), []);
|
|
|
_st($2)._at_put_("gutters",["CodeMirror-linenumbers", "stops"]);
|
|
|
$3=_st($2)._yourself();
|
|
|
$1=$3;
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"editorOptions",{},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"editorOptions",{},globals.HLDebuggerCodeWidget)})},
|
|
|
args: [],
|
|
|
source: "editorOptions\x0a\x09^ super editorOptions\x0a\x09\x09at: 'gutters' put: #('CodeMirror-linenumbers' 'stops');\x0a\x09\x09yourself",
|
|
|
messageSends: ["at:put:", "editorOptions", "yourself"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -477,13 +477,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self._highlightNode_(_st(self._browserModel())._nextNode());
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"highlight",{},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"highlight",{},globals.HLDebuggerCodeWidget)})},
|
|
|
args: [],
|
|
|
source: "highlight\x0a\x09self highlightNode: self browserModel nextNode",
|
|
|
messageSends: ["highlightNode:", "nextNode", "browserModel"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -512,7 +512,7 @@ $ctx1.sendIdx["position"]=2;
|
|
|
$8=_st($9)._y();
|
|
|
$7="ch".__minus_gt($8);
|
|
|
$ctx1.sendIdx["->"]=2;
|
|
|
-$2=smalltalk.HashedCollection._from_([$3,$7]);
|
|
|
+$2=globals.HashedCollection._from_([$3,$7]);
|
|
|
token=_st($1)._getTokenAt_($2);
|
|
|
token;
|
|
|
self._clearHighlight();
|
|
@@ -535,19 +535,19 @@ $16="line".__minus_gt($17);
|
|
|
$ctx1.sendIdx["->"]=3;
|
|
|
$20="ch".__minus_gt(_st(token)._start());
|
|
|
$ctx1.sendIdx["->"]=4;
|
|
|
-$15=smalltalk.HashedCollection._from_([$16,$20]);
|
|
|
+$15=globals.HashedCollection._from_([$16,$20]);
|
|
|
$22="line".__minus_gt(_st(_st(_st(aNode)._position())._x()).__minus((1)));
|
|
|
$ctx1.sendIdx["->"]=5;
|
|
|
-$21=smalltalk.HashedCollection._from_([$22,"ch".__minus_gt(_st(token)._end())]);
|
|
|
+$21=globals.HashedCollection._from_([$22,"ch".__minus_gt(_st(token)._end())]);
|
|
|
_st($14)._setSelection_to_($15,$21);
|
|
|
};
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"highlightNode:",{aNode:aNode,token:token},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"highlightNode:",{aNode:aNode,token:token},globals.HLDebuggerCodeWidget)})},
|
|
|
args: ["aNode"],
|
|
|
source: "highlightNode: aNode\x0a\x09| token |\x0a\x09\x0a\x09aNode ifNotNil: [\x0a\x09\x09token := self editor getTokenAt: #{ \x0a\x09\x09\x09'line' -> (aNode position x - 1). \x0a\x09\x09\x09'ch' -> aNode position y \x0a\x09\x09}.\x0a\x0a\x09\x09self\x0a\x09\x09\x09clearHighlight;\x0a\x09\x09\x09addStopAt: aNode position x - 1.\x0a\x0a\x09\x09self editor \x0a\x09\x09\x09setSelection: #{ 'line' -> (aNode position x - 1). 'ch' -> token start }\x0a\x09\x09\x09to: #{ 'line' -> (aNode position x - 1). 'ch' -> token end } ]",
|
|
|
messageSends: ["ifNotNil:", "getTokenAt:", "editor", "->", "-", "x", "position", "y", "clearHighlight", "addStopAt:", "setSelection:to:", "start", "end"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -555,12 +555,12 @@ selector: "observeBrowserModel",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
-function $HLDebuggerStepped(){return smalltalk.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
-function $HLDebuggerWhere(){return smalltalk.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
|
|
|
+function $HLDebuggerContextSelected(){return globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
+function $HLDebuggerStepped(){return globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
+function $HLDebuggerWhere(){return globals.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $2,$1,$4,$3;
|
|
|
-smalltalk.HLDebuggerCodeWidget.superclass.fn.prototype._observeBrowserModel.apply(_st(self), []);
|
|
|
+globals.HLDebuggerCodeWidget.superclass.fn.prototype._observeBrowserModel.apply(_st(self), []);
|
|
|
$2=self._browserModel();
|
|
|
$ctx1.sendIdx["browserModel"]=1;
|
|
|
$1=_st($2)._announcer();
|
|
@@ -574,13 +574,13 @@ $ctx1.sendIdx["announcer"]=2;
|
|
|
_st($3)._on_send_to_($HLDebuggerStepped(),"onContextSelected",self);
|
|
|
$ctx1.sendIdx["on:send:to:"]=2;
|
|
|
_st(_st(self._browserModel())._announcer())._on_send_to_($HLDebuggerWhere(),"onContextSelected",self);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"observeBrowserModel",{},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"observeBrowserModel",{},globals.HLDebuggerCodeWidget)})},
|
|
|
args: [],
|
|
|
source: "observeBrowserModel\x0a\x09super observeBrowserModel.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerWhere\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self",
|
|
|
messageSends: ["observeBrowserModel", "on:send:to:", "announcer", "browserModel"],
|
|
|
referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped", "HLDebuggerWhere"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -590,18 +590,18 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self._highlight();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected",{},smalltalk.HLDebuggerCodeWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected",{},globals.HLDebuggerCodeWidget)})},
|
|
|
args: [],
|
|
|
source: "onContextSelected\x0a\x09self highlight",
|
|
|
messageSends: ["highlight"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerCodeWidget);
|
|
|
+globals.HLDebuggerCodeWidget);
|
|
|
|
|
|
|
|
|
|
|
|
-smalltalk.addClass('HLDebuggerModel', smalltalk.HLToolModel, ['rootContext', 'currentContext', 'contexts'], 'Helios-Debugger');
|
|
|
-smalltalk.HLDebuggerModel.comment="I am a model for Helios debugging.\x0a\x0aMy instances hold a reference to an `AIContext` instance, built from a `MethodContext`. The context should be the root of the context stack.";
|
|
|
+smalltalk.addClass('HLDebuggerModel', globals.HLToolModel, ['rootContext', 'currentContext', 'contexts'], 'Helios-Debugger');
|
|
|
+globals.HLDebuggerModel.comment="I am a model for Helios debugging.\x0a\x0aMy instances hold a reference to an `AIContext` instance, built from a `MethodContext`. The context should be the root of the context stack.";
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "contexts",
|
|
@@ -617,7 +617,7 @@ source: "contexts\x0a\x09^ contexts",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -635,13 +635,13 @@ $1;
|
|
|
};
|
|
|
$2=self["@currentContext"];
|
|
|
return $2;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"currentContext",{},smalltalk.HLDebuggerModel)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"currentContext",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "currentContext\x0a\x09currentContext ifNil: [ self currentContext: self rootContext ].\x0a\x09^ currentContext",
|
|
|
messageSends: ["ifNil:", "currentContext:", "rootContext"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -649,7 +649,7 @@ selector: "currentContext:",
|
|
|
protocol: 'accessing',
|
|
|
fn: function (aContext){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
+function $HLDebuggerContextSelected(){return globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2;
|
|
|
self._withChangesDo_((function(){
|
|
@@ -662,13 +662,13 @@ _st($1)._context_(aContext);
|
|
|
$2=_st($1)._yourself();
|
|
|
return _st(self._announcer())._announce_($2);
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"currentContext:",{aContext:aContext},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"currentContext:",{aContext:aContext},globals.HLDebuggerModel)})},
|
|
|
args: ["aContext"],
|
|
|
source: "currentContext: aContext\x0a\x09self withChangesDo: [ \x0a\x09\x09self selectedMethod: aContext method.\x0a\x09\x09currentContext := aContext.\x0a\x09\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09\x09context: aContext;\x0a\x09\x09\x09yourself) ]",
|
|
|
messageSends: ["withChangesDo:", "selectedMethod:", "method", "announce:", "announcer", "context:", "new", "yourself"],
|
|
|
referencedClasses: ["HLDebuggerContextSelected"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -677,7 +677,7 @@ protocol: 'initialization',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
var context;
|
|
|
-function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
|
|
|
+function $OrderedCollection(){return globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self["@contexts"]=_st($OrderedCollection())._new();
|
|
|
context=self._rootContext();
|
|
@@ -690,13 +690,13 @@ _st(self["@contexts"])._add_(context);
|
|
|
context=_st(context)._outerContext();
|
|
|
return context;
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"initializeContexts",{context:context},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"initializeContexts",{context:context},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "initializeContexts\x0a\x09\x22Flatten the context stack into an OrderedCollection\x22\x0a\x09\x0a\x09| context |\x0a\x09\x0a\x09contexts := OrderedCollection new.\x0a\x09context := self rootContext.\x0a\x09\x0a\x09[ context notNil ] whileTrue: [\x0a\x09\x09contexts add: context.\x0a\x09\x09context := context outerContext ]",
|
|
|
messageSends: ["new", "rootContext", "whileTrue:", "notNil", "add:", "outerContext"],
|
|
|
referencedClasses: ["OrderedCollection"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -704,17 +704,17 @@ selector: "initializeFromContext:",
|
|
|
protocol: 'initialization',
|
|
|
fn: function (aMethodContext){
|
|
|
var self=this;
|
|
|
-function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
|
|
|
+function $AIContext(){return globals.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self["@rootContext"]=_st($AIContext())._fromMethodContext_(aMethodContext);
|
|
|
self._initializeContexts();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"initializeFromContext:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"initializeFromContext:",{aMethodContext:aMethodContext},globals.HLDebuggerModel)})},
|
|
|
args: ["aMethodContext"],
|
|
|
source: "initializeFromContext: aMethodContext\x0a\x09rootContext := AIContext fromMethodContext: aMethodContext.\x0a\x09self initializeContexts",
|
|
|
messageSends: ["fromMethodContext:", "initializeContexts"],
|
|
|
referencedClasses: ["AIContext"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -726,13 +726,13 @@ return smalltalk.withContext(function($ctx1) {
|
|
|
var $1;
|
|
|
$1=_st(self._currentContext())._interpreter();
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.HLDebuggerModel)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"interpreter",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "interpreter\x0a\x09^ self currentContext interpreter",
|
|
|
messageSends: ["interpreter", "currentContext"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -744,13 +744,13 @@ return smalltalk.withContext(function($ctx1) {
|
|
|
var $1;
|
|
|
$1=_st(self._interpreter())._node();
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"nextNode",{},smalltalk.HLDebuggerModel)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"nextNode",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "nextNode\x0a\x09^ self interpreter node",
|
|
|
messageSends: ["node", "interpreter"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -758,7 +758,7 @@ selector: "restart",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerStepped(){return smalltalk.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
+function $HLDebuggerStepped(){return globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2;
|
|
|
_st(self._interpreter())._restart();
|
|
@@ -766,13 +766,13 @@ $1=_st($HLDebuggerStepped())._new();
|
|
|
_st($1)._context_(self._currentContext());
|
|
|
$2=_st($1)._yourself();
|
|
|
_st(self._announcer())._announce_($2);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"restart",{},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"restart",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "restart\x0a\x09self interpreter restart.\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
|
|
|
messageSends: ["restart", "interpreter", "announce:", "announcer", "context:", "new", "currentContext", "yourself"],
|
|
|
referencedClasses: ["HLDebuggerStepped"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -789,7 +789,7 @@ source: "rootContext\x0a\x09^ rootContext",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -797,7 +797,7 @@ selector: "skip",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerStepped(){return smalltalk.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
+function $HLDebuggerStepped(){return globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2;
|
|
|
_st(self._interpreter())._skip();
|
|
@@ -805,13 +805,13 @@ $1=_st($HLDebuggerStepped())._new();
|
|
|
_st($1)._context_(self._currentContext());
|
|
|
$2=_st($1)._yourself();
|
|
|
_st(self._announcer())._announce_($2);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"skip",{},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"skip",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "skip\x0a\x09self interpreter skip.\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
|
|
|
messageSends: ["skip", "interpreter", "announce:", "announcer", "context:", "new", "currentContext", "yourself"],
|
|
|
referencedClasses: ["HLDebuggerStepped"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -819,7 +819,7 @@ selector: "stepOver",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerStepped(){return smalltalk.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
+function $HLDebuggerStepped(){return globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2;
|
|
|
_st(self._interpreter())._stepOver();
|
|
@@ -827,13 +827,13 @@ $1=_st($HLDebuggerStepped())._new();
|
|
|
_st($1)._context_(self._currentContext());
|
|
|
$2=_st($1)._yourself();
|
|
|
_st(self._announcer())._announce_($2);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "stepOver\x0a\x09self interpreter stepOver.\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
|
|
|
messageSends: ["stepOver", "interpreter", "announce:", "announcer", "context:", "new", "currentContext", "yourself"],
|
|
|
referencedClasses: ["HLDebuggerStepped"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -841,16 +841,16 @@ selector: "where",
|
|
|
protocol: 'actions',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLDebuggerWhere(){return smalltalk.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
|
|
|
+function $HLDebuggerWhere(){return globals.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._announcer())._announce_(_st($HLDebuggerWhere())._new());
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"where",{},smalltalk.HLDebuggerModel)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"where",{},globals.HLDebuggerModel)})},
|
|
|
args: [],
|
|
|
source: "where\x0a\x09self announcer announce: HLDebuggerWhere new",
|
|
|
messageSends: ["announce:", "announcer", "new"],
|
|
|
referencedClasses: ["HLDebuggerWhere"]
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel);
|
|
|
+globals.HLDebuggerModel);
|
|
|
|
|
|
|
|
|
smalltalk.addMethod(
|
|
@@ -866,25 +866,25 @@ _st($2)._initializeFromContext_(aMethodContext);
|
|
|
$3=_st($2)._yourself();
|
|
|
$1=$3;
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel.klass)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},globals.HLDebuggerModel.klass)})},
|
|
|
args: ["aMethodContext"],
|
|
|
source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aMethodContext;\x0a\x09\x09yourself",
|
|
|
messageSends: ["initializeFromContext:", "new", "yourself"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLDebuggerModel.klass);
|
|
|
+globals.HLDebuggerModel.klass);
|
|
|
|
|
|
|
|
|
-smalltalk.addClass('HLErrorHandler', smalltalk.Object, [], 'Helios-Debugger');
|
|
|
+smalltalk.addClass('HLErrorHandler', globals.Object, [], 'Helios-Debugger');
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "handleError:",
|
|
|
protocol: 'error handling',
|
|
|
fn: function (anError){
|
|
|
var self=this;
|
|
|
-function $HLDebugger(){return smalltalk.HLDebugger||(typeof HLDebugger=="undefined"?nil:HLDebugger)}
|
|
|
-function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
|
|
|
-function $ErrorHandler(){return smalltalk.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
|
|
|
+function $HLDebugger(){return globals.HLDebugger||(typeof HLDebugger=="undefined"?nil:HLDebugger)}
|
|
|
+function $Error(){return globals.Error||(typeof Error=="undefined"?nil:Error)}
|
|
|
+function $ErrorHandler(){return globals.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
self._onErrorHandled();
|
|
|
_st((function(){
|
|
@@ -894,13 +894,13 @@ return _st(_st($HLDebugger())._on_(_st(anError)._context()))._openAsTab();
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
return _st(_st($ErrorHandler())._new())._handleError_(error);
|
|
|
}, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)})}));
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},smalltalk.HLErrorHandler)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},globals.HLErrorHandler)})},
|
|
|
args: ["anError"],
|
|
|
source: "handleError: anError\x0a\x09self onErrorHandled.\x0a\x0a\x09[ \x0a\x09\x09(HLDebugger on: anError context) openAsTab \x0a\x09] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ErrorHandler new handleError: error ]",
|
|
|
messageSends: ["onErrorHandled", "on:do:", "openAsTab", "on:", "context", "handleError:", "new"],
|
|
|
referencedClasses: ["HLDebugger", "Error", "ErrorHandler"]
|
|
|
}),
|
|
|
-smalltalk.HLErrorHandler);
|
|
|
+globals.HLErrorHandler);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -908,23 +908,23 @@ selector: "onErrorHandled",
|
|
|
protocol: 'error handling',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
-function $HLProgressWidget(){return smalltalk.HLProgressWidget||(typeof HLProgressWidget=="undefined"?nil:HLProgressWidget)}
|
|
|
+function $HLProgressWidget(){return globals.HLProgressWidget||(typeof HLProgressWidget=="undefined"?nil:HLProgressWidget)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
var $1,$2;
|
|
|
$1=_st($HLProgressWidget())._default();
|
|
|
_st($1)._flush();
|
|
|
$2=_st($1)._remove();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"onErrorHandled",{},smalltalk.HLErrorHandler)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"onErrorHandled",{},globals.HLErrorHandler)})},
|
|
|
args: [],
|
|
|
source: "onErrorHandled\x0a\x09\x22when an error is handled, we need to make sure that\x0a\x09any progress bar widget gets removed. Because HLProgressBarWidget is asynchronous,\x0a\x09it has to be done here.\x22\x0a\x09\x0a\x09HLProgressWidget default \x0a\x09\x09flush; \x0a\x09\x09remove",
|
|
|
messageSends: ["flush", "default", "remove"],
|
|
|
referencedClasses: ["HLProgressWidget"]
|
|
|
}),
|
|
|
-smalltalk.HLErrorHandler);
|
|
|
+globals.HLErrorHandler);
|
|
|
|
|
|
|
|
|
|
|
|
-smalltalk.addClass('HLStackListWidget', smalltalk.HLToolListWidget, [], 'Helios-Debugger');
|
|
|
+smalltalk.addClass('HLStackListWidget', globals.HLToolListWidget, [], 'Helios-Debugger');
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "items",
|
|
@@ -941,13 +941,13 @@ $1=self["@items"];
|
|
|
$1=$2;
|
|
|
};
|
|
|
return $1;
|
|
|
-}, function($ctx1) {$ctx1.fill(self,"items",{},smalltalk.HLStackListWidget)})},
|
|
|
+}, function($ctx1) {$ctx1.fill(self,"items",{},globals.HLStackListWidget)})},
|
|
|
args: [],
|
|
|
source: "items\x0a\x09^ items ifNil: [ items := self model contexts ]",
|
|
|
messageSends: ["ifNil:", "contexts", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -962,7 +962,7 @@ source: "label\x0a\x09^ 'Call stack'",
|
|
|
messageSends: [],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1023,13 +1023,13 @@ return self._skip();
|
|
|
return $10;
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
|
|
|
$ctx1.sendIdx["with:"]=1;
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},globals.HLStackListWidget)})},
|
|
|
args: ["html"],
|
|
|
source: "renderButtonsOn: html\x0a\x09html div \x0a\x09\x09class: 'debugger_bar'; \x0a\x09\x09with: [\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn restart';\x0a\x09\x09\x09\x09with: 'Restart';\x0a\x09\x09\x09\x09onClick: [ self restart ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn where';\x0a\x09\x09\x09\x09with: 'Where';\x0a\x09\x09\x09\x09onClick: [ self where ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn stepOver';\x0a\x09\x09\x09\x09with: 'Step over';\x0a\x09\x09\x09\x09onClick: [ self stepOver ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn skip';\x0a\x09\x09\x09\x09with: 'Skip';\x0a\x09\x09\x09\x09onClick: [ self skip ] ]",
|
|
|
messageSends: ["class:", "div", "with:", "button", "onClick:", "restart", "where", "stepOver", "skip"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1039,13 +1039,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._model())._restart();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"restart",{},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"restart",{},globals.HLStackListWidget)})},
|
|
|
args: [],
|
|
|
source: "restart\x0a\x09self model restart",
|
|
|
messageSends: ["restart", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1055,13 +1055,13 @@ fn: function (aContext){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._model())._currentContext_(aContext);
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aContext:aContext},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aContext:aContext},globals.HLStackListWidget)})},
|
|
|
args: ["aContext"],
|
|
|
source: "selectItem: aContext\x0a \x09self model currentContext: aContext",
|
|
|
messageSends: ["currentContext:", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1071,13 +1071,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._model())._skip();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"skip",{},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"skip",{},globals.HLStackListWidget)})},
|
|
|
args: [],
|
|
|
source: "skip\x0a\x09self model skip",
|
|
|
messageSends: ["skip", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1087,13 +1087,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._model())._stepOver();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"stepOver",{},globals.HLStackListWidget)})},
|
|
|
args: [],
|
|
|
source: "stepOver\x0a\x09self model stepOver",
|
|
|
messageSends: ["stepOver", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -1103,13 +1103,13 @@ fn: function (){
|
|
|
var self=this;
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
_st(self._model())._where();
|
|
|
-return self}, function($ctx1) {$ctx1.fill(self,"where",{},smalltalk.HLStackListWidget)})},
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"where",{},globals.HLStackListWidget)})},
|
|
|
args: [],
|
|
|
source: "where\x0a\x09self model where",
|
|
|
messageSends: ["where", "model"],
|
|
|
referencedClasses: []
|
|
|
}),
|
|
|
-smalltalk.HLStackListWidget);
|
|
|
+globals.HLStackListWidget);
|
|
|
|
|
|
|
|
|
});
|