Add underlines.

diff --git a/value.tcl b/value.tcl
index fba5df3c20c5bf1c91f427bd91f4ae1a87d839b1..4ac3a560ef736c8db9e6940a2796239522120f10 100644 (file)
--- a/value.tcl
+++ b/value.tcl
@@ -32,11 +32,16 @@ widget value {
        bind $self.t <Control-x><Control-s> "$self send_value"
        bind $self.t <Control-s> "$self search_dialog"
        set m [$slot(main) add_menu Value]
-       $m add command -label "Send Value" -command "$self send_value"
-       $m add command -label "Find..." -command "$self search_dialog"
-       $m add command -label "Save Value..." -command "$self save"
-       $m add command -label "Load Value..." -command "$self load"
-       $m add command -label "Detach Window" -command "$self detach"
+       $m add command -label "Send Value" -command "$self send_value" \
+           -underline 1
+       $m add command -label "Find..." -command "$self search_dialog" \
+           -underline 0
+       $m add command -label "Save Value..." -command "$self save" \
+           -underline 0
+       $m add command -label "Load Value..." -command "$self load" \
+           -underline 0
+       $m add command -label "Detach Window" -command "$self detach" \
+           -underline 0
     }
     method reconfig {} {
        $self.t config -width $slot(width) -height $slot(height)

diff --git a/windows_list.tcl b/windows_list.tcl
index 89dc223ff223d13e009ca07dfe39b4545e982cf9..5f9edb2ae3fa0879ba1e244e78339ebcd244cd7b 100644 (file)
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -24,10 +24,10 @@ widget windows_list {
             -command "$self mode_changed"
        $slot(menu) add radiobutton -variable [object_slotname mode] \
            -value bindtags -label "Window Bindtags" \
-           -command "$self mode_changed"
+           -command "$self mode_changed" -underline 11
        $slot(menu) add radiobutton -variable [object_slotname mode] \
            -value bindtagsplus -label "Window Bindtags & Bindings" \
-           -command "$self mode_changed"
+           -command "$self mode_changed" -underline 16
         $slot(menu) add radiobutton -variable [object_slotname mode] \
            -value bindings -label "Window Bindings" -underline 7 \
             -command "$self mode_changed"
@@ -37,13 +37,13 @@ widget windows_list {
         $slot(menu) add separator
         $slot(menu) add checkbutton \
            -variable [object_slotname filter_empty_window_configs] \
-            -label "Filter Empty Window Options" -underline 0
+            -label "Filter Empty Window Options"
         $slot(menu) add checkbutton \
            -variable [object_slotname filter_window_class_config] \
-            -label "Filter Window -class Options" -underline 0
+            -label "Filter Window -class Options"
         $slot(menu) add checkbutton \
            -variable [object_slotname filter_window_pack_in] \
-            -label "Filter Pack -in Options" -underline 0
+            -label "Filter Pack -in Options"
     }
     method get_windows {target result_var parent} {
        upvar $result_var result