# $Header: /home/cvsroot/tcldb/wisql/Tlib/PGchkMsg,v 1.2 1997/05/27 06:09:37 de Exp ${DB}chkMsg,v 1.1.1.1 1996/10/12 02:26:25 de Exp $
# tcl procs saved on Tue Sep 05 09:32:22 PDT 1995

proc PGchkMsg {} {


  global pgmsg DB


  if {$pgmsg != ""} {
    set msgs [split $pgmsg \n]
    foreach f $msgs {
      catch {.dbM.f1.t insert end "[clock format [clock seconds]] : $f\n"}
    }
	set pgmsg ""
  }

}

