From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <insight-prs-return-332-listarch-insight-prs=sourceware.cygnus.com@sources.redhat.com>
Received: (qmail 27145 invoked by alias); 6 May 2002 21:23:00 -0000
Mailing-List: contact insight-prs-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:insight-prs-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/insight-prs/>
List-Post: <mailto:insight-prs@sources.redhat.com>
List-Help: <mailto:insight-prs-help@sources.redhat.com>, <http://sources.redhat.com/ml/#faqs>
Sender: insight-prs-owner@sources.redhat.com
Received: (qmail 27131 invoked by uid 71); 6 May 2002 21:23:00 -0000
Resent-Date: 6 May 2002 21:23:00 -0000
Resent-Message-ID: <20020506212300.27130.qmail@sources.redhat.com>
Resent-From: insight-gnats@sources.redhat.com (GNATS Filer)
Resent-To: nobody@sources.redhat.com
Resent-Cc: insight-prs@sources.redhat.com
Resent-Reply-To: insight-gnats@sources.redhat.com, craig@triscend.com
Received:(qmail 27114 invoked by uid 61); 6 May 2002 21:22:55 -0000
Message-Id:<20020506212255.27113.qmail@sources.redhat.com>
Date: Mon, 06 May 2002 14:23:00 -0000
From: craig@triscend.com
Reply-To: craig@triscend.com
To: insight-gnats@sources.redhat.com
X-Send-Pr-Version:gnatsweb-2.9.3 (1.1.1.1.2.31)
Subject: insight/145: tcl error when connection to remote target times out
X-SW-Source: 2002-q2/txt/msg00014.txt.bz2
List-Id: <insight-prs.sourceware.org>


>Number:         145
>Category:       insight
>Synopsis:       tcl error when connection to remote target times out
>Confidential:   no
>Severity:       serious
>Priority:       high
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon May 06 14:23:00 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator:     craig@triscend.com
>Release:        unknown-1.0
>Organization:
>Environment:
Windows 2000/Cygwin
>Description:
The following error is reported when the connection to a remote target times-out on windows hosts.
Error: bad option "-modal": must be -default, -icon, -message, -parent, -title, or -type
>How-To-Repeat:

>Fix:
See the attached patch file. The patch forces the use of ide_messageBox on windows hosts which fixes the problem.
>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: text/plain; name="interface.tcl.pat"
Content-Disposition: inline; filename="interface.tcl.pat"

Index: interface.tcl
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/interface.tcl,v
retrieving revision 1.43
diff -c -p -r1.43 interface.tcl
*** interface.tcl	26 Apr 2002 21:09:54 -0000	1.43
--- interface.tcl	1 May 2002 17:17:57 -0000
*************** proc set_target_name {{prompt 1}} {
*** 1074,1080 ****
  # PROC: set_target - Change the target
  # ------------------------------------------------------------------
  proc set_target {} {
!   global gdb_target_cmd gdb_target_changed gdb_pretty_name gdb_target_name
  #  debug "gdb_target_changed=$gdb_target_changed gdb_target_cmd=\"$gdb_target_cmd\""
  #  debug "gdb_target_name=$gdb_target_name"
    if {$gdb_target_cmd == "" && ![TargetSelection::native_debugging]} {
--- 1074,1080 ----
  # PROC: set_target - Change the target
  # ------------------------------------------------------------------
  proc set_target {} {
!   global gdb_target_cmd gdb_target_changed gdb_pretty_name gdb_target_name tcl_platform
  #  debug "gdb_target_changed=$gdb_target_changed gdb_target_cmd=\"$gdb_target_cmd\""
  #  debug "gdb_target_name=$gdb_target_name"
    if {$gdb_target_cmd == "" && ![TargetSelection::native_debugging]} {
*************** proc set_target {} {
*** 1109,1118 ****
        update
        set dialog_title "GDB"
        set debugger_name "GDB"
!       tk_messageBox -icon error -title $dialog_title -type ok \
! 	-modal task -message "$msg\n\n$debugger_name cannot connect to the target board\
  using [lindex $gdb_target_cmd 1].\nVerify that the board is securely connected and, if\
  necessary,\nmodify the port setting with the debugger preferences."
        return ERROR
      }
      
--- 1109,1125 ----
        update
        set dialog_title "GDB"
        set debugger_name "GDB"
!       if {$tcl_platform(platform) == "windows"} {
!           ide_messageBox [list set r] -icon error -title $dialog_title -type ok \
! 	  -modal system -message "$msg\n\n$debugger_name cannot connect to the target board\
  using [lindex $gdb_target_cmd 1].\nVerify that the board is securely connected and, if\
  necessary,\nmodify the port setting with the debugger preferences."
+         } else {
+           tk_messageBox -icon error -title $dialog_title -type ok \
+ 	  -modal system -message "$msg\n\n$debugger_name cannot connect to the target board\
+ using [lindex $gdb_target_cmd 1].\nVerify that the board is securely connected and, if\
+ necessary,\nmodify the port setting with the debugger preferences."
+         }
        return ERROR
      }