6 lines
332 B

package require twapi
puts stdout [list stdin [twapi::get_console_input_mode [twapi::get_console_handle stdin]]]
puts stdout [list stdout [twapi::get_console_output_mode [twapi::get_console_handle stdout]]]
puts stdout [list screenbufferinfo [twapi::get_console_screen_buffer_info [twapi::get_console_handle stdout] -all]]