Debuging return values.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-16 20:34:19 +00:00
parent 05daa3836c
commit c3c7bb858e

View File

@ -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
]