A-M baby

Task/Keyboard-input-Keypress-check/Tcl/keyboard-input-keypress-check-1.tcl

@@ -0,0 +1,9 @@
+fconfigure stdin -blocking 0
+set ch [read stdin 1]
+fconfigure stdin -blocking 1
+
+if {$ch eq ""} {
+    # Nothing was read
+} else {
+    # Got the character $ch
+}

Task/Keyboard-input-Keypress-check/Tcl/keyboard-input-keypress-check-2.tcl

@@ -0,0 +1,10 @@
+fileevent stdin readable GetChar
+proc GetChar {} {
+    set ch [read stdin 1]
+    if {[eof stdin]} {
+        exit
+    }
+    # Do something with $ch here
+}
+
+vwait forever; # run the event loop if necessary