* library/browserwin.itb (_full_funcs_combo): Remove "-modal"

        option from tk_messageBox call. It was redhat-local in tk8.0,
        but is no longer in tk8.3.
        * library/download.itb (download_it): Likewise.
        * library/interface.tcl (gdbtk_tcl_query): Likewise.
        (show_warning): Likewise.
        (set_exe): Likewise.
        (set_target): Likewise.
        * library/memwin.itb (error_dialog): Likewise.
        * library/srcwin.itb (fillFuncCB): Likewise.
        * library/util.tcl (tfind_cmd): Likewise.

7 files changed, 23 insertions, 9 deletions

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 50e7edcfa99..37688b0898b 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,17 @@
+2002-07-31  Keith Seitz  <keiths@redhat.com>
+
+	* library/browserwin.itb (_full_funcs_combo): Remove "-modal"
+	option from tk_messageBox call. It was redhat-local in tk8.0,
+	but is no longer in tk8.3.
+	* library/download.itb (download_it): Likewise.
+	* library/interface.tcl (gdbtk_tcl_query): Likewise.
+	(show_warning): Likewise.
+	(set_exe): Likewise.
+	(set_target): Likewise.
+	* library/memwin.itb (error_dialog): Likewise.
+	* library/srcwin.itb (fillFuncCB): Likewise.
+	* library/util.tcl (tfind_cmd): Likewise.
+
 2002-07-03  Martin M. Hunt  <hunt@redhat.com>
 
 	* generic/gdbtk-hooks.c (gdbtk_call_command): Use cmd_func().
diff --git a/gdb/gdbtk/library/browserwin.itb b/gdb/gdbtk/library/browserwin.itb
index 40cfdd7cd99..61cc1b9664e 100644
--- a/gdb/gdbtk/library/browserwin.itb
+++ b/gdb/gdbtk/library/browserwin.itb
@@ -900,7 +900,7 @@ body BrowserWin::_fill_funcs_combo {name} {
     set maxlen 10
     if {[catch {gdb_listfuncs $name} listfuncs]} {
       tk_messageBox -icon error -default ok \
-	-title "GDB" -type ok -modal system \
+	-title "GDB" -type ok \
 	-message "This file can not be found or does not contain\ndebugging information."
       return
     }
diff --git a/gdb/gdbtk/library/download.itb b/gdb/gdbtk/library/download.itb
index e13c814f919..edbf8844215 100644
--- a/gdb/gdbtk/library/download.itb
+++ b/gdb/gdbtk/library/download.itb
@@ -194,7 +194,7 @@ body Download::download_it { } {
     set f $gdb_exe_name
   }
   if {! [file exists $f]} {
-    tk_messageBox -icon error -title GDB -type ok -modal task\
+    tk_messageBox -icon error -title GDB -type ok \
       -message "Request to download non-existent executable $gdb_exe_name"
     set gdb_downloading 0
     gdbtk_idle
diff --git a/gdb/gdbtk/library/interface.tcl b/gdb/gdbtk/library/interface.tcl
index 3098096d347..3bb03a15263 100644
--- a/gdb/gdbtk/library/interface.tcl
+++ b/gdb/gdbtk/library/interface.tcl
@@ -346,7 +346,7 @@ proc gdbtk_tcl_query {message {default yes}} {
     # question.
     set r [tk_messageBox -icon warning -default $default \
 	     -message $message -title $title \
-	     -type yesno -modal $modal -parent .]
+	     -type yesno -parent .]
   }
 
   update idletasks
@@ -398,7 +398,7 @@ proc show_warning {message} {
   } else {
     set r [tk_messageBox -icon warning -default ok \
              -message $message -title $title \
-             -type ok -modal $modal -parent .]
+             -type ok -parent .]
   }
 } 
 
@@ -877,7 +877,7 @@ proc set_exe {} {
       return
     } elseif {[string match {*no debugging symbols found*} $msg]} {
       tk_messageBox -icon error -default ok \
-	-title "GDB" -type ok -modal system \
+	-title "GDB" -type ok \
 	-message "This executable has no debugging information."
     }
 
@@ -1110,7 +1110,7 @@ proc set_target {} {
       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\
+	-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
diff --git a/gdb/gdbtk/library/memwin.itb b/gdb/gdbtk/library/memwin.itb
index 86ef9a50b9e..16b2c53d2f1 100644
--- a/gdb/gdbtk/library/memwin.itb
+++ b/gdb/gdbtk/library/memwin.itb
@@ -769,6 +769,6 @@ body MemWin::memMoveCell {w x y} {
 body MemWin::error_dialog {msg {modality task} {type ok}} {
   set parent [winfo toplevel [namespace tail $this]]
   tk_messageBox -icon error -title Error -type $type \
-    -modal $modality -message $msg -parent $parent
+    -message $msg -parent $parent
 }
 
diff --git a/gdb/gdbtk/library/srcwin.itb b/gdb/gdbtk/library/srcwin.itb
index 24d4cd61a1e..b2d73f8c29f 100644
--- a/gdb/gdbtk/library/srcwin.itb
+++ b/gdb/gdbtk/library/srcwin.itb
@@ -388,7 +388,7 @@ body SrcWin::fillFuncCB {name} {
     set maxlen 10
     if {[catch {gdb_listfuncs $name} listfuncs]} {
       tk_messageBox -icon error -default ok \
-	-title "GDB" -type ok -modal system \
+	-title "GDB" -type ok \
 	-message "This file can not be found or does not contain\ndebugging information."
       _set_name ""
       return
diff --git a/gdb/gdbtk/library/util.tcl b/gdb/gdbtk/library/util.tcl
index 3f9d4c9135b..3383580e402 100644
--- a/gdb/gdbtk/library/util.tcl
+++ b/gdb/gdbtk/library/util.tcl
@@ -79,7 +79,7 @@ proc tfind_cmd {command} {
   set err [catch {gdb_cmd $command} msg]
   if {$err || [regexp "Target failed to find requested trace frame" $msg]} {
     tk_messageBox -icon error -title "GDB" -type ok \
-      -modal task -message $msg
+      -message $msg
     gdbtk_idle
     return
   } else {