I686LINUX/util/I686LINUX/lib/blt2.4/demos/scripts/demo.tcl

   1 # ----------------------------------------------------------------------------
   2 #
   3 #       The following code is solely a convenience so that you can test the
   4 #       BLT distribution without first installing it.
   5 #
   6 # ----------------------------------------------------------------------------
   7
   8 # If we're in the ./demos directory, we can simply specify
   9 # "../library" as the library directory without having to install the
  10 # files.
  11
  12 if { [file exists ../library/bltGraph.pro] } {
  13     global blt_library
  14     set blt_library ../library
  15     set auto_path [linsert $auto_path 0 $blt_library]
  16     auto_reset
  17 }
  18
  19 # Add a binding for convenience to let you exit with pressing the
  20 # "quit" button.
  21
  22 wm protocol . WM_DELETE_WINDOW { DoExit 0 }
  23 bind all <Control-KeyPress-c> { DoExit 0 }
  24
  25 proc DoExit { code } {
  26     destroy .
  27     #exit $code
  28 }