Find & replace GUI working.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-16 21:05:26 +00:00
parent c3c7bb858e
commit 27f402555b

View File

@ -56,12 +56,13 @@ GrafoscopioReplace >> initializeWidgets [
ok := self newButton
label: 'OK';
action: [
self returnValues.
self inspect.
self window close ].
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 }