From 263de03914a3de5d55c4508c322e32d36caf2a87 Mon Sep 17 00:00:00 2001
From: Jean-Philippe Bruyère <jp_bruyere@hotmail.com>
Date: Mon, 7 Jun 2021 15:05:30 +0200
Subject: suggestion in IML editor, editor base classe for ShowCase and
 LogAnalyzer

---
 Samples/DebugLogAnalyzer/src/Program.cs | 291 +-------------------------------
 1 file changed, 8 insertions(+), 283 deletions(-)

(limited to 'Samples/DebugLogAnalyzer/src/Program.cs')

diff --git a/Samples/DebugLogAnalyzer/src/Program.cs b/Samples/DebugLogAnalyzer/src/Program.cs
index 9c2e7117..8cee874a 100644
--- a/Samples/DebugLogAnalyzer/src/Program.cs
+++ b/Samples/DebugLogAnalyzer/src/Program.cs
@@ -12,12 +12,13 @@ using System.Collections.Generic;
 using Encoding = System.Text.Encoding;
 using Crow.DebugLogger;
 using System.Linq;
+using Samples;
 
 namespace DebugLogAnalyzer
 {
-	public class Program : SampleBase
+	public class Program : SampleBaseForEditor
 	{
-		public static Program CurrentProgramInstance;
+		
 		static void Main (string [] args)
 		{
 			DbgLogger.IncludeEvents = DbgEvtType.None;
@@ -29,13 +30,8 @@ namespace DebugLogAnalyzer
 			}
 		}
 		protected override void OnInitialized () {
-			initCommands ();
-
 			base.OnInitialized ();
 
-			if (string.IsNullOrEmpty (CurrentDir))
-				CurrentDir = Path.Combine (Directory.GetCurrentDirectory (), "Interfaces");
-
 			Load ("#Dbg.main.crow").DataSource = this;
 			//crowContainer = FindByName ("CrowContainer") as Container;
 			editor = FindByName ("tb") as TextBox;
@@ -92,25 +88,11 @@ namespace DebugLogAnalyzer
 				NotifyValueChanged (searchWidget);
 			}
 		}
-
-
-
-		public Command CMDNew, CMDOpen, CMDSave, CMDSaveAs, CMDQuit, CMDShowLeftPane,
-					CMDUndo, CMDRedo, CMDCut, CMDCopy, CMDPaste, CMDHelp, CMDAbout, CMDOptions,
-					CMDGotoParentEvent, CMDEventHistoryForward, CMDEventHistoryBackward;
+		public Command CMDGotoParentEvent, CMDEventHistoryForward, CMDEventHistoryBackward;
 		public CommandGroup EventCommands, DirectoryCommands;
-		public CommandGroup EditorCommands => new CommandGroup (CMDUndo, CMDRedo, CMDCut, CMDCopy, CMDPaste, CMDSave, CMDSaveAs);
-		void initCommands ()
+		protected override void initCommands ()
 		{
-			CMDNew	= new Command ("New", new Action (onNewFile), "#Icons.blank-file.svg");			
-			CMDSave = new Command ("Save", new Action (onSave), "#Icons.save.svg", false);
-			CMDSaveAs = new Command ("Save As...", new Action (onSaveAs), "#Icons.save.svg");
-			CMDQuit = new Command ("Quit", new Action (() => base.Quit ()), "#Icons.exit.svg");
-			CMDUndo = new Command ("Undo", new Action (undo),"#Icons.undo.svg", false);
-			CMDRedo = new Command ("Redo", new Action (redo),"#Icons.redo.svg", false);
-			CMDCut	= new Command ("Cut", new Action (() => cut ()), "#Icons.scissors.svg", false);
-			CMDCopy = new Command ("Copy", new Action (() => copy ()), "#Icons.copy-file.svg", false);
-			CMDPaste= new Command ("Paste", new Action (() => paste ()), "#Icons.paste-on-document.svg", false);
+			base.initCommands ();
 
 			CMDGotoParentEvent = new Command("parent", ()=> { CurrentEvent = CurrentEvent?.parentEvent; }, null, false);
 			CMDEventHistoryBackward = new Command("back.", currentEventHistoryGoBack, null, false);
@@ -212,29 +194,7 @@ namespace DebugLogAnalyzer
 			}
 		}
 		public List<DbgWidgetEvent> CurWidgetRootEvents => curWidget == null? new List<DbgWidgetEvent>() : curWidget.RootEvents;
