Added some query methods.

threadpool.mod/examples/example_01.bmx

@@ -2,7 +2,7 @@ SuperStrict
 
 Framework BRL.Standardio
 Import BRL.ThreadPool
-Import BRL.Random
+Import BRL.RandomDefault
 
 
 Print "Thread pool with 4 threads"

threadpool.mod/threadpool.bmx

@@ -264,6 +264,19 @@ Type TThreadPoolExecutor Extends TExecutor
 
 	End Method
 	
+	Rem
+	bbdoc: Returns the approximate number of threads that are actively executing tasks.
+	end rem
+	Method getActiveCount:Int()
+		countLock.Lock()
+		Local count:Int = threadsWorking
+		countLock.unlock()
+		return count
+	End Method
+	
+	Method IsQueueEmpty:Int()
+		return jobQueue.IsEmpty()
+	end method
 End Type
 
 Private
@@ -360,6 +373,13 @@ Type TJobQueue
 		Return job
 	End Method
 
+	Method IsEmpty:Int()
+		Lock()
+		Local empty:Int = jobs.IsEmpty()
+		UnLock()
+		return empty
+	End Method
+
 	Method Lock()
 		mutex.Lock()
 	End Method