This is the mail archive of the insight@sourceware.org mailing list for the Insight project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[PATCH] Fix Memory Window Preferences


Hi,

The other day I noticed that memory window preferences were really broken, so I've committed the following patch to fix them again.

If anyone notices any problems, please let me know.

Keith

ChangeLog
2009-04-23  Keith Seitz  <keiths@redhat.com>

	* library/mempref.itb (build_win): Replace libgui's "Labelledframe"
	with the iwidget's LabeledFrame. Replaced all occurrances.
	* libarary/memwin.itb (create_prefs): Use ManagedWin::open_dlg
	instead of ManagedWin::open.
Index: library/mempref.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/mempref.itb,v
retrieving revision 1.7
diff -u -p -r1.7 mempref.itb
--- library/mempref.itb	24 Jan 2006 01:32:26 -0000	1.7
+++ library/mempref.itb	24 Apr 2009 03:25:54 -0000
@@ -1,5 +1,5 @@
 # Memory display preferences window for Insight.
-# Copyright (C) 1998, 1999, 2002, 2003, 2006 Red Hat
+# Copyright (C) 1998, 1999, 2002, 2003, 2006, 2009 Red Hat, Inc
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License (GPL) as published by
@@ -72,8 +72,8 @@ itcl::body MemPref::build_win {} {
   frame $itk_interior.f.b
 
   # SIZE
-  Labelledframe $f.f1 -anchor nw -text Size
-  set fr [$f.f1 get_frame]
+  iwidgets::Labeledframe $f.f1 -labelpos nw -labeltext [gettext "Size"]
+  set fr [$f.f1 childsite]
 
   set Widgets(rb-Byte) [radiobutton $fr.1 -variable [scope gsize] -text Byte \
 			  -value 1 -command [code $this enable_format]]
@@ -91,8 +91,8 @@ itcl::body MemPref::build_win {} {
   grid $fr.2 $fr.8 $fr.d -sticky w -padx 4
 
   # FORMAT
-  Labelledframe $f.f2 -anchor nw -text Format
-  set fr [$f.f2 get_frame]
+  iwidgets::Labeledframe $f.f2 -labelpos nw -labeltext [gettext "Format"]
+  set fr [$f.f2 childsite]
   set Widgets(rb-binary) [radiobutton $fr.1 -variable [scope gformat] \
 			    -text Binary -value t]
   set Widgets(rb-octal) [radiobutton $fr.2 -variable [scope gformat] \
@@ -108,7 +108,8 @@ itcl::body MemPref::build_win {} {
   grid $fr.4 $fr.5 x -sticky w -padx 4
 
   # TOTAL BYTES
-  Labelledframe $f.fx -anchor nw -text "Number of Bytes"
+  iwidgets::Labeledframe $f.fx -labelpos nw \
+      -labeltext [gettext "Number of Bytes"]
 
   if {$gnumbytes == 0} {
     set gnumbytes $default_numbytes
@@ -117,7 +118,7 @@ itcl::body MemPref::build_win {} {
     set gvar 1
   }
 
-  set fr [$f.fx get_frame] 
+  set fr [$f.fx childsite]
   set Widgets(rb-win_size) [radiobutton $fr.1 -variable [scope gvar] -text "Depends on window size" \
 			      -value 0 -command [code $this toggle_size_control]]
   frame $fr.2
@@ -143,8 +144,9 @@ itcl::body MemPref::build_win {} {
   grid columnconfigure $fr 1 -weight 1
 
   # MISC
-  Labelledframe $f.1 -anchor nw -text "Miscellaneous"
-  set fr [$f.1 get_frame] 
+  iwidgets::Labeledframe $f.1 -labelpos nw \
+      -labeltext [gettext "Miscellaneous"]
+  set fr [$f.1 childsite]
   frame $fr.1
   label $fr.1.plabel -height 1 -width 1 -bg $color -relief raised  
   set Widgets(b-color) [button $fr.1.pc -text "Change color..."  \
Index: library/memwin.itb
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/library/memwin.itb,v
retrieving revision 1.25
diff -u -p -r1.25 memwin.itb
--- library/memwin.itb	9 Feb 2008 01:23:42 -0000	1.25
+++ library/memwin.itb	24 Apr 2009 03:25:54 -0000
@@ -1,5 +1,5 @@
 # Memory display window class definition for Insight.
-# Copyright (C) 1998, 1999, 2001, 2002, 2005, 2008 Red Hat, Inc.
+# Copyright (C) 1998, 1999, 2001, 2002, 2005, 2008, 2009 Red Hat, Inc.
 #
 # This program is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License (GPL) as published by
@@ -236,7 +236,7 @@ itcl::body MemWin::create_prefs {} {
     set rheight [lindex [$itk_component(table) bbox 0,0] 3]
   }
 
-  set prefs_win [ManagedWin::open MemPref -force -over $this\
+  set prefs_win [ManagedWin::open_dlg MemPref -force -over $this\
 		   -transient -win $this \
 		   -size $size -format $format -numbytes $numbytes \
 		   -bpr $bytes_per_row -ascii $ascii \

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]