# ---------------------------------------------------------------------------- # # The following code is solely a convenience so that you can test the # BLT distribution without first installing it. # # ---------------------------------------------------------------------------- # If we're in the ./demos directory, we can simply specify # "../library" as the library directory without having to install the # files. if {[info commands ::blttable] != {}} { interp alias {} table {} blttable } if { [file exists ../library/bltGraph.pro] } { global blt_library set blt_library ../library set auto_path [linsert $auto_path 0 $blt_library] auto_reset } # Add a binding for convenience to let you exit with pressing the # "quit" button. wm protocol . WM_DELETE_WINDOW { DoExit 0 } bind all <Control-KeyPress-c> { DoExit 0 } proc DoExit { code } { destroy . #exit $code }