Find & Replace: Closing windows implemented.
This commit is contained in:
parent
9ae4f36ca8
commit
2b80b3ca50
@ -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 }
|
||||
|
Loading…
Reference in New Issue
Block a user