###########################################################################
# Copyright (c) 1998, Jeffrey Glen Rennie
# All rights reserved.
###########################################################################
wm withdraw .
source debug.tcl
source message.tcl
source struct.tcl
source header.tcl
source server.tcl
source repo.tcl
source chat.tcl
source buffer.tcl
source urlbase.tcl
source mapchar.tcl
source subscrib.tcl
source confgdlg.tcl
source filter.tcl
source splash.tcl

global configData
if [catch { ProxyHost $configData(port) } errMessage ] {
    messageBox::DoMessageBox "Web Smacker" \
	    "$errMessage\nWeb Smacker is already running." exit
} else {
    splash::DoSplashScreen
}

###########################################################################
# Copyright (c) 1998, Jeffrey Glen Rennie
# All rights reserved.
###########################################################################
