#!/usr/local/bin/wwwish -f
##################
# tkHTML-2.2 Jan 19, 1995
# (C) 1994 Liem Bahneman
#
# Permission to use, copy, modify, and distribute this software
# and its documentation for any purpose and without fee is granted
# provided that the above copyright notice appears in all copies.
# It s provided "as is" without express or implied waraty.


# might have to change this:
global tixlibdir tkhtmllibdir
set tixlibdir "/usr/local/lib/tix"
set tkhtmllibdir "/usr/local/lib/tkHTML"

lappend auto_path $tixlibdir
lappend auto_path $tkhtmllibdir

# don't touch:
tixInit -libdir $tixlibdir -binding Motif -fontset 14Point -scheme SGIGray

global insertspec insertesc
source $tkhtmllibdir/menus.tcl
source $tkhtmllibdir/toolbar.tcl
source $tkhtmllibdir/maintext.tcl
source $tkhtmllibdir/files.tcl
source $tkhtmllibdir/preview.tcl
source $tkhtmllibdir/help.tcl
source $tkhtmllibdir/entities.tcl

global filename textsize textfont CUTBUFFER version typeface event netscape
global searchstring direction searchstate replacestring confirm confirmopt

# read the user's own config file
if { [ file exists ~/.tkHTML ] } { 
	source ~/.tkHTML 
} else {
	source $tkhtmllibdir/config.tcl
}

#} else {
# set defaults (see config.tcl for expanded explanation)
#	set textfont "New Century Schoolbook"
#	set textsize "14"
#	set typeface "helvetica"
#	set tempfile "/tmp/.tkhtml[pid].html"
#	set newheader 1
#	set insertspec 1
#	set insertesc 1
#	set netscape 1
#}

global newheader

set searchstate "for"
set direction "for"
set searchstring ""
set version "2.3"

# globals for previewing
  global tempfile
  global {tkW3ConfigFontDefault}
  set {tkW3ConfigFontDefault} {times}
  global {tkW3ConfigFontList}
  set {tkW3ConfigFontList} {\\\{times Times\\\}}

  global {tkW3HtPage}
  set {tkW3HtPage(address)} {null}
  set {tkW3HtPage(anchor.index)} {2}
  set {tkW3HtPage(anchor.name.1)} {}
  set {tkW3HtPage(base)} {null}
  set {tkW3HtPage(base.use)} {0}
  set {tkW3HtPage(id.)} {h1}
  set {tkW3HtPage(image.1)} {null}
  set {tkW3HtPage(image.anchor.1)} {}
  set {tkW3HtPage(image.index)} {2}
  set {tkW3HtPage(image.ismap.1)} {0}
  set {tkW3HtPage(index.href)} {}
  set {tkW3HtPage(is_index)} {0}
  set {tkW3HtPage(link)} {}
  set {tkW3HtPage(modified)} {0}
  set {tkW3HtPage(next_id)} {}
  set {tkW3HtPage(title)} {null}
  global {tkW3HtText}
  set {tkW3HtText(anchor.max)} {0}
  set {tkW3HtText(background)} {#bfbfbfbfbfbf}
  set {tkW3HtText(char.stack)} {}
  set {tkW3HtText(image.max)} {0}
  set {tkW3HtText(in_anchor)} {0}
  set {tkW3HtText(list.stack)} {}
  set {tkW3HtText(para.stack)} {}

# help globals
global w helpprev helpnext xpos ypos

global current event CUTBUFFER 
set filename ""

########################################3
# build everything

wm title . "tkHTML $version"
wm maxsize . 1024 768

MkMainMenu
MkToolbar
MkMainText
MkMainStatus
SetMainFontAndSize
MkEntities

# check if there's a file on the command line
if {[string length $argv] != 0} {
	InitFile $argv
} else {
	if {$newheader == 1} {
		Header

	}
}

if {[file exists $tkhtmllibdir/icon] == 1} {
	wm iconbitmap . "@$tkhtmllibdir/icon"
}






