OSDN Git Service

* library/regwin.itb (RegWin::build_win): Add radio button
authorNicholas Duffek <nsd@redhat.com>
Mon, 16 Jul 2001 18:05:08 +0000 (18:05 +0000)
committerNicholas Duffek <nsd@redhat.com>
Mon, 16 Jul 2001 18:05:08 +0000 (18:05 +0000)
for unsigned register format.
(RegWin::reg_select): Iterate through 8 rather than 7 formats.
(RegWin::but3): Add menu option for unsigned register format.

gdb/gdbtk/ChangeLog
gdb/gdbtk/library/regwin.itb

index d9fa0d6..2001d20 100644 (file)
@@ -1,3 +1,10 @@
+2001-07-16  Nick Duffek  <nsd@redhat.com>
+
+       * library/regwin.itb (RegWin::build_win): Add radio button
+       for unsigned register format.
+       (RegWin::reg_select): Iterate through 8 rather than 7 formats.
+       (RegWin::but3): Add menu option for unsigned register format.
+
 2001-07-13  Keith Seitz  <keiths@redhat.com>
 
        * library/download.itb (constructor): Use the iwidgets
index 12f3632..5c1ea21 100644 (file)
@@ -165,6 +165,8 @@ body RegWin::build_win {} {
       -command "$this update dummy"
     $f add radio -label "Decimal" -value d -underline 0 -state disabled \
       -command "$this update dummy"
+    $f add radio -label "Unsigned" -value u -underline 0 -state disabled \
+      -command "$this update dummy"
     $f add radio -label "Natural" -value {} -underline 0 -state disabled \
       -command "$this update dummy"
     $f add radio -label "Binary" -value t -underline 0 -state disabled \
@@ -355,7 +357,7 @@ body RegWin::reg_select { r } {
     set selected -1
     $itk_interior.m.reg entryconfigure 0 -state disabled
     $itk_interior.m.reg entryconfigure 2 -state disabled
-    for {set i 0} {$i < 7} {incr i} {
+    for {set i 0} {$i < 8} {incr i} {
       $itk_interior.m.reg.format entryconfigure $i -state disabled
     }
     return
@@ -378,7 +380,7 @@ body RegWin::reg_select { r } {
   } else {
     set state normal
   }
-  for {set i 0} {$i < 7} {incr i} {
+  for {set i 0} {$i < 8} {incr i} {
     debug "format $i $state"
     $itk_interior.m.reg.format entryconfigure $i -state $state \
       -variable reg_display($r,format)
@@ -452,6 +454,8 @@ body RegWin::but3 {rn X Y} {
         -value x -variable reg_display($rn,format)
       $Menu add radio -label "Decimal" -command "$this update dummy" \
         -value d -variable reg_display($rn,format)
+      $Menu add radio -label "Unsigned" -command "$this update dummy" \
+        -value u -variable reg_display($rn,format)
       $Menu add radio -label "Natural" -command "$this update dummy" \
         -value {} -variable reg_display($rn,format)
       $Menu add radio -label "Binary" -command "$this update dummy" \