# $Header: /home/cvsroot/tcldb/wisql/Tlib/clearoutput,v 1.9 1998/12/10 01:22:22 de Exp $
# tcl procs saved on Tue Sep 05 09:32:31 PDT 1995

proc clearoutput mode {

	global Sheet CellValues CellFormulae curCell curRow
        global MsgW SheetT ResClear

  	if {![winfo exists $SheetT]} {
	set Sheet 0
  	}

  	if {$ResClear || $mode } {

  	.m.o.out delete 1.0 end

  	if {$Sheet} {
	clearSheet $SheetT
  	}

  	} else {

  	.m.o.out insert end "\n======================================\n"

  	}

  	setMsg $MsgW ""
  	focus .m.s.sql
}

