debugger answer method now loops safely / fixed process selection bug

#927

No need to send `loopWhile:` in JadeiteDebugger>>answer.

When selecting processes, make sure the process list in the gui is checked before making the selection. And use an `at:ifAbsent:`

Also, while waiting for an answer, if the loop is terminated, double check that the deferred value is available and return that if so.

sources/JadePresenter.cls

@@ -350,8 +350,8 @@ waitForAnswer: thingThatCanAnswer
 			[loop isAlive] whileTrue: 
 					[thingThatCanAnswer isDeafObject
 						ifTrue: 
-							[loop terminate. "uncerimoneously kill the loop - don't run ensure blocks" 
-							^nil].
+							[loop terminate.
+							^deferredValue hasValue ifTrue: [deferredValue value] ifFalse: [nil]].
 					(Delay forMilliseconds: 1) wait]].
 	theAnswer := [deferredValue value] on: Error
 				do: 

sources/JadeiteDebugger.cls

@@ -38,7 +38,8 @@ additionalAccelerators
 	^super additionalAccelerators , #(#(#reformatSource 'Ctrl+Shift+O') #(#jadeDebug 'Ctrl+B'))!
 
 answer
-	[SessionManager inputState loopWhile: [answer isNil and: [debuggerClosed not]]] ensure: [^answer]!
+	[[answer isNil and: [debuggerClosed not]] whileTrue: [(Delay forMilliseconds: 1) wait]]
+		ensure: [^answer]!
 
 basicSelectedFrame
 	| index |
@@ -294,8 +295,8 @@ getProcessList
 	gsProcess := debuggerService processes
 				detect: [:processService | processService oop = gsProcess oop]
 				ifNone: [gsProcess	"it should be found though"].
-	debuggerService processes notEmpty
-		ifTrue: [processListPresenter selection: debuggerService processes first]!
+	processListPresenter list notEmpty
+		ifTrue: [processListPresenter selection: debuggerService processes first ifAbsent: []]!
 
 homeFrame
 	^frameListPresenter list detect: [:str | str = (self homeFrameOf: frame) printString]!

sources/Rowan UI Base.pax

@@ -2754,7 +2754,7 @@ executeSelectionOrLine: contextObject
 					with: self currentSelectionOrLine
 					with: oop
 					with: window view handle value).
-	self issueCommand: answeringService.
+	self issueCommand: answeringService. 
 	answer := self waitForAnswer: answeringService.
 	answer key ifTrue: [answer value: (OopType64 fromInteger: answer value)].
 	^answer!
@@ -5036,8 +5036,8 @@ executeSelectionOrLine: contextObject
 	answeringService
 		command: #exec:context:;
 		commandArgs: (Array with: self currentSelectionOrLine with: oop).
-	self issueCommand: answeringService.
-	answer := self waitForAnswer: answeringService. 
+	self issueCommand: answeringService. 
+	answer := self waitForAnswer: answeringService.  
 	answer key ifTrue: [answer value: (OopType64 fromInteger: answer value)].
 	^answer!