Offray/Grafoscopio
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

GrafoscopioReplace Interface updated.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-09-16 17:10:46 +00:00
parent 2c9e66b92d
commit e6d86d7aae
1 changed files with 50 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
repository/Grafoscopio/GrafoscopioReplace.class.st
View File

@ -16,23 +16,67 @@ Class {
{ #category : #specs }
GrafoscopioReplace class >> defaultSpec [
<spec: #default>
SpecColumnLayout composed
add: #find; add: #replace; "add: #ok; add: #cancel;"
^ SpecLayout composed
newColumn: [ :column |
column
add: #find;
add: #replace;
newRow: [ :row | row add: #ok; add: #cancel ] height: self toolbarHeight ];
yourself
]
{ #category : #accessing }
GrafoscopioReplace >> cancel [
^ cancel
]
{ #category : #accessing }
GrafoscopioReplace >> cancel: anObject [
cancel := anObject
]
{ #category : #accessing }
GrafoscopioReplace >> find [
^ find
]
{ #category : #accessing }
GrafoscopioReplace >> find: anObject [
find := anObject
]
{ #category : #initialization }
GrafoscopioReplace >> initializeWidgets [
find := self newText.
replace := self newText.
ok := self newButton
label: 'OK'.
label: 'OK';
action: [ Transcript show: self find getText ].
cancel := self newButton
label: 'Cancel'.
self focusOrder
add: find;
add: replace";
add: replace;
add: ok;
add: cancel".
add: cancel.
]
{ #category : #accessing }
GrafoscopioReplace >> ok [
^ ok
]
{ #category : #accessing }
GrafoscopioReplace >> ok: anObject [
ok := anObject
]
{ #category : #accessing }
GrafoscopioReplace >> replace [
^ replace
]
{ #category : #accessing }
GrafoscopioReplace >> replace: anObject [
replace := anObject
]