From 54f5c578573ee15fa33c6726e9a3d1970d56d6fb Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 21 Sep 2025 20:21:03 -0400
Subject: [PATCH] fix a netcode deadlock, add a "copy sixel" menu

---
 ntalk.tcl | 37 +++++++++++++++++++++++--------------
 1 file changed, 23 insertions(+), 14 deletions(-)

diff --git a/ntalk.tcl b/ntalk.tcl
index 9ed4473fe22c059b339758d1efe00ac07cf5b9ef..f278227481de56d11cd74f1da0e9bf5ba6e6fc5e 100755
--- a/ntalk.tcl
+++ b/ntalk.tcl
@@ -397,6 +397,11 @@ proc finishsixel {} {
 
 
 menu .savesixel -tearoff 0
+.savesixel add command -label "copy sixel" -command {
+	clipboard clear
+	clipboard append "\\([dict get $images "image:$clickedimage"])"
+	set clickedsixel {}
+}
 .savesixel add command -label "save sixel..." -command {
 	bind . <Button> {}
 
@@ -585,29 +590,33 @@ proc doskip {delay} {
 
 if {[catch {package require Thread}] == 0} { # threading supported!
 	set threads 1
-
 	set main [thread::id]
 
 	set nett [thread::create]
 	thread::transfer $nett $sok
-	thread::send $nett [concat [subst -nocommands {
-	set sok $sok
-	interp alias {} restart {} thread::send $main restart
-	interp alias {} bufdown {} thread::send -async $main bufdown
-	interp alias {} bufclear {} thread::send -async $main bufclear
-	proc bufpush {x} { thread::send -async $main [list bufpush [set x]] }
-	proc setclients {x} { thread::send -async $main [list setclients [set x]] }
-	proc setlastmsg {x} {
-		global lastmsg
-		set lastmsg [set x]
-		thread::send -async $main [list setlastmsg [set x]]
-	}
+	
+	thread::send $nett [concat [subst -nocommands {	
+		proc restart {} {
+			global argv0
+			exec [info nameofexecutable] $argv0 &
+			exit 0
+		}
+		set sok $sok
+		interp alias {} bufdown {} thread::send -async $main bufdown
+		interp alias {} bufclear {} thread::send -async $main bufclear
+		proc bufpush {x} { thread::send -async $main [list bufpush [set x]] }
+		proc setclients {x} { thread::send -async $main [list setclients [set x]] }
+		proc setlastmsg {x} {
+			global lastmsg
+			set lastmsg [set x]
+			thread::send -async $main [list setlastmsg [set x]]
+		}
 	}] ";" $netcode]
 
 
 	interp alias {} hist {} thread::send -async $nett hist
-	proc pollmsgs {n} [subst -nocommands { thread::send $nett [list pollmsgs [set n]] }]
 	proc send {line} [subst -nocommands { thread::send $nett [list send [set line]] }]
+	proc pollmsgs {n} [subst -nocommands { thread::send -async $nett [list pollmsgs [set n]] }]
 	proc last {n} [subst -nocommands { thread::send -async $nett [list last [set n]] }]
 } else {
 	set threads 0