This is the mail archive of the
insight@sourceware.org
mailing list for the Insight project.
Make "Choose Color" dialog a Modal dialog
- From: "Aditya Katti" <AdityaK at KPITCummins dot com>
- To: <insight at sources dot redhat dot com>
- Date: Fri, 5 Aug 2005 10:48:57 +0530
- Subject: Make "Choose Color" dialog a Modal dialog
Hi,
Please find below a patch for Insight (srcpref.itb). Previously multiple "Choose Color" dialogs were being opened. This patch will make "Choose Color" dialog a Modal dialog.
For gdb/gdbtk/ChangeLog:
============================================gdb/gdbtk/ChangeLog===============================================
2005-08-03 Aditya Katti <adityak@kpitcummins.com>
* library/srcpref.itb (_pick): Makes "Choose Color" dialog a Modal dialog
==============================================================================================================
For gdb/gdbtk/library/srcpref.itb:
========================================gdb/gdbtk/library/srcpref.itb=========================================
*** insight-6.1/gdb/gdbtk/library/srcpref.itb.orig Wed Aug 3 12:37:30 2005
--- insight-6.1/gdb/gdbtk/library/srcpref.itb Wed Aug 3 12:37:52 2005
***************
*** 270,274 ****
# ------------------------------------------------------------------
itcl::body SrcPref::_pick {color win tag} {
! set new_color [tk_chooseColor -initialcolor $color -title "Choose color"]
if {$new_color != $color && $new_color != {}} {
set _new(gdb/src/$tag) $new_color
--- 270,274 ----
# ------------------------------------------------------------------
itcl::body SrcPref::_pick {color win tag} {
! set new_color [tk_chooseColor -initialcolor $color -title "Choose color" -parent $win]
if {$new_color != $color && $new_color != {}} {
set _new(gdb/src/$tag) $new_color
================================================End Of Patch==================================================
Regards,
Aditya Katti
KPIT Cummins Infosystems Limited
Pune, INDIA