Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32626
Modified Files: Tag: desiredata bgerror.tcl Log Message: some meta-error handling (error while processing an error...)
Index: bgerror.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/bgerror.tcl,v retrieving revision 1.1.2.2 retrieving revision 1.1.2.2.2.1 diff -C2 -d -r1.1.2.2 -r1.1.2.2.2.1 *** bgerror.tcl 19 Nov 2006 05:58:24 -0000 1.1.2.2 --- bgerror.tcl 7 Aug 2007 19:30:35 -0000 1.1.2.2.2.1 *************** *** 33,36 **** --- 33,40 ----
proc ::tk::dialog::error::Details {} { + if {[catch {Details2}]} {::error_dump} + } + + proc ::tk::dialog::error::Details2 {} { set w .bgerrorDialog set caption [option get $w.function text {}] *************** *** 80,84 **** # err - The error message.
! proc ::tk::dialog::error::bgerror err { global errorInfo tcl_platform variable button --- 84,88 ---- # err - The error message.
! proc ::tk::dialog::error::bgerror {err} {if {[catch { global errorInfo tcl_platform variable button *************** *** 271,275 **** return -code break } ! }
namespace eval :: { --- 275,281 ---- return -code break } ! }]} { ! ::error_dump ! }}
namespace eval :: {