-		public DbgEvtType RecordedEvents {
-			get => Configuration.Global.Get<DbgEvtType> (nameof (RecordedEvents));
-			set {
-				if (RecordedEvents == value)
-					return;				
-				Configuration.Global.Set (nameof (RecordedEvents), value);				
-				if (DebugLogRecording)
-					DbgLogger.IncludeEvents = RecordedEvents;
-				NotifyValueChanged(RecordedEvents);
-			}
-		}
-		public DbgEvtType DiscardedEvents {
-			get => Configuration.Global.Get<DbgEvtType> (nameof (DiscardedEvents));
-			set {
-				if (DiscardedEvents == value)
-					return;
-				Configuration.Global.Set (nameof (DiscardedEvents), value);
-				if (DebugLogRecording)
-					DbgLogger.DiscardEvents = DiscardedEvents;
-				NotifyValueChanged(DiscardedEvents);
-			}
-		}
-		public bool DebugLoggingEnabled => DbgLogger.IsEnabled;
+
 		public bool DebugLogToFile {
 			get => Configuration.Global.Get<bool> (nameof(DebugLogToFile));
 			set {
@@ -253,15 +213,6 @@ namespace DebugLogAnalyzer
 				NotifyValueChanged (DebugLogFilePath);
 			}
 		}*/
