1 files changed, 17 insertions(+), 12 deletions(-)

M ntalk.tcl

@@ 265,7 265,7 @@ menu .menu.server.rm -tearoff 0
 .menu.nt add command -label "about ntalk" -command {
 	tk_messageBox -title "about ntalk" \
 		-message "ntalk\nby aleteoryx" \
-		-detail "last updated 2025-09-22" \
+		-detail "last updated 2025-09-23" \
 		-icon "info"
 }
 .menu.nt add separator


@@ 656,14 656,6 @@ bind . <Control-Return> {
 focus .buffer
 vwait cscript
 bind . <Control-Return> {}
-.buffer configure -state disabled
-bind .buffer <KeyPress> {
-	set k %A
-	if {[string is alnum $k] || ($k != "\t" && [string is space $k])} {
-		focus .foot.input
-		.foot.input insert insert $k
-	}
-}
 
 set fp [open $scriptpath w]
 puts $fp [string trim $cscript]


@@ 892,8 884,20 @@ proc n64k_date {} {
 
 ### BOOT ###
 
-last 64
-pollmsgs 15000
+.buffer configure -state disabled
+bind .buffer <KeyPress> {
+	set k %A
+	if {$k == " " || ![string is control $k]} {
+		focus .foot.input
+		.foot.input insert insert $k
+	} elseif {$k == "\b" && [selection own] == ".foot.input"} {
+		focus .foot.input
+		.foot.input delete sel.first sel.last
+	} elseif {$k == "\b"} {
+		focus .foot.input
+		.foot.input delete [expr {max(0,[.foot.input index insert]-1)}]
+	}
+}
 
 set typingid {}
 bind .foot.input <KeyPress> {


@@ 956,4 960,5 @@ bind .foot.input <Return> [concat [bind .foot.input <Return>] ";" {
 
 focus .foot.input
 
-
+last 64
+pollmsgs 15000