Find & replace GUI working.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-16 21:05:26 +00:00 committed by SantiagoBragagnolo
parent 25f0e35931
commit 5f40081b15
1 changed files with 12 additions and 9 deletions

View File

@ -55,13 +55,14 @@ GrafoscopioReplace >> initializeWidgets [
autoAccept: true.
ok := self newButton
label: 'OK';
action: [
self returnValues.
self inspect.
self window close ].
action: [
ok state: true.
self window close. ] .
cancel := self newButton
label: 'Cancel';
action: [ self window close ].
action: [
cancel state: true.
self window close ].
self focusOrder
add: find;
add: replace;
@ -97,10 +98,12 @@ GrafoscopioReplace >> replace: anObject [
{ #category : #initialization }
GrafoscopioReplace >> returnValues [
^ Dictionary new
at: 'find' put: find getText;
at: 'replace' put: replace getText;
yourself
self ok state
ifFalse: [ ^ self ]
ifTrue: [^ Dictionary new
at: 'find' put: find getText;
at: 'replace' put: replace getText;
yourself]
]
{ #category : #api }