From: sls <sls>
Date: Wed, 15 Feb 1995 02:56:35 +0000 (+0000)
Subject: Add underlines.
X-Git-Tag: r5_1_1~49
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=2a34b6fadb3d75a8df6b5a8b170542dff4cea8ac;p=tkinspect

Add underlines.
---

diff --git a/value.tcl b/value.tcl
index fba5df3..4ac3a56 100644
--- 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 89dc223..5f9edb2 100644
--- 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