1 files changed, 9 insertions(+), 3 deletions(-)

M 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]