Debuging return values.
This commit is contained in:
parent
05daa3836c
commit
c3c7bb858e
@ -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
|
||||
]
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user