Merge pull request #910 from hernanmd/p13-new-finder-timeout-errors

Discard Finder unnecessary evaluation with time out in the Compiler
pharo-spec · Nov 22, 2024 · ba0b3ec · ba0b3ec
2 parents c0b604c + bef549d
commit ba0b3ec
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/src/NewTools-Finder/OpalCompiler.extension.st b/src/NewTools-Finder/OpalCompiler.extension.st
@@ -3,11 +3,15 @@ Extension { #name : 'OpalCompiler' }
 { #category : '*NewTools-Finder' }
 OpalCompiler >> evaluateWithTimeOut: anInteger [ 
 
-	| runner |
+	"| runner |
 
 	runner := TKTLocalProcessTaskRunner new.
 	^ runner 
 		schedule: [ self evaluate ] asTask
-		timeout: anInteger milliSeconds.
+		timeout: anInteger milliSeconds."
+
+	"See issue https://github.com/pharo-project/pharo/issues/16759"
+	self flag: #ToDo.
+	^ self evaluate
 
 ]
diff --git a/src/NewTools-Finder/StFinderSearch.class.st b/src/NewTools-Finder/StFinderSearch.class.st
@@ -25,6 +25,13 @@ Class {
 	#tag : 'Search'
 }
 
+{ #category : 'accessing' }
+StFinderSearch >> application [
+
+	^ application 
+		ifNil: [ StPharoApplication current ]
+]
+
 { #category : 'accessing' }
 StFinderSearch >> application: anApplication [ 
 	application := anApplication