diff options
author | treectrl <treectrl> | 2005-05-22 22:13:48 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2005-05-22 22:13:48 (GMT) |
commit | 9fdea91ebc2fa95f2218d328d5f7f1890363ed10 (patch) | |
tree | de1aba8bd82271be0c69426faa85be5f971126d3 /demos/demo.tcl | |
parent | a4950bb299ba3e5b3ed254dedfbada8a3b9905b7 (diff) | |
download | tktreectrl-9fdea91ebc2fa95f2218d328d5f7f1890363ed10.zip tktreectrl-9fdea91ebc2fa95f2218d328d5f7f1890363ed10.tar.gz tktreectrl-9fdea91ebc2fa95f2218d328d5f7f1890363ed10.tar.bz2 |
Added global "ShowLines" which is false on the Mac to disable drawing connecting lines.
Diffstat (limited to 'demos/demo.tcl')
-rw-r--r-- | demos/demo.tcl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/demos/demo.tcl b/demos/demo.tcl index 013be70..a7fd6c6 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -517,9 +517,11 @@ proc MakeMainWindow {} { macintosh - macosx { wm geometry . +40+40 + set ::ShowLines 0 } default { wm geometry . +0+0 + set ::ShowLines 1 } } @@ -534,13 +536,13 @@ proc MakeMainWindow {} { # Tree + scrollbar: styles + elements in list TreePlusScrollbarsInAFrame .f4 0 1 - .f4.t configure -showroot no -height 140 + .f4.t configure -showlines $::ShowLines -showroot no -height 140 .f4.t column create -text "Elements and Styles" -expand yes -button no -tag C0 .f4.t configure -treecolumn C0 # Tree + scrollbar: styles + elements in selected item TreePlusScrollbarsInAFrame .f3 0 1 - .f3.t configure -showroot no + .f3.t configure -showlines $::ShowLines -showroot no .f3.t column create -text "Styles in Item" -expand yes -button no -tag C0 .f3.t configure -treecolumn C0 |