Find & Replace: Closing windows implemented.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-16 19:16:01 +00:00
parent 9ae4f36ca8
commit 2b80b3ca50

View File

@ -55,10 +55,10 @@ GrafoscopioReplace >> initializeWidgets [
autoAccept: true.
ok := self newButton
label: 'OK';
action: [ Transcript show: self find getText ].
action: [ Transcript show: self find getText, String cr ].
cancel := self newButton
label: 'Cancel';
action: [ super closeWindowAction ].
action: [ self window close ].
self focusOrder
add: find;
add: replace;
@ -79,7 +79,7 @@ GrafoscopioReplace >> ok: anObject [
{ #category : #private }
GrafoscopioReplace >> okToChange [
^ false
^ true
]
{ #category : #accessing }