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