File: ColorTest.tcl

package info (click to toggle)
gcvs 1.0final-12
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 12,248 kB
  • ctags: 10,631
  • sloc: ansic: 71,709; cpp: 39,780; sh: 18,434; makefile: 1,915; yacc: 1,299; tcl: 1,283; perl: 910; lex: 249; csh: 185; lisp: 7
file content (38 lines) | stat: -rw-r--r-- 2,905 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
#!CVSGUI1.0 --selection --name "color test"

#
#  Test file for the new embedded attributes in WinCVS
#

if {1} {

cvsout "\006CC\006\u2554\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2557"
cvsout "\006CC\006\u2551\006C\006 \006B+\006Goto\006B-\006 \006L+\006http://www.wincvs.org\006L-\006 for \006C#008A00\006\006I+\006free\006I-\006\006C\006 software\u263A No \006S+\006Bull\006S-\006! \006CC\006\u2551"
cvsout "\006CC\006\u255f\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2562"
cvsout "\006CC\006\u2551\006C\006      Now with \006B+\006UNICODE\006B-\006 and \006C2\006e\006C3\006n\006C4\006h\006C5\006a\006C6\006n\006C7\006c\006C8\006e\006C9\006d \006CA\006d\006CB\006i\006CC\006s\006CD\006p\006CE\006l\006C1\006ay \006CC\006\006I+\006\006B+\006power\006I-\006\006B-\006       \u2551" 
cvsout "\006CC\006\u255f\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2500\u2562"
cvsout "\006CC\006\u2551\006C\006 greek:\u03a8\u0393\u03a9\u03a6\u03a3 arabic:\ufdf2\ufe9e\ufe9f\ufc73\u06f3 cyrillic:\u043b\u0402\u0419\u040a Isn't this fun? \006CC\006\u2551" 
cvsout "\006CC\006\u255a\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u2550\u255d"

} else {

# Bold
cvsout "\006B\006bold"
# italic
cvsout "\006I\006italic"
# strikeout
cvsout "\006S\006strikeout"
# underline
cvsout "\006U\006underline"
# url
cvsout "\006L\006ftp://ftp.scriptics.com/pub/tcl"
# reverse (not working yet...)
cvsout "\006V\006reverse (not working yet...)"
# character spacing (not working yet...)
cvsout "\006PP\006proportional\006PF\006fixed\006P\006default (not working yet...)"
# blinking (remaps to bold for now)
cvsout "\006K\006blinking (remaps to bold for now...)"
# font size
cvsout "\006F+1\006I'm +1 \006F+1\006I'm +2 \006F+1\006I'm +3 (font size not supported yet...)"

}