|
@@ -239,7 +239,7 @@ var $early={};
|
|
|
try {
|
|
|
result=_st((function(){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
-return self._dotIt();
|
|
|
+return self._doIt();
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._on_do_($Error(),(function(exception){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
$1=_st($ErrorHandler())._handleError_(exception);
|
|
@@ -250,8 +250,8 @@ return self}
|
|
|
catch(e) {if(e===$early)return e[0]; throw e}
|
|
|
}, function($ctx1) {$ctx1.fill(self,"browseIt",{result:result},globals.HLCodeWidget)})},
|
|
|
args: [],
|
|
|
-source: "browseIt\x0a\x09| result |\x0a\x09\x0a\x09result := [ self dotIt ] on: Error do: [ :exception | \x0a\x09\x09^ ErrorHandler handleError: exception ].\x0a\x09\x09\x0a\x09self model browse: result",
|
|
|
-messageSends: ["on:do:", "dotIt", "handleError:", "browse:", "model"],
|
|
|
+source: "browseIt\x0a\x09| result |\x0a\x09\x0a\x09result := [ self doIt ] on: Error do: [ :exception | \x0a\x09\x09^ ErrorHandler handleError: exception ].\x0a\x09\x09\x0a\x09self model browse: result",
|
|
|
+messageSends: ["on:do:", "doIt", "handleError:", "browse:", "model"],
|
|
|
referencedClasses: ["Error", "ErrorHandler"]
|
|
|
}),
|
|
|
globals.HLCodeWidget);
|
|
@@ -672,6 +672,7 @@ return _st($Smalltalk())._parse_(_st(self._editor())._getValue());
|
|
|
throw $early=[self];
|
|
|
}));
|
|
|
node=_st(ast)._atPosition_(aPosition);
|
|
|
+_st(console)._log_(node);
|
|
|
$1=node;
|
|
|
if(($receiver = $1) == nil || $receiver == null){
|
|
|
return self;
|
|
@@ -686,8 +687,8 @@ return self}
|
|
|
catch(e) {if(e===$early)return e[0]; throw e}
|
|
|
}, function($ctx1) {$ctx1.fill(self,"onCtrlClickAt:",{aPosition:aPosition,ast:ast,node:node},globals.HLCodeWidget)})},
|
|
|
args: ["aPosition"],
|
|
|
-source: "onCtrlClickAt: aPosition\x0a\x09| ast node |\x0a\x09\x0a\x09ast := [ Smalltalk parse: self editor getValue ] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ^ self ].\x0a\x09\x0a\x09node := (ast atPosition: aPosition).\x0a\x09node ifNil: [ ^ self ].\x0a\x09\x0a\x09node isNavigationNode ifTrue: [ \x0a\x09\x09self navigateTo: node navigationLink ]",
|
|
|
-messageSends: ["on:do:", "parse:", "getValue", "editor", "atPosition:", "ifNil:", "ifTrue:", "isNavigationNode", "navigateTo:", "navigationLink"],
|
|
|
+source: "onCtrlClickAt: aPosition\x0a\x09| ast node |\x0a\x09\x0a\x09ast := [ Smalltalk parse: self editor getValue ] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ^ self ].\x0a\x09\x0a\x09node := (ast atPosition: aPosition).\x0a\x09console log: node.\x0a\x09node ifNil: [ ^ self ].\x0a\x09\x0a\x09node isNavigationNode ifTrue: [ \x0a\x09\x09self navigateTo: node navigationLink ]",
|
|
|
+messageSends: ["on:do:", "parse:", "getValue", "editor", "atPosition:", "log:", "ifNil:", "ifTrue:", "isNavigationNode", "navigateTo:", "navigationLink"],
|
|
|
referencedClasses: ["Smalltalk", "Error"]
|
|
|
}),
|
|
|
globals.HLCodeWidget);
|