# OpenVerse "Pro" Panel
#
# this file initalizes the program and does any
# platform specific things/setup. It will then source
# supporting modules.
#
# Module Name		- Pro Panel Setup
# Sourced By		- InitMain.tcl
# Requires		- OpenVerse 0.8-6 or higher!
#
# Copyright (C) 1999-2001 David Gale <cruise@openverse.com>
# For more information visit http://www.openverse.com/
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,
# USA.

# Register some things
set MV(panel_cleanup) "pro_panel_cleanup"

# This panel's cleanup proc
proc pro_panel_cleanup {} {
	global MV

	destroy .menu.border
	destroy .menu.main
	destroy .chat
	set MV(panel_event) [ldifference $MV(panel_event) "pro_panel_event"]
	set MV(panel_cleanup) ""
}

if $MV(textwindow) ToggleText

set MV(plugin_frame) ".menu.main.plugins"
set MV(connect_button) ".menu.main.m.connect"
set MV(connect_button2) ".chat.bottom.buttons.frame.connect"
set MV(text_button) ".menu.main.m.text"
set MV(chat_entry) ".chat.entry"
set MV(names_menu) ".menu.main.m.names.m"
set MV(avatar_menu) ".menu.main.m.av.m"
set MV(passageways_menu) ".menu.main.m.ov.m"
set MV(swallowchat) 1
set MV(chatframe) ".chat"

frame .menu.border -borderwidth 1 -relief raised
frame .menu.main -borderwidth 1 -relief flat
frame .menu.main.m
frame .menu.main.plugins
frame .chat

menubutton .menu.main.m.ov -text OpenVerse -menu .menu.main.m.ov.m \
		-underline 0
menu .menu.main.m.ov.m -tearoff $MV(tearoff_menus)
.menu.main.m.ov.m add cascade -label [Trns passageways] -menu \
		.menu.main.m.ov.m.m
menu .menu.main.m.ov.m.m -tearoff $MV(tearoff_menus)
.menu.main.m.ov.m add command -label [Trns setup] -command Setup
.menu.main.m.ov.m add checkbutton -label [Trns sound] -variable MV(bell)
.menu.main.m.ov.m add separator
.menu.main.m.ov.m add command -label [Trns quit] -command exit

menubutton .menu.main.m.av -text [Trns avatars] -menu .menu.main.m.av.m \
		-underline 0
menu .menu.main.m.av.m -tearoff $MV(tearoff_menus)
.menu.main.m.av.m add checkbutton -label [Trns animate] -variable \
		MV(anim.stop) -command AnimateAvatar -offvalue 1 -onvalue 0
.menu.main.m.av.m add cascade -label [Trns avatars] -menu .menu.main.m.av.m.m
menu .menu.main.m.av.m.m -tearoff $MV(tearoff_menus)
.menu.main.m.av.m add separator
.menu.main.m.av.m add command -label [Trns aved_long] -command AvEd

menubutton .menu.main.m.names -text [Trns users] -menu .menu.main.m.names.m \
	 -underline 0
menu .menu.main.m.names.m -tearoff $MV(tearoff_menus)
.menu.main.m.names.m add checkbutton -label [Trns show_nametags] \
		 -variable MV(names) -command ShowNames
.menu.main.m.names.m add cascade -label [Trns names] -menu \
		.menu.main.m.names.m.m
menu .menu.main.m.names.m.m -tearoff $MV(tearoff_menus)

menubutton .menu.main.m.help -text [Trns help] -relief flat -underline 0 \
		-menu .menu.main.m.help.m
menu .menu.main.m.help.m -tearoff $MV(tearoff_menus)

.menu.main.m.help.m add command -label [Trns about_openverse] \
	-command "source \"$MV(helpdir)/$MV(help.file.about)\""
.menu.main.m.help.m add command -label [Trns openverse_help] \
	-command "source \"$MV(helpdir)/$MV(help.file.main)\""
.menu.main.m.help.m add command -label [Trns technical_help] \
	-command "source \"$MV(helpdir)/$MV(help.file.technical)\""
.menu.main.m.help.m add command -label [Trns faq] \
	-command "source \"$MV(helpdir)/$MV(help.file.faq)\""

ToggleText

pack .menu.main.m.ov .menu.main.m.av .menu.main.m.names .menu.main.m.help \
	-side left
pack .menu.main.m -side left -fill x -expand 0
pack .menu.main.plugins -side right
pack .menu.main -fill both -expand 1 -in .menu.border
pack .menu.border -side top -fill both -expand 1
pack .chat -side bottom -fill both -expand 1

proc ColorMainButtons {} {
	global MV

	if $MV(use_windowmanager_colors) {return}
}

DoAvatars
DoBookmarks
DoNames
ColorMainButtons

# Set some window parameters
wm resizable . 0 1
wm geometry . "640x680"
wm minsize . 640 509

# vim:syntax=tcl