From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 1141 invoked by alias); 22 Mar 2012 14:37:39 -0000 Received: (qmail 1021 invoked by uid 22791); 22 Mar 2012 14:37:37 -0000 X-SWARE-Spam-Status: No, hits=-1.4 required=5.0 tests=AWL,BAYES_00,TW_EQ,TW_QH,TW_QW X-Spam-Check-By: sourceware.org Received: from outdoor.onevision.de (HELO outdoor.onevision.de) (212.77.172.51) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 22 Mar 2012 14:37:23 +0000 Received: from sanders.onevision.de (moonrace [212.77.172.62]) by outdoor.onevision.de (8.14.3/8.13.7/ROSCH/DDB) with ESMTP id q2MEbG1H012329 for ; Thu, 22 Mar 2012 15:37:21 +0100 Received: from [192.168.5.32] ([192.168.5.32]) by sanders.onevision.de (Lotus Domino Release 8.5.1FP3) with ESMTP id 2012032215371149-123115 ; Thu, 22 Mar 2012 15:37:11 +0100 Message-ID: <4F6B3917.9080906@onevision.com> Date: Thu, 22 Mar 2012 14:37:00 -0000 From: Roland Schwingel User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:10.0.2) Gecko/20120216 Thunderbird/10.0.2 MIME-Version: 1.0 To: insight@sourceware.org Subject: [PATCH] libgui: remove bgerror.tcl script Content-Type: multipart/mixed; boundary="------------050203000502030801020005" Mailing-List: contact insight-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: insight-owner@sourceware.org X-SW-Source: 2012-q1/txt/msg00032.txt.bz2 This is a multi-part message in MIME format. --------------050203000502030801020005 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=ISO-8859-15; format=flowed Content-length: 569 Hi... At least since the insight intree supplied tk 8.4 version there is bgerror handling script coming with tk. libgui has its own version, which is also not so nice than the tk version. The attached patch removes it in favor ot the tk version. As tk 8.4 is anyway (still) the prerequisite for insight this change does not harm. 2012-03-22 Roland Schwingel * library/Makefile.in: Remove reference to bgerror.tcl. * library/tclIndex: Ditto. * library/bgerror.tcl: Removed file. Any comments? Is this ok? Roland --------------050203000502030801020005 Content-Transfer-Encoding: 7bit Content-Type: text/plain; name="libgui_delete_bgerror.patch" Content-Disposition: attachment; filename="libgui_delete_bgerror.patch" Content-length: 3535 diff -ruN libgui_orig/library/Makefile.in libgui/library/Makefile.in --- libgui_orig/library/Makefile.in 2010-02-22 16:26:07.000000000 +0100 +++ libgui/library/Makefile.in 2012-03-22 14:36:51.752537700 +0100 @@ -203,7 +203,7 @@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ AUTOMAKE_OPTIONS = cygnus -TCL = advice.tcl balloon.tcl bbox.tcl bgerror.tcl bindings.tcl \ +TCL = advice.tcl balloon.tcl bbox.tcl bindings.tcl \ canvas.tcl cframe.tcl center.tcl debug.tcl def.tcl internet.tcl \ font.tcl gensym.tcl gettext.tcl hooks.tcl lframe.tcl list.tcl \ looknfeel.tcl menu.tcl mono.tcl multibox.tcl parse_args.tcl path.tcl \ diff -ruN libgui_orig/library/bgerror.tcl libgui/library/bgerror.tcl --- libgui_orig/library/bgerror.tcl 2001-09-09 00:34:46.000000000 +0200 +++ libgui/library/bgerror.tcl 1970-01-01 01:00:00.000000000 +0100 @@ -1,64 +0,0 @@ -# bgerror.tcl - Send bug report in response to uncaught Tcl error. -# Copyright (C) 1997, 1998, 1999 Cygnus Solutions. -# Written by Tom Tromey . - -proc bgerror err { - global errorInfo errorCode - - set info $errorInfo - set code $errorCode - - # log the error to the debug window or file - dbug E $info - dbug E $code - - set command [list tk_dialog .bgerrorDialog [gettext "GDB Error"] \ - [format [gettext "Error: %s"] $err] \ - error 0 [gettext "OK"]] - lappend command [gettext "Stack Trace"] - - - set value [eval $command] - if {$value == 0} { - return - } - - set w .bgerrorTrace - catch {destroy $w} - toplevel $w -class ErrorTrace - wm minsize $w 1 1 - wm title $w "Stack Trace for Error" - wm iconname $w "Stack Trace" - button $w.ok -text OK -command "destroy $w" -default active - text $w.text -relief sunken -bd 2 -yscrollcommand "$w.scroll set" \ - -setgrid true -width 60 -height 20 - scrollbar $w.scroll -relief sunken -command "$w.text yview" - pack $w.ok -side bottom -padx 3m -pady 2m - pack $w.scroll -side right -fill y - pack $w.text -side left -expand yes -fill both - $w.text insert 0.0 "errorCode is $errorCode" - $w.text insert 0.0 $info - $w.text mark set insert 0.0 - - bind $w "destroy $w" - bind $w.text "destroy $w; break" - - # Center the window on the screen. - - wm withdraw $w - update idletasks - set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \ - - [winfo vrootx [winfo parent $w]]] - set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \ - - [winfo vrooty [winfo parent $w]]] - wm geom $w +$x+$y - wm deiconify $w - - # Be sure to release any grabs that might be present on the - # screen, since they could make it impossible for the user - # to interact with the stack trace. - - if {[grab current .] != ""} { - grab release [grab current .] - } -} diff -ruN libgui_orig/library/tclIndex libgui/library/tclIndex --- libgui_orig/library/tclIndex 2002-12-04 00:03:16.000000000 +0100 +++ libgui/library/tclIndex 2012-03-22 13:15:53.438502700 +0100 @@ -18,7 +18,6 @@ set auto_index(BALLOON_command_variable) [list source [file join $dir balloon.tcl]] set auto_index(balloon) [list source [file join $dir balloon.tcl]] set auto_index(standard_button_box) [list source [file join $dir bbox.tcl]] -set auto_index(bgerror) [list source [file join $dir bgerror.tcl]] set auto_index(bind_widget_after_tag) [list source [file join $dir bindings.tcl]] set auto_index(bind_widget_after_class) [list source [file join $dir bindings.tcl]] set auto_index(bind_plain_key) [list source [file join $dir bindings.tcl]] --------------050203000502030801020005--