From 12d48d2ff1de43d5cd7b7efabfbdf2e7a50bbb3b Mon Sep 17 00:00:00 2001 From: sls Date: Mon, 5 Jun 1995 08:52:16 +0000 Subject: [PATCH] Group "get window info..." & "use feedback.." options together. Reorder window options. --- windows_list.tcl | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/windows_list.tcl b/windows_list.tcl index 614b397..5843364 100644 --- a/windows_list.tcl +++ b/windows_list.tcl @@ -24,12 +24,12 @@ widget windows_list { $slot(menu) add radiobutton -variable [object_slotname mode] \ -value slavepacking -label "Slave Window Packing" -underline 1 \ -command "$self mode_changed" - $slot(menu) add radiobutton -variable [object_slotname mode] \ - -value bindtags -label "Window Bindtags" \ - -command "$self mode_changed" -underline 11 $slot(menu) add radiobutton -variable [object_slotname mode] \ -value bindtagsplus -label "Window Bindtags & Bindings" \ -command "$self mode_changed" -underline 16 + $slot(menu) add radiobutton -variable [object_slotname mode] \ + -value bindtags -label "Window Bindtags" \ + -command "$self mode_changed" -underline 11 $slot(menu) add radiobutton -variable [object_slotname mode] \ -value bindings -label "Window Bindings" -underline 7 \ -command "$self mode_changed" @@ -37,9 +37,6 @@ widget windows_list { -value classbindings -label "Window Class Bindings" -underline 8 \ -command "$self mode_changed" $slot(menu) add separator - $slot(menu) add checkbutton \ - -variable [object_slotname get_window_info] \ - -label "Get Window Information" -underline 0 $slot(menu) add checkbutton \ -variable [object_slotname filter_empty_window_configs] \ -label "Filter Empty Window Options" @@ -49,6 +46,10 @@ widget windows_list { $slot(menu) add checkbutton \ -variable [object_slotname filter_window_pack_in] \ -label "Filter Pack -in Options" + $slot(menu) add separator + $slot(menu) add checkbutton \ + -variable [object_slotname get_window_info] \ + -label "Get Window Information" -underline 0 $slot(menu) add checkbutton \ -variable [object_slotname use_feedback] \ -label "Use Feedback When Getting Windows" -- 2.23.0