[PD-cvs] pd/src bgerror.tcl,1.1.2.2,1.1.2.2.2.1

[Mathieu Bouchard]

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 :: {