From 4db7165b9bf2a0db537f18ff5decf6c0a5af60db Mon Sep 17 00:00:00 2001
From: OffrayLuna <offray.luna@mutabit.com>
Date: Sat, 16 Sep 2017 19:16:01 +0000
Subject: [PATCH] Find & Replace: Closing windows implemented.

---
 src/Grafoscopio/GrafoscopioReplace.class.st | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Grafoscopio/GrafoscopioReplace.class.st b/src/Grafoscopio/GrafoscopioReplace.class.st
index 9283367..666cdcc 100644
--- a/src/Grafoscopio/GrafoscopioReplace.class.st
+++ b/src/Grafoscopio/GrafoscopioReplace.class.st
@@ -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 }