Trigger state change on cut/paste

src/nasu.tal

@@ -261,10 +261,14 @@
 @on-touch-zoomview ( -> )
 	.Mouse/y DEI2 .zoomview/y1 LDZ2 SUB2 #0020 LTH2 ?{
 		.Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #03 SFT2 NIP
-		( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftu <run> }
+		( ) DUP #00 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftu <run>
-		DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftd <run> }
+			state/<change> }
-		DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftr <run> }
+		DUP #00 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftd <run>
-		DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftl <run> }
+			state/<change> }
+		DUP #01 EQU .Mouse/state DEI #01 EQU #0101 NEQ2 ?{ ;op-shiftr <run>
+			state/<change> }
+		DUP #01 EQU .Mouse/state DEI #01 GTH #0101 NEQ2 ?{ ;op-shiftl <run>
+			state/<change> }
 		POP
 		( release mouse ) [ LIT2 00 -Mouse/state ] DEO !&finish }
 	.Mouse/x DEI2 .zoomview/x1 LDZ2 SUB2 #02 SFT2 #00 .selection/x1 LDZ #30 SFT2 ADD2
@@ -1092,15 +1096,18 @@
 @edit-paste ( -- )
 	;snarf-txt .File/name DEO2
 	#0010 .File/length DEO2
-	;op-read <run> !<redraw>
+	;op-read <run>
+	state/<change> !<redraw>
 
 @edit-paste-icn ( -- )
 	;snarf-txt .File/name DEO2
 	#0008 .File/length DEO2
-	;op-read <run> !<redraw>
+	;op-read <run>
+	state/<change> !<redraw>
 
 @edit-cut ( -- )
-	edit-copy-chr ;op-erase <run> !<redraw>
+	edit-copy-chr ;op-erase <run>
+	state/<change> !<redraw>
 
 @edit-erase ( -- )
 	;op-erase <run>