From 5cd033f2dfc039fa8bb7885965e43f842e3ac407 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?David=20Granstr=C3=B6m?= <david@davidgranstrom.com>
Date: Thu, 19 Sep 2024 09:56:44 +0200
Subject: [PATCH] Update Document

---
 scide_scnvim/Classes/Document.sc | 48 +++++++++++++++++++++++++-------
 1 file changed, 38 insertions(+), 10 deletions(-)

diff --git a/scide_scnvim/Classes/Document.sc b/scide_scnvim/Classes/Document.sc
index d9be2cf8..1bacb39b 100644
--- a/scide_scnvim/Classes/Document.sc
+++ b/scide_scnvim/Classes/Document.sc
@@ -1,21 +1,37 @@
-// nvim Document implementation
-//
-// The following code is copied/adapted from the Document implementation found in ScIDE.sc
-// License GPLv3
+// The following code was copied from the LanguageServer.quark implementation
+// and adjusted to handle thisProcess.nowExecutingPath for scnvim
 
 Document {
-    classvar <dir="";
+    classvar <dir="", <allDocuments, >current;
+    classvar <globalKeyDownAction, <globalKeyUpAction, <>initAction;
+    classvar <>autoRun = true;
+    classvar <asyncActions;
+    classvar <>implementingClass;
 
-    // needed for thisProcess.nowExecutingPath to work.. see Kernel::interpretCmdLine
-    var <path, <dataptr;
+    var <>quuid, <title, <isEdited = false;
+    var <>toFrontAction, <>endFrontAction, <>onClose, <>textChangedAction;
 
-    *new {|path, dataptr|
-        ^super.newCopyArgs(path, dataptr);
+    var <envir, <savedEnvir;
+    var <>path, <>dataptr;
+    // var <editable = true, <promptToSave = true;
+
+    //path            { ^this.subclassResponsibility(thisMethod) }
+    keyDownAction   { ^this.subclassResponsibility(thisMethod) }
+    keyDownAction_  { ^this.subclassResponsibility(thisMethod) }
+    keyUpAction     { ^this.subclassResponsibility(thisMethod) }
+    keyUpAction_    { ^this.subclassResponsibility(thisMethod) }
+    mouseUpAction   { ^this.subclassResponsibility(thisMethod) }
+    mouseUpAction_  { ^this.subclassResponsibility(thisMethod) }
+    mouseDownAction { ^this.subclassResponsibility(thisMethod) }
+    mouseDownAction_{ ^this.subclassResponsibility(thisMethod) }
+
+    *newFromPath {|path, dataptr|
+        ^super.new.path_(path).dataptr_(dataptr);
     }
 
     *current {
         var path = SCNvim.currentPath;
-        ^Document(path, true);
+        ^Document.newFromPath(path, true);
     }
 
     *dir_ {|path|
@@ -31,4 +47,16 @@ Document {
         var path = this.path;
         ^path !? { path.dirname }
     }
+
+    *open {
+        |path, selectionStart=0, selectionLength=0, envir|
+        ^implementingClass.open(path, selectionStart=0, selectionLength=0, envir)
+    }
+
+    open {
+        |path, selectionStart=0, selectionLength=0, envir|
+        ^implementingClass.open(path, selectionStart=0, selectionLength=0, envir)
+    }
+
+    *implementationClass { ^LSPDocument }
 }