main

Abstract : Initializes every thing.

Comments : Initializes the iGraph through which all C++ propagation
           patterns are called. Gets the whole Tcl/Tk ball of wall
           rolling by sourcing all supporting files. Starts the
           ool Bar window and the Main window.


#################################
# Welcome to the DemDraw GUI code!
#
# The GUI was written in Tcl/Tk by the Fall '95 COM1205
# Tcl/Tk team. Group members include:
#
# Joshua Houghton : Team Leader; Tcl/Tk code intergator; Tool Bar function
# Paul Guglielmino : Help Function; Tcl/Tk Research & Delevolpment
# Marsha Akeson : Main Program Window; Documentation
# Steven Kaufman : Printing Function; Tcl/Tk Research & Delevolpment
# Michael Boucher : Secretary; Open/Save Function; Documentation
# Chih-Chien Ueng : Open/Save Function; Tcl/Tk Research & Delevolpment
#################################


# Creates new graph object.
global iGraph INCLUDE helpfile1 helpfile2
set iGraph [Graph new:]

# Where are those cool icons & help files?
set INCLUDE "$env(BIT_DIR)"
set helpfile1 "$env(HELP_DIR)/help1.txt"
set helpfile2 "$env(HELP_DIR)/help2.txt"

# Initializes the C++ graph. (Needs to only be called once.)
$iGraph cppInit:

# Toolbar window procedures.
source $env(TCL_DIR)/toolbar.tcl
# Main window and misc. procedures.
source $env(TCL_DIR)/mainwin.tcl
# Dialogue box procedures.
source $env(TCL_DIR)/dialogs.tcl
# Tcl/Tk procedures used by C++. (Tcl/Tk code also calls these.)
source $env(TCL_DIR)/drawing.tcl
# Procedures for the actions to be taken when event bindings occur
source $env(TCL_DIR)/bindings.tcl
# All procedures relating to a vertex.
source $env(TCL_DIR)vertex.tcl
# All procedures relating to an edge.
source $env(TCL_DIR)/edge.tcl
# On-line...
source $env(TCL_DIR)/helpmenu.tcl

# Lets get started....
setup_tools
setup_mainwin