Terminal control/Inverse video

From Rosetta Code
Revision as of 21:59, 10 November 2010 by rosettacode>Dkf (Example implementation in Tcl)
Terminal control/Inverse video is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

The task is to display a word in inverse video followed by a word in normal video.

Tcl

This only works on Unix terminals. <lang tcl># Get how the terminal wants to do things... set reverseVideoSeq [exec tput rev] set normVideoSeq [exec tput rmso]

  1. The things to print

set inReverse "foo" set inNormal "bar"

  1. Print those words

puts $reverseVideoSeq$inReverse$normVideoSeq$inNormal</lang>