Defining new UI for the find:andReplaceWith: method.

src/Grafoscopio/GrafoscopioReplace.class.st

@@ -0,0 +1,38 @@
+"
+I'm a tool for finding and replacing text ocurrences in notebook
+nodes. 
+"
+Class {
+	#name : #GrafoscopioReplace,
+	#superclass : #ComposableModel,
+	#instVars : [
+		'find',
+		'replace',
+		'ok',
+		'cancel'
+	],
+	#category : #'Grafoscopio-UI'
+}
+
+{ #category : #specs }
+GrafoscopioReplace class >> defaultSpec [
+	<spec: #default>
+	SpecColumnLayout composed
+		add: #find; add: #replace; "add: #ok; add: #cancel;"
+		yourself
+]
+
+{ #category : #initialization }
+GrafoscopioReplace >> initializeWidgets [
+	find := self newText.
+	replace := self newText.
+	ok := self newButton
+		label: 'OK'.
+	cancel := self newButton
+		label: 'Cancel'.
+	self focusOrder 
+		add: find;
+		add: replace";
+		add: ok;
+		add: cancel".
+]