# $Header: /home/cvsroot/tcldb/wisql/Tlib/confirmExit,v 1.1.1.1 1996/10/12 02:26:25 de Exp $
# tcl procs saved on Tue Sep 05 09:32:33 PDT 1995

proc confirmExit {} {

	global mode profiling

	set tclv [lindex [split [info tclversion] .] 0]

	if {$tclv == 6} {
	if {$mode} {
		destroy .
	} else {
 		 mkDialog .confirm_Exit {-text "Really Exit?"}  "{Yes, already!}  {destroy .}" "Cancel {}"
	}
	} else {
	if {$mode} {
		if {$profiling} {
			proFile wisql
		}
                exit
        } else {
		if {$profiling} {
  		mkDialog .confirm_Exit {-text "Really Exit?"}  #	     "{Yes, already!}  {proFile wisql; exit}" "Cancel {}"
		} else {
                 mkDialog .confirm_Exit {-text "Really Exit?"}  "{Yes, already!}  {exit}" "Cancel {}"
		}
        }
	}



}

