From 51e4af5858db953b962e373f4d5d8b0d17c956cd Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Tue, 14 Feb 1995 02:53:22 +0000
Subject: [PATCH] Change bindtags to bindtagsplus, add bindtags.

---
 windows_list.tcl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/windows_list.tcl b/windows_list.tcl
index 019b9d3..89dc223 100644
--- a/windows_list.tcl
+++ b/windows_list.tcl
@@ -23,7 +23,10 @@ widget windows_list {
 	    -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 & Bindings" \
+	    -value bindtags -label "Window Bindtags" \
+	    -command "$self mode_changed"
+	$slot(menu) add radiobutton -variable [object_slotname mode] \
+	    -value bindtagsplus -label "Window Bindtags & Bindings" \
 	    -command "$self mode_changed"
         $slot(menu) add radiobutton -variable [object_slotname mode] \
 	    -value bindings -label "Window Bindings" -underline 7 \
@@ -114,6 +117,13 @@ widget windows_list {
 	return $result
     }
     method retrieve_bindtags {target window} {
+	set result "# bindtags of $window\n"
+	set tags [send $target [list bindtags $window]]
+	append result [list bindtags $window $tags]
+	append result "\n"
+	return $result
+    }
+    method retrieve_bindtagsplus {target window} {
 	set result "# bindtags of $window\n"
 	set tags [send $target [list bindtags $window]]
 	append result [list bindtags $window $tags]
-- 
2.23.0