Terminal control/Hiding the cursor: Difference between revisions
Content added Content deleted
m (→{{header|Tcl}}) |
|||
Line 457:
=={{header|Tcl}}==
<lang tcl>
proc cursorVisibility {{state normal}} {
switch -- $state {
}
}
▲ exec sh -c "tput $op || true"
Demo:
<lang tcl>
foreach x {visible invisible normal} {
cursorVisibility $x
puts -nonewline "$x cursor -> "
flush stdout
after 3000
puts {}
}
▲after 1000</lang>
=={{header|UNIX Shell}}==
|