Added PasteMono

src/nasu.tal

@@ -70,7 +70,7 @@
 	"Nasu 0a
 	( details ) "A 20 "Sprite 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "1 20 "Dec 20 "2024 00 01
+	( date ) "18 20 "Dec 20 "2024 00 01
 	( icon ) 83 =appicon
 
 @manifest ( ... )
@@ -84,10 +84,11 @@
 	( - ) 00 00 =file-save-mono "SaveMono $1
 	( - ) 01 "p =save-theme "SaveTheme $1
 	( - ) 01 "q =exit "Exit $1
-	( >>> ) 09 "Edit $1
+	( >>> ) 0a "Edit $1
 	( - ) 01 "c =edit-copy-chr "Copy $1
 	( - ) 05 "C =edit-copy-icn "CopyMono $1
 	( - ) 01 "v =edit-paste "Paste $1
+	( - ) 01 "v =edit-paste-icn "PasteMono $1
 	( - ) 01 "x =edit-cut "Cut $1
 	( - ) 00 08 =edit-erase "Erase $1
 	( - ) 00 "i =edit-invert "Invert $1
@@ -1094,6 +1095,11 @@
 	#0010 .File/length DEO2
 	;op-read <run> !<redraw>
 
+@edit-paste-icn ( -- )
+	;snarf-txt .File/name DEO2
+	#0008 .File/length DEO2
+	;op-read <run> !<redraw>
+
 @edit-cut ( -- )
 	edit-copy-chr ;op-erase <run> !<redraw>