From: sls <sls>
Date: Tue, 14 Feb 1995 02:53:22 +0000 (+0000)
Subject: Change bindtags to bindtagsplus, add bindtags.
X-Git-Tag: r5_1_1~53
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=51e4af5858db953b962e373f4d5d8b0d17c956cd;p=tkinspect

Change bindtags to bindtagsplus, add bindtags.
---

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]