Ignore browseIt errors.

src/Helios-Workspace.js

@@ -230,13 +230,25 @@ selector: "browseIt",
 protocol: 'actions',
 fn: function (){
 var self=this;
+var result;
+function $Error(){return globals.Error||(typeof Error=="undefined"?nil:Error)}
 return smalltalk.withContext(function($ctx1) { 
-_st(self._model())._browse_(self._doIt());
-return self}, function($ctx1) {$ctx1.fill(self,"browseIt",{},globals.HLCodeWidget)})},
+var $early={};
+try {
+result=_st((function(){
+return smalltalk.withContext(function($ctx2) {
+return self._dotIt();
+}, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}))._on_do_($Error(),(function(exception){
+throw $early=[self];
+}));
+_st(self._model())._browse_(result);
+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\x09self model browse: self doIt",
-messageSends: ["browse:", "model", "doIt"],
-referencedClasses: []
+source: "browseIt\x0a\x09| result |\x0a\x09\x0a\x09result := [ self dotIt ] on: Error do: [ :exception | \x0a\x09\x09^ self ].\x0a\x09\x09\x0a\x09self model browse: result",
+messageSends: ["on:do:", "dotIt", "browse:", "model"],
+referencedClasses: ["Error"]
 }),
 globals.HLCodeWidget);
 

src/Helios-Workspace.st

@@ -149,7 +149,12 @@ selectionStart: anInteger
 !HLCodeWidget methodsFor: 'actions'!
 
 browseIt
-	self model browse: self doIt
+	| result |
+	
+	result := [ self dotIt ] on: Error do: [ :exception | 
+		^ self ].
+		
+	self model browse: result
 !
 
 clear