From 6c8a043066a75540682b4bb3e737b0a22415c428 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phaneDucasse?= <stephane.ducasse@inria.fr>
Date: Mon, 30 Sep 2024 12:47:41 +0200
Subject: [PATCH] Add a simple code file editor so that we can use it for the
 preferences. It replaces the UIManager default edit:  So we can remove this
 edit: method too.

---
 .../SpSimpleFileEditPresenter.class.st        | 142 ++++++++++++++++++
 1 file changed, 142 insertions(+)
 create mode 100644 src/Spec2-CommonWidgets/SpSimpleFileEditPresenter.class.st

diff --git a/src/Spec2-CommonWidgets/SpSimpleFileEditPresenter.class.st b/src/Spec2-CommonWidgets/SpSimpleFileEditPresenter.class.st
new file mode 100644
index 00000000..5f5cdc2e
--- /dev/null
+++ b/src/Spec2-CommonWidgets/SpSimpleFileEditPresenter.class.st
@@ -0,0 +1,142 @@
+"
+I define a simple code editor. 
+Before saving I create a backup of the edited file. 
+
+
+Here is a typical use: 
+
+```
+SpSimpleFileEditPresenter new 
+	onFileReference: '/Library/Preferences/pharo/6.0/settings.st' asFileReference;
+	openDialog 
+```
+"
+Class {
+	#name : 'SpSimpleFileEditPresenter',
+	#superclass : 'SpPresenter',
+	#instVars : [
+		'label',
+		'fileReference',
+		'codeText'
+	],
+	#category : 'Spec2-CommonWidgets',
+	#package : 'Spec2-CommonWidgets'
+}
+
+{ #category : 'examples' }
+SpSimpleFileEditPresenter class >> example [
+	<script>
+	
+	| presenter fm |
+	fm := FileSystem memory / 'unknow.st'.
+	fm writeStreamDo: [ :each | each nextPutAll: 'Please edit me and save me!' ].
+	presenter := self new.
+	presenter
+		label: 'The meaning of life?';
+		onFileReference: fm ;
+		openDialog
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> backupFileReference [
+	
+	| basename nameWithoutExtension |
+	basename := fileReference basename.
+	nameWithoutExtension :=  fileReference basenameWithoutExtension.
+	^ fileReference parent / (nameWithoutExtension, 'Old.txt')
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> calculateLabelHeight [
+
+	^ 16
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> defaultLayout [
+
+	^ SpBoxLayout newTopToBottom
+		spacing: 5;
+	  	add: (SpBoxLayout newLeftToRight
+				add: label expand: true;
+				yourself)
+	  		height: self calculateLabelHeight;
+		add: codeText expand: true;
+		yourself
+]
+
+{ #category : 'initialization' }
+SpSimpleFileEditPresenter >> initializeDialogWindow: aDialog [
+
+	super initializeDialogWindow: aDialog.
+	aDialog
+		okAction: [ :presenter | self save ];
+		cancelAction: [ :presenter | self inform: 'Did not save' ]
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> initializePresenters [
+
+	label := self newLabel.
+	codeText := self newCode.
+	codeText takeKeyboardFocus.
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> initializeWindow: aWindowPresenter [
+
+	aWindowPresenter
+		title: 'File edit';
+		initialExtent: 600@600
+]
+
+{ #category : 'accessing' }
+SpSimpleFileEditPresenter >> label [
+
+	^ label
+]
+
+{ #category : 'accessing' }
+SpSimpleFileEditPresenter >> label: anObject [
+
+	label := anObject
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> onFileReference: aFileReference [
+
+	fileReference := aFileReference. 
+	codeText text: aFileReference contents.
+	label label: 'File: ...',  (aFileReference fullName last: 45)
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> save [
+
+	self backupFileReference ensureDelete.
+	self saveBackup.
+	fileReference ensureDelete.
+	fileReference writeStreamDo: [ :stream | stream nextPutAll: (codeText selectAll; text) ].
+
+
+	
+]
+
+{ #category : 'layout' }
+SpSimpleFileEditPresenter >> saveBackup [
+	
+	fileReference copyTo: self backupFileReference.
+	
+]
+
+{ #category : 'accessing' }
+SpSimpleFileEditPresenter >> textInput [
+
+	^ codeText
+]
+
+{ #category : 'accessing' }
+SpSimpleFileEditPresenter >> textInput: anObject [
+
+	codeText := anObject
+]