"SfR Fresh" - the SfR Freeware/Shareware Archive 
Member "OpenVerse/lib/Globals.tcl" of archive OpenVerse-0.8-7.tar.gz:
As a special service "SfR Fresh" has tried to format the requested source page into HTML format using (guessed) Tcl/Tk source code syntax highlighting with prefixed line numbers.
Alternatively you can here view or download the uninterpreted source code file.
That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field.
1 # OpenVerse InitGlobal Variables
2 #
3 # this file initalizes the program and does any
4 # platform specific things/setup. It will then source
5 # supporting modules.
6 #
7 # Module Name - Init Global Variables
8 # Current Maintainter - Cruise <cruise@openverse.org>
9 # Sourced By - Main Module
10 #
11 # Modifications by KaosBeetl:
12 # Room History, 01/16/2000, revised 02/07/2000, again 02/09/2000
13 #
14 # Modifications by Sketch:
15 # Platform specific settings, 10/16/2001
16 #
17 # Copyright (C) 1999 David Gale <cruise@openverse.org>
18 # For more information visit http://OpenVerse.org/
19 #
20 # This program is free software; you can redistribute it and/or
21 # modify it under the terms of the GNU General Public License
22 # as published by the Free Software Foundation; either version 2
23 # of the License, or (at your option) any later version.
24 #
25 # This program is distributed in the hope that it will be useful,
26 # but WITHOUT ANY WARRANTY; without even the implied warranty of
27 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
28 # GNU General Public License for more details.
29 #
30 # You should have received a copy of the GNU General Public License
31 # along with this program; if not, write to the Free Software
32 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
33 # USA.
34
35 # ------------------------------------
36 # Platform Specific Defaults
37 # ------------------------------------
38 switch [array get tcl_platform platform] {
39 "platform macintosh" {
40 # This setting is really moot..
41 # Macintosh does not support the exec command.
42 set MV(browser_cmd) "netscape"; # Default browser for URLs
43 }
44 "platform unix" {
45 set MV(browser_cmd) "netscape"; # Default browser for URLs
46 }
47 default {
48 # This is Windows!
49 set MV(browser_cmd) "start"; # Default browser for URLs
50 }
51 }
52 #
53 # ------------------------------------
54 # General Defaults
55 # ------------------------------------
56 #
57 # THIS IS THE DEFAULT SERVER AND PORT
58 #
59 set MV(default_host) "openverse.com"; # Setup uses this one so as not to adopt the current host as the default host each time setup is pressed.
60 set MV(default_port) "7000"; # Setup uses this one so as not to adopt the current port as the default port each time setup is pressed.
61 set MV(roomhost) "openverse.com"; # This is our default server hostname.
62 set MV(roomport) "7000"; # This is our default server port.
63 #
64 # Significant RunTime Variables
65 #
66 # The following variables will have an effect on
67 # OpenVerse at runtime. Others will not affect OpenVerse
68 # visibly and are listed after this block.
69 #
70 # Directories and files
71 #
72 set MV(bookmarks) "$MV(homedir)/passageways.txt"; # Our bookmarks file.
73 set MV(languagedir) "$MV(libbase)/language"; # Where our language file is kept.
74 set MV(configfile) "$MV(homedir)/MetaV.cfg"; # The name of our configuration file.
75 set MV(history) "$MV(homedir)/history.txt"; # The name of the file which holds our room history.
76 set MV(rem_images) "$MV(homedir)/rimages"; # The dir where we keep remote avatar images.
77 set MV(plugindir) "$MV(homedir)/plugins"; # The directory where plugins are placed.
78 set MV(objects) "$MV(homedir)/objects"; # Where do we store server object images?
79 set MV(paneldir) "$MV(homedir)/panels"; # Where we keep our panel files.
80 set MV(images) "$MV(homedir)/images"; # The dir where we keep our own avatar images.
81 set MV(icondir) "$MV(homedir)/icons"; # Where do we store the application's icon files?
82 set MV(roomdir) "$MV(homedir)/rooms"; # The dir where we store room images.
83 set MV(anims) "$MV(homedir)/anims"; # The directory where .av files are stored.
84 set MV(avatar) "default.gif"; # Your avatar's image name.
85 set MV(anim) "default.av"; # Your avatar's .av file name.
86 # MV(helpdir); # The directory we keep our help files in, OpenVerse.tcl sets this platform specific variable.
87 # MV(libbase); # Used with UNIX type machines to copy files from the central install location.
88 # MV(libdir); # The directory we keep our library files in, OpenVerse.tcl sets this platform specific variable.
89
90 #
91 # Strings
92 #
93 set MV(personal.info) "Type Information About Yourself Here!"; # Info about us as displayed in our personal information section.
94 set MV(personal.image) "$MV(homedir)/icons/pinfo.gif"; # The inage displayed in the personal info section.
95 set MV(personal.homepage) "http://openverse.org/"; # Our home page as displayed in our personal info.
96 set MV(personal.email) "myemail@example.com"; # Our email address as displayed in our personal info.
97 set MV(download_dir) "$MV(homedir)/download"; # Where do we download files to.
98 set MV(roomname) "Welcome To The OpenVerse"; # The name of the room which we are currently in.
99 set MV(personal.realname) "My Real Name"; # Our real name as displayed in our personal info.
100 set MV(personal.availability) "Never"; # How to make our personal information available to other users.
101 set MV(font.balloon.style) "normal"; # The style of the font we use in balloons.
102 set MV(personal.sex) "Other"; # The sex which is displayed in our personal Info.
103 set MV(ChtButState) "show"; # Is the chat button bar shown or hidden?
104 set MV(language) "English"; # The language which this user is using.
105 set MV(nick) "Guest"; # Your nick name!
106 set MV(panel) "Fun"; # The name of the default panel
107 #
108 # Numeric Variables
109 #
110 set MV(use_windowmanager_colors) 0; # Do we use our own colors or do we let the window manager set the colors.
111 set MV(connect_on_startup) 0; # boolean for connect on startup to the default server
112 set MV(font.balloon.size) 12; # The font size to use in balloons.
113 set MV(download_avatars) 1; # Do we download avatars?
114 set MV(name_y_offset) 40; # Our name tag's Y offset (from the image's center)
115 set MV(anim.baloon_x) 24; # Our default X offset for our chat balloon.
116 set MV(sort_bookmarks) 0; # Do we sort our bookmarks by the time visited?
117 set MV(name_x_offset) 0; # Our name tag's X offset (from the image's center)
118 set MV(anim.baloon_y) 6; # Our default Y offset for our chat balloon.
119 set MV(sendbuffer) 4096; # The buffersize to use when sending and receiving files.
120 set MV(honor_effects) 1; # Do we honor avatar effects?
121 set MV(font.balloon) -1; # The font you will use in balloons.
122 set MV(history_max) 10; # Maximum entries in the history list.
123 set MV(dcctimeout) 180; # How many seconds do we allow a DCC to not get data for before we kill it.
124 set MV(anim.y_off) 20; # Our default Y offset for our nametag
125 set MV(keep_images) 3; # How many days do we keep other user's images for?
126 set MV(honor_exits) 1; # Do we honor the server's EXIT protocol commands?
127 set MV(urltimeout) 45; # Seconds URLs will stay on the screen for.
128 set MV(anim.x_off) 0; # Our default X offset for our nametag
129 set MV(honor_call) 1; # Do we honnor calls?
130 set MV(chatsave) 200; # How many lines of chat history do we save?
131 set MV(prevsave) 100; # How many items will be stored in the history for things we sent to the server.
132 set MV(TCCommand) 0; # Special Chat Type Selected.
133 set MV(timestamp) 0; # Do we display time stamps?
134 set MV(staytime) 10; # How many seconds balloons stay on the screen for.
135 set MV(movespeed) 8; # how fast do we move?
136 set MV(tooltips) 1; # Do we setup tooltips for the buttons?
137 set MV(nosort) 0; # Overrides Passageway Sorting.
138 set MV(rot13) 0; # Are we using ROt13 encoding?
139 set MV(bell) 1; # Do we beep on sound events?
140 set MV(img) -1; # Our Avatar image's ID number on the canvas.
141 set MV(x) 320; # Our X location on the canvas.
142 set MV(y) 200; # Our Y location on the canvas.
143 #
144 # The following variables initalize various runtime states and should not
145 # be changed at all!! DO NOT CHANGE VARIABLES WITHIN THIS BLOCK.
146 #
147 # Begin State Initialization Section.
148 #
149 # Strings
150 #
151 set MV(version) "0.8-7"; # OpenVerse Version Number
152 set MV(MyIpAddress) "0.0.0.0"; # This will be set to your correct IP Address once you download something.
153 #
154 # List Variables
155 #
156 set MV(personals.wanted) {}; # A list of the people we want personal information from.
157 set MV(server_objects) {}; # A list of generic objects (multiple types)
158 set MV(server_queries) {}; # Used when querying servers. Contains a list of numbers for servers queried.
159 set MV(ignore.avatar) {}; # A list of users who's avatars we are ignoring.
160 set MV(ignore.effect) {}; # A list of users who we are ignoring effects for.
161 set MV(ignore.speech) {}; # A list of users who we are not listening to.
162 set MV(server_links) {}; # A list of LINK objects.
163 set MV(server_tells) {}; # A list of server TELL objects.
164 set MV(server_exits) {}; # A list of EXIT_OBJ objects.
165 set MV(ignore.move) {}; # A list of users who's MOVE protocol commands are ignored.
166 set MV(ignore.sub) {}; # A list of uasers who's SUB protocol commands we are ignoring.
167 set MV(ignore.url) {}; # A list od users who's URLs we are ignoring.
168 set MV(ignore.all) {}; # A list of the people who we have chosen to ignore ALL types of messages from.
169 set MV(downloads) {}; # A list of downloads in progress.
170 set MV(roomloads) {}; # A list of room images which are downloading.
171 set MV(plugins) {}; # A list of plugins installed.
172 set MV(people) {}; # A list of user names for everyone who is connected.
173 set MV(chats) {}; # This is the chat history, defaults to 200 lines.
174 set MV(moves) {}; # A list of users moves which are qued up.
175 set MV(prev) {}; # A list of all the stuff we've sent to the server.
176 set MV(dcc_list) {}; # A list of active downloads.
177 #
178 # Numeric Variables
179 #
180 set MV(default_avatar_number) 0; # Which avatar in the list is our default one?
181 set MV(debug.scroll.other) 1; # Do we scroll the debug 'other' section?
182 set MV(debug.scroll.prot) 1; # Do we scroll the debug 'protocol' section?
183 set MV(current_exits_id) 0; # What is the id for the next exit object we create.
184 set MV(downloadingroom) 0; # Are we downloading a room image?
185 set MV(textwindow.lock) 0; # Our scroll lock option within the Text Chat window.
186 set MV(current_link_id) 0; # What is the id for the next link object we create.
187 set MV(current_tell_id) 0; # What is the id for the next tell object we create.
188 set MV(anim.current) -1; # The avtar number which we are wearing.
189 set MV(popup_window) 0; # Used for error dialogs. Incrementing number.
190 set MV(anim.running) 0; # If our avatar is animated, is it currently running?
191 set MV(pwq.queries) 0; # Used by the Passageways module and is the number of queries which we activated to the servers.
192 set MV(textwindow) 0; # Is the Text Chat window open?
193 set MV(killsteam) 0; # ID used for holding the name of the person who belongs to a steam image.
194 set MV(killnotes) 0; # ID used for holding the name of the person who belongs to a music notes image.
195 set MV(killsmile) 0; # ID used for holding the name of the person who belongs to a smile image.
196 set MV(killfrown) 0; # ID used for holding the name of the person who belongs to a frown image.
197 set MV(anim.stop) 1; # Are we going to stop the animation next time it's scheduled to run?
198 set MV(killhigh) 0; # ID used for holding the name of the person who belongs to a chat balloon.
199 set MV(killlove) 0; # ID used for holding the name of the person who belongs to a love image.
200 set MV(killidea) 0; # ID used for holding the name of the person who belongs to a idea image.
201 set MV(killwink) 0; # ID used for holding the name of the person who belongs to a wink image.
202 set MV(curprev) -1; # This tells us if we are scrolling forwards or backwards in our sent chat history.
203 set MV(dcc_num) 0; # The number of the next DCC transfer we will do.
204 set MV(moving) 0; # Are we moving?
205 set MV(names) 1; # Do we show user nametags?
206 set MV(sock) -1; # This is our socket to the server.
207 set MV(debug) 0; # Are we in debug mode?
208 set MV(log) 0; # Are we logging things?
209 #
210 # Window name variables.
211 #
212 set MV(avatar_menu) "ERROR"; # This is the container for the avatars menu button. Your pannel should set this.
213 set MV(chat_entry) "ERROR"; # This is the container for the chat entry widget. Your pannel should set this.
214 set MV(connect_button) "ERROR"; # This is the container for the connect button widget. Your pannel should set this.
215 set MV(names_menu) "ERROR"; # This is the container for the Names menu button widget. Your pannel should set this.
216 set MV(passageways_menu) "ERROR"; # This is the container for the Passageways menu button widget. Your pannel should set this.
217 set MV(plugin_frame) "ERROR"; # This is the container for plugins to use to put any buttons they may need. Your pannel should set this.
218 #
219 # End State Initialization Section.
220 #
221
222 # ------------------------------------------------------------------------
223 # Plugin Specific Variables.
224 # ------------------------------------------------------------------------
225
226 # ------------------------------------
227 # ProcChat {who what system balloon}
228 # ------------------------------------
229 set MV(plugin.traps.ProcChat.pre) {}
230 set MV(plugin.traps.ProcChat.post) {}
231
232 # ------------------------------------
233 # endDCC {transfer_type download_index success_flag message}
234 # ------------------------------------
235 set MV(plugin.traps.endDCC.pre) {}
236 set MV(plugin.traps.endDCC.post) {}
237
238 # ------------------------------------
239 # ChangeAvatar {filename}
240 # ------------------------------------
241 set MV(plugin.traps.ChangeAvatar) {}
242
243 # ------------------------------------
244 # ChangeNick {newnick}
245 # ------------------------------------
246 set MV(plugin.traps.ChangeNick) {}
247
248 # ------------------------------------
249 # ChangeUserAvatar {who filename name_x name_y filesize baloon_x baloon_y}
250 # ------------------------------------
251 set MV(plugin.traps.ChangeUserAvatar) {}
252
253 # ------------------------------------
254 # Disconnect {}
255 # ------------------------------------
256 set MV(plugin.traps.Disconnect) {}
257
258 # ------------------------------------
259 # Debug_memory {file_descriptor}
260 # ------------------------------------
261 set MV(plugin.traps.Debug_memory) {}
262
263 # ------------------------------------
264 # Names {} (Called once, for options which affect ALL users)
265 # ------------------------------------
266 set MV(plugin.traps.Names) {}
267
268 # ------------------------------------
269 # DoNames {widget who idx} (will call for each name in list.)
270 # ------------------------------------
271 set MV(plugin.traps.DoNames) {}
272
273 # ------------------------------------
274 # Exit {host port}
275 # ------------------------------------
276 set MV(plugin.traps.Exit.pre) {}
277 set MV(plugin.traps.Exit.post) {}
278
279 # ------------------------------------
280 # ShowName {who}
281 # ------------------------------------
282 set MV(plugin.traps.ShowName) {}
283
284 # ------------------------------------
285 # ShowNames {who} (will process for each user.)
286 # ------------------------------------
287 set MV(plugin.traps.ShowNames) {}
288
289 # ------------------------------------
290 # KillNames {who} (will process for each user.)
291 # ------------------------------------
292 set MV(plugin.traps.KillNames) {}
293
294 # ------------------------------------
295 # ProcURL {who url type}
296 # ------------------------------------
297 set MV(plugin.traps.ProcURL) {}
298
299 # ------------------------------------
300 # RightClick {x y}
301 # ------------------------------------
302 set MV(plugin.traps.RightClick) {}
303
304 # ------------------------------------
305 # MoveTo {x y}
306 # ------------------------------------
307 set MV(plugin.traps.MoveTo.Pre) {}
308 set MV(plugin.traps.MoveTo.Post) {}
309
310 # ------------------------------------
311 # Pushed {x y}
312 # ------------------------------------
313 set MV(plugin.traps.Pushed.Pre) {}
314 set MV(plugin.traps.Pushed.Post) {}
315
316 # ------------------------------------
317 # MoveUser {who x y speed}
318 # ------------------------------------
319 set MV(plugin.traps.MoveUser.Pre) {}
320 set MV(plugin.traps.MoveUser.Post) {}
321
322 # ------------------------------------
323 # NewPerson {who x y filename name_x name_y filesize baloon_x baloon_y}
324 # ------------------------------------
325 set MV(plugin.traps.NewPerson) {}
326
327 # ------------------------------------
328 # ProcessCommand {original cmd parms rest}
329 # ------------------------------------
330 set MV(plugin.traps.ProcessCommand) {}
331
332 # ------------------------------------------------------------------------
333 # Our URL Type Handlers.
334 # ------------------------------------------------------------------------
335 set MV(URLS.x) {20 60 100 140 180 220 260 300 340 380 420 460 500 540 580 620}
336 set MV(URLS.y) {20 60 100 140 180 220 260 300 340 380 420}
337 for {set c 0} {$c < 16} {incr c} {
338 for {set d 0} {$d < 12} {incr d} {
339 set MV(URLS.$c.$d) 0
340 }
341 }
342
343 # ------------------------------------------------------------------------
344 # Our default color scheme.
345 # ------------------------------------------------------------------------
346
347 # ------------------------------------
348 # PersonLeft {who}
349 # ------------------------------------
350 set MV(plugin.traps.PersonLeft) {}
351
352 # ------------------------------------
353 # ProcessInput {original_text cmd parms rest}
354 # ------------------------------------
355 set MV(plugin.traps.ProcessInput.pre) {}
356 set MV(plugin.traps.ProcessInput.post) {}
357
358 # ------------------------------------
359 # SendText {text_to_send}
360 # ------------------------------------
361 set MV(plugin.traps.SendText) {}
362
363 # ------------------------------------------------------------------------
364 # Balloon Fonts available.
365 # ------------------------------------------------------------------------
366 #
367 # Build a list from available fonts.
368 #
369 set MV(font.balloon.-1.name) ""
370 set MV(font.balloon.-1.normal) ""
371 set MV(font.balloon.-1.bold) "-weight bold"
372 set MV(font.balloon.-1.italic) "-slant italic"
373 set MV(font.balloon.-1.bold_italic) "-slant italic -weight bold"
374 set MV(font_max) 0
375 foreach family [lsort [font families]] {
376 set MV(font.balloon.$MV(font_max).name) "$family"
377 set MV(font.balloon.$MV(font_max).normal) "-family \"$family\""
378 set MV(font.balloon.$MV(font_max).bold) "-family \"$family\" -weight bold"
379 set MV(font.balloon.$MV(font_max).italic) "-family \"$family\" -slant italic"
380 set MV(font.balloon.$MV(font_max).bold_italic) "-family \"$family\" -slant italic -weight bold"
381 incr MV(font_max)
382 }
383 incr MV(font_max) -1
384
385 # ------------------------------------------------------------------------
386 # Our default color scheme.
387 # ------------------------------------------------------------------------
388 # Colors of text in balloons.
389 set MV(defhl) "white"
390 set MV(defbg) "grey"
391 #
392 set MV(color.0) "white"
393 set MV(color.1) "black"
394 set MV(color.2) "navy blue"
395 set MV(color.3) "dark green"
396 set MV(color.4) "red"
397 set MV(color.5) "brown"
398 set MV(color.6) "magenta"
399 set MV(color.7) "orange"
400 set MV(color.8) "yellow"
401 set MV(color.9) "green"
402 set MV(color.00) "white"
403 set MV(color.01) "black"
404 set MV(color.02) "navy blue"
405 set MV(color.03) "dark green"
406 set MV(color.04) "red"
407 set MV(color.05) "brown"
408 set MV(color.06) "magenta"
409 set MV(color.07) "orange"
410 set MV(color.08) "yellow"
411 set MV(color.09) "green"
412 set MV(color.10) "#008080"
413 set MV(color.11) "cyan"
414 set MV(color.12) "blue"
415 set MV(color.13) "hot pink"
416 set MV(color.14) "dark grey"
417 set MV(color.15) "light grey"
418 set MV(color.16) "white"
419 set MV(color.99) "black"
420 # Baloons.
421 set MV(colors.chat.baloon) "white"
422 set MV(colors.chat.text) "black"
423 set MV(colors.privmsg.baloon) "light blue"
424 set MV(colors.privmsg.text) "black"
425 set MV(colors.system.baloon) "white"
426 set MV(colors.system.text) "red"
427 set MV(colors.whois.baloon) "light green"
428 set MV(colors.whois.text) "black"
429
430 # ------------------------------------
431 # Main Window Buttons, entry points. (Button Mode)
432 # ------------------------------------
433 set MV(colors.buttons.quit.bg) "light blue"
434 set MV(colors.buttons.quit.fg) "black"
435 set MV(colors.buttons.quit.abg) "light blue"
436 set MV(colors.buttons.quit.afg) "red"
437 # ------------------------------------
438 set MV(colors.buttons.textchat.bg) "light blue"
439 set MV(colors.buttons.textchat.fg) "black"
440 set MV(colors.buttons.textchat.abg) "light blue"
441 set MV(colors.buttons.textchat.afg) "red"
442 # ------------------------------------
443 set MV(colors.buttons.help.bg) "light blue"
444 set MV(colors.buttons.help.fg) "black"
445 set MV(colors.buttons.help.abg) "light blue"
446 set MV(colors.buttons.help.afg) "red"
447 # ------------------------------------
448 set MV(colors.buttons.setup.bg) "light blue"
449 set MV(colors.buttons.setup.fg) "black"
450 set MV(colors.buttons.setup.abg) "light blue"
451 set MV(colors.buttons.setup.afg) "red"
452 # ------------------------------------
453 set MV(colors.buttons.passageways.bg) "light blue"
454 set MV(colors.buttons.passageways.fg) "black"
455 set MV(colors.buttons.passageways.abg) "light blue"
456 set MV(colors.buttons.passageways.afg) "red"
457 # ------------------------------------
458 set MV(colors.buttons.aved.bg) "light blue"
459 set MV(colors.buttons.aved.fg) "black"
460 set MV(colors.buttons.aved.abg) "light blue"
461 set MV(colors.buttons.aved.afg) "red"
462 # ------------------------------------
463 set MV(colors.buttons.animate.bg) "light blue"
464 set MV(colors.buttons.animate.fg) "black"
465 set MV(colors.buttons.animate.abg) "light blue"
466 set MV(colors.buttons.animate.afg) "red"
467 # ------------------------------------
468 set MV(colors.buttons.avatars.bg) "light blue"
469 set MV(colors.buttons.avatars.fg) "black"
470 set MV(colors.buttons.avatars.abg) "light blue"
471 set MV(colors.buttons.avatars.afg) "red"
472 # ------------------------------------
473 set MV(colors.buttons.sound.bg) "light blue"
474 set MV(colors.buttons.sound.fg) "black"
475 set MV(colors.buttons.sound.abg) "light blue"
476 set MV(colors.buttons.sound.afg) "red"
477 # ------------------------------------
478 set MV(colors.buttons.names.bg) "light blue"
479 set MV(colors.buttons.names.fg) "black"
480 set MV(colors.buttons.names.abg) "light blue"
481 set MV(colors.buttons.names.afg) "red"
482 # ------------------------------------
483 set MV(colors.buttons.names.chk.bg) "light blue"
484 set MV(colors.buttons.names.chk.fg) "black"
485 set MV(colors.buttons.names.chk.abg) "light blue"
486 set MV(colors.buttons.names.chk.afg) "red"
487 # ------------------------------------
488 set MV(colors.buttons.send.bg) "light blue"
489 set MV(colors.buttons.send.fg) "black"
490 set MV(colors.buttons.send.abg) "light blue"
491 set MV(colors.buttons.send.afg) "red"
492 # ------------------------------------
493 set MV(colors.buttons.connect.bg) "light blue"
494 set MV(colors.buttons.connect.fg) "black"
495 set MV(colors.buttons.connect.abg) "light blue"
496 set MV(colors.buttons.connect.afg) "red"
497 # ------------------------------------
498 # Main Window Entry Boxes
499 # ------------------------------------
500 set MV(colors.buttons.entry.bg) "light blue"
501 set MV(colors.buttons.entry.fg) "black"
502 # ------------------------------------
503 # Main Window Frames
504 # ------------------------------------
505 set MV(colors.frames.chat.bg) "light blue"
506 set MV(colors.frames.topbar.bg) "light blue"
507 set MV(colors.frames.canvas.bg) "light blue"
508 set MV(colors.frames.menu.bg) "light blue"
509 set MV(colors.frames.menu.bord.bg) "light blue"
510 set MV(colors.frames.menu.top.bg) "light blue"
511 set MV(colors.frames.menu.bot.bg) "light blue"
512 set MV(colors.frames.names.bg) "light blue"
513 # ------------------------------------
514 # Passageways Entries.
515 # ------------------------------------
516 set MV(colors.pw.bg) "light blue"
517 set MV(colors.pw.fg) "black"
518 set MV(colors.pw.abg) "light blue"
519 set MV(colors.pw.afg) "red"
520 # ------------------------------------
521 # Avatars Entries.
522 # ------------------------------------
523 set MV(colors.av.bg) "light blue"
524 set MV(colors.av.fg) "black"
525 set MV(colors.av.abg) "light blue"
526 set MV(colors.av.afg) "red"
527 # ------------------------------------
528 # Names Entries.
529 # ------------------------------------
530 set MV(colors.name.bg) "light blue"
531 set MV(colors.name.fg) "black"
532 set MV(colors.name.abg) "light blue"
533 set MV(colors.name.afg) "red"
534 # ------------------------------------
535 # URL Offer information Window.
536 # ------------------------------------
537 set MV(colors.url.frames.bg) "light blue"
538 set MV(colors.url.labels.fg) "black"
539 set MV(colors.url.labels.bg) "light blue"
540 set MV(colors.url.entries.fg) "light green"
541 set MV(colors.url.entries.bg) "black"
542 set MV(colors.url.buttons.bg) "light blue"
543 set MV(colors.url.buttons.abg) "light blue"
544 set MV(colors.url.buttons.fg) "black"
545 set MV(colors.url.buttons.afg) "red"
546 # ------------------------------------
547 # Download information Window.
548 # ------------------------------------
549 set MV(colors.dl.frames.bg) "light blue"
550 set MV(colors.dl.labels.bg) "light blue"
551 set MV(colors.dl.labels.fg) "black"
552 set MV(colors.dl.entries.bg) "black"
553 set MV(colors.dl.entries.fg) "light green"
554 set MV(colors.dl.buttons.bg) "light blue"
555 set MV(colors.dl.buttons.fg) "black"
556 set MV(colors.dl.buttons.abg) "light blue"
557 set MV(colors.dl.buttons.afg) "red"
558
559
560
561 #
562 # Build our download window array and set all items to 0ff
563 #
564 for {set c 0} {$c < 26} {incr c} {
565 for {set s 1} {$s < 4} {incr s} {
566 set MV(dls.$c.$s) 0; # Status Window ID.
567 set MV(dlcps.$c.$s) 0; # CPS for this transfer.
568 set MV(dlactive.$c.$s) 0; # Is this download active?
569 }
570 }
571 global tl
572 set tl(-1) 0
573
574
575 # ------------------------------------
576 # Personal Server Settings
577 # ------------------------------------
578 set MVS(serving) 0
579 set MVS(users) 0
580
581
582