Terminal control/Hiding the cursor: Difference between revisions
Content added Content deleted
(upgraded to task.) |
({{omit from|ZX Spectrum Basic}}) |
||
| Line 30: | Line 30: | ||
puts "back to normal" |
puts "back to normal" |
||
after 1000</lang> |
after 1000</lang> |
||
{{omit from|ZX Spectrum Basic|The cursor appears in a separate area, and does not appear unless input is required}} |
|||
Revision as of 06:45, 3 June 2011
You are encouraged to solve this task according to the task description, using any language you may know.
The task is to hide the cursor and show it again.
PicoLisp
<lang PicoLisp>(call "tput" "civis") # Invisible (wait 1000) (call "tput" "cvvis") # Visible</lang>
Tcl
<lang tcl>proc cursor Template:State "normal" {
switch -- $state {
"normal" {set op "cnorm"} "invisible" {set op "civis"} "visible" {set op "cvvis"}
} # Should be just: “exec tput $op” but it's not actually supported on my terminal... exec sh -c "tput $op || true"
}</lang> Demonstration code: <lang tcl>cursor normal puts "normal cursor" after 3000 cursor invisible puts "invisible cursor" after 3000 cursor visible puts "very visible cursor" after 3000 cursor normal puts "back to normal" after 1000</lang>