#!/usr/bin/wish
#
# Written and Copyright (C) 1996-1997 by Michael J. Gourlay
#
# Provided as is.  No warrenties, express or implied.
#
#
# This TCL/Tk program makes use of the "DKFlib" TCL/Tk library
# which is publically available on the Internet.




load ./morph.so




set verbose_level 1

proc verbose { msg } {
  global verbose_level

  if { $verbose_level != "" } {
    puts $msg
  }
}




verbose "main: one"
source image.tk

verbose "main: two"
source mesh.tk

verbose "main: three"
source menubar.tk

verbose "main: four"
source canvas.tk

verbose "main: five"
source panel.tk

verbose "main: six"
source event.tk

verbose "main: eight"
source warp.tk

verbose "main: nine"
rgbaImagesInitialize

verbose "main: ten"
meshInitialize

# Create an outer frame.

verbose "main: eleven"
menubarCreate

verbose "main: twelve"
frame .frame -relief ridge -bd 5
canvasesCreate .frame
pack .frame -side right -fill both -expand true

verbose "main: thirteen"
mouseModePanelCreate .

verbose "main: fourteen"
whichPanelCreate .

verbose "main: fifteen"
bindMouseEvents

verbose "main: sixteen"
fakeExpose
