From 0ace1505e13eedea3e4ab56db90ad1ebfe2fd0c0 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sun, 21 Sep 2025 22:19:57 -0400
Subject: [PATCH] highlight entry box when you type in the buffer

---
 ntalk.tcl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/ntalk.tcl b/ntalk.tcl
index f278227481de56d11cd74f1da0e9bf5ba6e6fc5e..3407114af617e1f4d848f9118ac7bf9483e0f87b 100755
--- a/ntalk.tcl
+++ b/ntalk.tcl
@@ -413,9 +413,7 @@ menu .savesixel -tearoff 0
 	pack .namesixel.ok -side bottom -padx 5 -pady 5
 	pack .namesixel.entry -side bottom -padx 5 -pady 5 -fill x
 
-	canvas .namesixel.img -height [image height $clickedimage] \
-		-width [image width $clickedimage]
-	.namesixel.img create image 1 1 -anchor nw -image $clickedimage
+	label .namesixel.img -image $clickedimage
 
 	label .namesixel.blurb -text "choose what to save this sixel as..."
 	pack .namesixel.img -side left -padx 5 -pady 5
@@ -427,6 +425,7 @@ menu .savesixel -tearoff 0
 bind .buffer <Button-3> {
 	if {$clickedimage == {}} {catch {
 		set clickedimage [.buffer image cget @%x,%y -image]
+		set clickedimage [dict get $images sixel:[dict get $images image:$clickedimage]]
 		.savesixel post %X %Y
 		bind . <Button> {
 			.savesixel unpost
@@ -466,6 +465,13 @@ focus .buffer
 vwait cscript
 bind . <Control-Return> {}
 .buffer configure -state disabled
+bind .buffer <KeyPress> {
+	set k %A
+	if {$k != {}} {
+		focus .foot.input
+		.foot.input insert insert $k
+	}
+}
 
 set fp [open $scriptpath w]
 puts $fp [string trim $cscript]