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'; label: 'OK';
action: [ action: [
self returnValues. self returnValues.
self inspect.
self window close ]. self window close ].
cancel := self newButton cancel := self newButton
label: 'Cancel'; label: 'Cancel';
@ -97,8 +98,8 @@ GrafoscopioReplace >> replace: anObject [
{ #category : #initialization } { #category : #initialization }
GrafoscopioReplace >> returnValues [ GrafoscopioReplace >> returnValues [
^ Dictionary new ^ Dictionary new
at: 'find' put: find; at: 'find' put: find getText;
at: 'replace' put: replace; at: 'replace' put: replace getText;
yourself yourself
] ]