add yank functionality in imperative shell

2024-11-11 05:27:20 +00:00
parent ae68627a8f
commit 54090ccf64
5 changed files with 14 additions and 0 deletions
--- a/message-types/draw-msg.sml
+++ b/message-types/draw-msg.sml
@@ -3,6 +3,7 @@ sig
  datatype t =
    REDRAW_TEXT of Real32.real vector
  | REDRAW_CURSOR of Real32.real vector
+  | YANK of string
 end

 structure DrawMsg :> DRAW_MSG =
@@ -10,4 +11,5 @@ struct
  datatype t =
    REDRAW_TEXT of Real32.real vector
  | REDRAW_CURSOR of Real32.real vector
+  | YANK of string
 end