1 # ui-resource.tcl --
2 #
3 # FIXME: This file needs a description here.
4 #
5 # Copyright (c) 1993-2002 The Regents of the University of California.
6 # All rights reserved.
7 #
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions are met:
10 #
11 # A. Redistributions of source code must retain the above copyright notice,
12 # this list of conditions and the following disclaimer.
13 # B. Redistributions in binary form must reproduce the above copyright notice,
14 # this list of conditions and the following disclaimer in the documentation
15 # and/or other materials provided with the distribution.
16 # C. Neither the names of the copyright holders nor the names of its
17 # contributors may be used to endorse or promote products derived from this
18 # software without specific prior written permission.
19 #
20 # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS''
21 # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 # ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR
24 # ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
26 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
27 # CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
28 # OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
29 # OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30
31
32 global font
33 set font(helvetica10) {
34 r-normal--*-100-75-75-*-*-*-*
35 r-normal--10-*-*-*-*-*-*-*
36 r-normal--11-*-*-*-*-*-*-*
37 r-normal--*-100-*-*-*-*-*-*
38 r-normal--*-*-*-*-*-*-*-*
39 }
40 set font(helvetica12) {
41 r-normal--*-120-75-75-*-*-*-*
42 r-normal--12-*-*-*-*-*-*-*
43 r-normal--14-*-*-*-*-*-*-*
44 r-normal--*-120-*-*-*-*-*-*
45 r-normal--*-*-*-*-*-*-*-*
46 }
47 set font(helvetica14) {
48 r-normal--*-140-75-75-*-*-*-*
49 r-normal--14-*-*-*-*-*-*-*
50 r-normal--*-140-*-*-*-*-*-*
51 r-normal--*-*-*-*-*-*-*-*
52 }
53 set font(times14) {
54 r-normal--*-140-75-75-*-*-*-*
55 r-normal--14-*-*-*-*-*-*-*
56 r-normal--*-140-*-*-*-*-*-*
57 r-normal--*-*-*-*-*-*-*-*
58 }
59
60 proc search_font { foundry style weight points } {
61 global font
62 foreach f $font($style$points) {
63 set fname -$foundry-$style-$weight-$f
64 if [havefont $fname] {
65 return $fname
66 }
67 }
68 puts stderr "vic: can't find $weight $fname font (using fixed)"
69 if ![havefont fixed] {
70 puts stderr "vic: can't find fixed font"
71 exit 1
72 }
73 return fixed
74 }
75
76 proc init_fonts {} {
77 set foundry [option get . foundry Vic]
78
79 set helv10 [search_font $foundry helvetica medium 10]
80 set helv10b [search_font $foundry helvetica bold 10]
81 set helv12b [search_font $foundry helvetica bold 12]
82 set times14 [search_font $foundry times medium 14]
83
84 option add *Font $helv12b startupFile
85 option add Vic.medfont $helv12b startupFile
86 option add Vic.smallfont $helv10b startupFile
87 option add Vic.helpFont $times14 startupFile
88 option add Vic.entryFont $helv10 startupFile
89 }
90
91 proc init_resources {} {
92 #
93 # use 2 pixels of padding by default
94 #
95 option add *padX 2
96 option add *padY 2
97 #
98 # don't put tearoffs in pull-down menus
99 #
100 option add *tearOff 0
101
102 option add *Radiobutton.relief flat startupFile
103
104 #
105 # These can be overridden.
106 #
107 option add Vic.geometry 250x225 startupFile
108 option add Vic.mtu 1024 startupFile
109 option add Vic.network ip startupFile
110 option add Vic.framerate 8 startupFile
111 option add Vic.defaultTTL 16 startupFile
112 option add Vic.maxbw -1 startupFile
113 option add Vic.bandwidth 128 startupFile
114 option add Vic.iconPrefix vic: startupFile
115 option add Vic.priority 10 startupFile
116 option add Vic.confBusChannel 0 startupFile
117
118 option add Vic.videoFormat h.261 startupFile
119 option add Vic.sessionType rtpv2 startupFile
120 option add Vic.grabber none startupFile
121 option add Vic.stampInterval 1000 startupFile
122 option add Vic.switchInterval 5 startupFile
123 option add Vic.dither Dither startupFile
124 option add Vic.tile 1 startupFile
125 option add Vic.filterGain 0.25 startupFile
126 option add Vic.statsFilter 0.0625 startupFile
127 option add Vic.useHardwareDecode false startupFile
128 option add Vic.infoHighlightColor LightYellow2 startupFile
129 option add Vic.useJPEGforH261 false startupFile
130 option add Vic.stillGrabber false startupFile
131 option add Vic.siteDropTime "300" startupFile
132
133 #
134 # color resources
135 #
136 option add Vic.medianCutColors 150 startupFile
137 option add Vic.gamma 0.7 startupFile
138
139 #FIXME
140 option add Vic.jvColors 32 startupFile
141
142 #
143 # RTIP defaults
144 #
145 option add Vic.rtipXmin 655 startupFile
146 option add Vic.rtipXave 655 startupFile
147 option add Vic.rtipI 6553 startupFile
148 option add Vic.rtipSmax 1200 startupFile
149 option add Vic.rtipD 1200 startupFile
150 option add Vic.rtipJ 3279 startupFile
151 option add Vic.rtipZ 10000 startupFile
152 option add Vic.rtipW 1000 startupFile
153 option add Vic.rtipU 1000 startupFile
154 option add Vic.rtipType 1 startupFile
155
156 option add Vic.foundry adobe startupFile
157
158 init_fonts
159
160 option add Vic.suppressUserName true startupFile
161
162 option add Vic.softJPEGthresh -1 startupFile
163 option add Vic.softJPEGcthresh 6 startupFile
164
165 option add Vic.sunvideoDevice 0 startupFile
166 option add Vic.enableBVC false startupFile
167
168 # true to allow voice-switch to switch to self
169 option add Vic.vain false startupFile
170
171 # list of sdes items to display in info window
172 option add Vic.sdesList "cname tool email note"
173
174 catch "option readfile ~/.RTPdefaults startupFile"
175 }
176
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.