diff options
| author | treectrl <treectrl> | 2005-05-14 22:20:24 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-14 22:20:24 (GMT) |
| commit | 422befcf892ef795fb22cbd35a0f9ed4b2a6ab02 (patch) | |
| tree | b80555b84e80b3e99e43570d344c5d84dd4aff3b /demos | |
| parent | 275a8a831f3aee95a7811113c5f5988320ab76bc (diff) | |
| download | tktreectrl-422befcf892ef795fb22cbd35a0f9ed4b2a6ab02.zip tktreectrl-422befcf892ef795fb22cbd35a0f9ed4b2a6ab02.tar.gz tktreectrl-422befcf892ef795fb22cbd35a0f9ed4b2a6ab02.tar.bz2 | |
Allow "Tree Column" command in header context menu to toggle -treecolumn on/off.
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/demo.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/demo.tcl b/demos/demo.tcl index 572975a..3251334 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -722,7 +722,7 @@ proc MakeHeaderPopup {T} { $m add checkbutton -label "Squeeze" -variable Popup(squeeze) \ -command {$Popup(T) column configure $Popup(column) -squeeze $Popup(squeeze)} $m add checkbutton -label "Tree Column" -variable Popup(treecolumn) \ - -command {$Popup(T) configure -treecolumn $Popup(column)} + -command {$Popup(T) configure -treecolumn [expr {$Popup(treecolumn) ? $Popup(column) : ""}]} return } |