-		public bool DebugLogRecording {
-			get => debugLogRecording;
-			set {
-				if (debugLogRecording == value)
-					return;
-				debugLogRecording = value;
-				NotifyValueChanged(debugLogRecording);
-			}
-		}
 		public bool DebugLogOnStartup {
 			get => Configuration.Global.Get<bool> (nameof(DebugLogOnStartup));
 			set {
@@ -273,45 +224,8 @@ namespace DebugLogAnalyzer
 		}				
 
 		
-		const string _defaultFileName = "unnamed.txt";
-		string source = "", origSource;		
-		TextBox editor;	
-		Stack<TextChange> undoStack = new Stack<TextChange> ();
-		Stack<TextChange> redoStack = new Stack<TextChange> ();
-		TextSpan selection;
 		Exception currentException;
-		public string CurrentDir {
-			get => Configuration.Global.Get<string> (nameof (CurrentDir));
-			set {
-				if (CurrentDir == value)
-					return;
-				Configuration.Global.Set (nameof (CurrentDir), value);
-				NotifyValueChanged (CurrentDir);
-			}
-		}
-		public string CurrentFile {
-			get => Configuration.Global.Get<string> (nameof (CurrentFile));
-			set {
-				if (CurrentFile == value)
-					return;
-				Configuration.Global.Set (nameof (CurrentFile), value);
-				NotifyValueChanged (CurrentFile);
-			}
-		}		
-		public new bool IsDirty => source != origSource;
-		public string Source {
-			get => source;
-			set {
-				if (source == value)
-					return;
-				source = value;
-				CMDSave.CanExecute = IsDirty;
-				NotifyValueChanged (source);
-				NotifyValueChanged ("IsDirty", IsDirty);
-			}
-		}
-		string SelectedText =>	
-				selection.IsEmpty ? "" : Source.AsSpan (selection.Start, selection.Length).ToString ();
+		
 		public Exception CurrentException {
 			get => currentException;
 			set {
@@ -326,195 +240,6 @@ namespace DebugLogAnalyzer
 		public bool ShowError => currentException != null;
 		public string CurrentExceptionMSG => currentException == null ? "" : currentException.Message;
 
-	
-
-		void undo () {
-			if (undoStack.TryPop (out TextChange tch)) {
-				redoStack.Push (tch.Inverse (source));
-				CMDRedo.CanExecute = true;
-				apply (tch);
-				editor.SetCursorPosition (tch.End + tch.ChangedText.Length);
-			}
-			if (undoStack.Count == 0)
-				CMDUndo.CanExecute = false;
-		}
-		void redo () {
-			if (redoStack.TryPop (out TextChange tch)) {
-				undoStack.Push (tch.Inverse (source));
-				CMDUndo.CanExecute = true;
-				apply (tch);
-				editor.SetCursorPosition (tch.End + tch.ChangedText.Length);
-			}
-			if (redoStack.Count == 0)
-				CMDRedo.CanExecute = false;
-		}
-		void cut () {
-			copy ();
-			applyChange (new TextChange (selection.Start, selection.Length, ""));
-		}
-		void copy () {
-			Clipboard = SelectedText;
-		}
-		void paste () {			
-			applyChange (new TextChange (selection.Start, selection.Length, Clipboard));
-		}
-		bool disableTextChangedEvent = false;
-		void apply (TextChange change) {
-			Span<char> tmp = stackalloc char[source.Length + (change.ChangedText.Length - change.Length)];
-			ReadOnlySpan<char> src = source.AsSpan ();
-			src.Slice (0, change.Start).CopyTo (tmp);
-			if (!string.IsNullOrEmpty (change.ChangedText))
-				change.ChangedText.AsSpan ().CopyTo (tmp.Slice (change.Start));
-			src.Slice (change.End).CopyTo (tmp.Slice (change.Start + change.ChangedText.Length));
-			disableTextChangedEvent = true;
-			Source = tmp.ToString ();
-			disableTextChangedEvent = false;			
-		}	
-		void applyChange (TextChange change) {
-			undoStack.Push (change.Inverse (source));
-			redoStack.Clear ();
-			CMDUndo.CanExecute = true;
-			CMDRedo.CanExecute = false;
-			apply (change);
-		}
-
-		void resetUndoRedo () {
-			undoStack.Clear ();
-			redoStack.Clear ();
-			CMDUndo.CanExecute = false;
-			CMDRedo.CanExecute = false;			
-		}		
-
-		void onNewFile () {
-			if (IsDirty) {				
-				MessageBox.ShowModal (this, MessageBox.Type.YesNo, "Current file has unsaved changes, are you sure?").Yes += (sender, e) => newFile ();
-			} else
-				newFile ();
-		}
-		void onSave ()
-		{
-			if (!File.Exists (CurrentFile)) {
-				onSaveAs ();
-				return;
-			}
-			save ();
-		}
-		void onSaveAs ()
-		{
-			string dir = Path.GetDirectoryName (CurrentFile);
-			if (string.IsNullOrEmpty (dir))
-				dir = Directory.GetCurrentDirectory ();
-			LoadIMLFragment (@"<FileDialog Width='60%' Height='50%' Caption='Save as ...' CurrentDirectory='" +
-				dir + "' SelectedFile='" +
-				Path.GetFileName(CurrentFile) + "' OkClicked='saveFileDialog_OkClicked'/>").DataSource = this;
-		}
-		void saveFileDialog_OkClicked (object sender, EventArgs e)
-		{
-			FileDialog fd = sender as FileDialog;
-
-			if (string.IsNullOrEmpty (fd.SelectedFileFullPath))
-				return;
-
-			if (File.Exists(fd.SelectedFileFullPath)) {
-				MessageBox mb = MessageBox.ShowModal (this, MessageBox.Type.YesNo, "File exists, overwrite?");
-				mb.Yes += (sender2, e2) => {
-					CurrentFile = fd.SelectedFileFullPath;
-					save ();
-				};
-				return;
-			}
-
-			CurrentFile = fd.SelectedFileFullPath;
-			save ();
-		}
-
-		void newFile()
-		{
-			disableTextChangedEvent = true;
-			Source = @"<Label Text='Hello World' Background='MediumSeaGreen' Margin='10'/>";
-			disableTextChangedEvent = false;
-			resetUndoRedo ();
-			if (!string.IsNullOrEmpty (CurrentFile))
-				CurrentFile = Path.Combine (Path.GetDirectoryName (CurrentFile), "newfile.crow");
-			else
-				CurrentFile = Path.Combine (CurrentDir, "newfile.crow");
-		}
-
-		void save () {
-			using (Stream s = new FileStream(CurrentFile, FileMode.Create)) {
-				s.WriteByte (0xEF);
-				s.WriteByte (0xBB);
-				s.WriteByte (0xBF);
-				byte [] buff = Encoding.UTF8.GetBytes (source);
-				s.Write (buff, 0, buff.Length);
-			}
-			origSource = source;
-			NotifyValueChanged ("IsDirty", IsDirty);
-			CMDSave.CanExecute = false;
-		}
-
-		void reloadFromFile () {			
-			disableTextChangedEvent = true;
-			if (File.Exists (CurrentFile)) {
-				using (Stream s = new FileStream (CurrentFile, FileMode.Open)) {
-					using (StreamReader sr = new StreamReader (s))
-						Source = origSource = sr.ReadToEnd ();
-				}
-			}
-			disableTextChangedEvent = false;
-			resetUndoRedo ();
-		}		
-
-		public void goUpDirClick (object sender, MouseButtonEventArgs e)
-		{
-			string root = Directory.GetDirectoryRoot (CurrentDir);
-			if (CurrentDir == root)
-				return;
-			CurrentDir = Directory.GetParent (CurrentDir).FullName;
-		}
-
-		void Dv_SelectedItemChanged (object sender, SelectionChangeEventArgs e)
-		{
-			FileSystemInfo fi = e.NewValue as FileSystemInfo;
-			if (fi == null)
-				return;
-			if (fi is DirectoryInfo)
-				return;
-
-			if (IsDirty) {
-				MessageBox mb = MessageBox.ShowModal (this, MessageBox.Type.YesNo, "Current file has unsaved changes, are you sure?");
-				mb.Yes += (mbsender, mbe) => { CurrentFile = fi.FullName; reloadFromFile (); };
-				return;
-			}
-
-			CurrentFile = fi.FullName;
-			reloadFromFile ();
-		}
-		void onTextChanged (object sender, TextChangeEventArgs e) {
-			if (disableTextChangedEvent)
-				return;
-			applyChange (e.Change);
-		}		
-		
-		void onSelectedTextChanged (object sender, EventArgs e) {			
-			selection = (sender as Label).Selection;
-			Console.WriteLine($"selection:{selection.Start} length:{selection.Length}");
-			CMDCut.CanExecute = CMDCopy.CanExecute = !selection.IsEmpty;
-		}
-		void textView_KeyDown (object sender, Crow.KeyEventArgs e) {
-			if (Ctrl) {
-				if (e.Key == Glfw.Key.W) {
-					if (Shift)
-						CMDRedo.Execute ();
-					else
-						CMDUndo.Execute ();
-				} else if (e.Key == Glfw.Key.S) {
-					onSave ();
-				}
-			}
-		}
-
-
 
         public override bool OnKeyDown (Key key) {
 
-- 
cgit v1.3.1-4-g156e