GrafoscopioReplace Interface updated.

repository/Grafoscopio/GrafoscopioReplace.class.st

@@ -16,23 +16,67 @@ Class {
 
 { #category : #specs }
 GrafoscopioReplace class >> defaultSpec [
-	<spec: #default>
+	^ SpecLayout composed
-	SpecColumnLayout composed
+		newColumn: [ :column | 
-		add: #find; add: #replace; "add: #ok; add: #cancel;"
+			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
 ]