#!/home1/rf/bin/use -f
# startup script for USE
# 
# Copyright (c) 1994 R"udiger Franke
# All Rights Reserved.
# 
# Redistribution and use in any form, with or without modification, 
# is permitted, provided that the following conditions are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in other form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
#    must display the following acknowledgement:
#       This product includes software developed by R"udiger Franke.
# 4. The name of the author may not be used to endorse or promote products
#    derived from this software without specific prior written permission.
# 
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

# install applications code

if {![info exists useBuiltInCode] || $useBuiltInCode == 0} {
  source $use_library/use_basic.tcl
  lappend auto_path $use_library
}

#
# create applications startup interface
#

# set default options

option add *use_geomcmds {
  pack place
}
option add *use_palettes {
  {{Tk Widgets} {Button Canvas Checkbutton Entry Frame Label \
   Listbox Menu Menubutton Message Radiobutton Scale Scrollbar Text Toplevel}}
}
option add *use_wd [pwd]
option add *use_trgname ""
option add *use_trghead {{@filename@} {}}

option add *font -adobe-helvetica-bold-r-normal--*-120-*
option add *Label.font -*-fixed-medium-r-semicondensed--*-120-*
option add *Message.font -*-fixed-medium-r-semicondensed--*-120-*
option add *Entry.font -*-fixed-medium-r-semicondensed--*-120-*
option add *Text.font -*-fixed-medium-r-semicondensed--*-120-*
option add *Listbox.font -*-fixed-medium-r-semicondensed--*-120-*

# read users option file

use_optionread

# install GNU-Emacs like bindings

useEmacsBindings

# create initial interface

wm geometry . 400x200
wm minsize . 10 10
use_main .main
pack .main -fill both -expand true

set use(geomcmds) [option get . use_geomcmds Use_GeomCmds]

# create palettes

foreach palette [option get . use_palettes Use_Palettes] {
  .main paladd [lindex $palette 0] [lsort [lindex $palette 1]]
}

.main wdinstall [option get . use_wd Use_Wd]
.main trginstall [option get . use_trgname Use_TrgName]

set use(trghead) [option get . use_trghead Use_TrgHead]
set use(version) 0.9b

set use(cutbuf) -1
