Debuging return values.

2017-09-16 20:34:19 +00:00 · 2017-09-16 20:34:19 +00:00 · 25f0e35931
parent 96a18ed827
commit 25f0e35931
1 changed files with 3 additions and 2 deletions
--- a/src/Grafoscopio/GrafoscopioReplace.class.st
+++ b/src/Grafoscopio/GrafoscopioReplace.class.st
@ -57,6 +57,7 @@ GrafoscopioReplace >> initializeWidgets [
 		label: 'OK';
 		action: [ 
 			self returnValues.
+			self inspect.
 			self window close ].
 	cancel := self newButton
 		label: 'Cancel';
@ -97,8 +98,8 @@ GrafoscopioReplace >> replace: anObject [
 { #category : #initialization }
 GrafoscopioReplace >> returnValues [
 	^ Dictionary new
-		at: 'find' put: find;
-		at: 'replace' put: replace;
+		at: 'find' put: find getText;
+		at: 'replace' put: replace getText;
 		yourself
 ]