Find & replace GUI working.
This commit is contained in:
parent
c3c7bb858e
commit
27f402555b
@ -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 }
|
||||
|
Loading…
Reference in New Issue
Block a user