diff options
Diffstat (limited to 'demos')
-rw-r--r-- | demos/demo.tcl | 6 | ||||
-rw-r--r-- | demos/layout.tcl | 2 | ||||
-rw-r--r-- | demos/outlook-folders.tcl | 2 | ||||
-rw-r--r-- | demos/random.tcl | 2 |
4 files changed, 7 insertions, 5 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 diff --git a/demos/layout.tcl b/demos/layout.tcl index 4f67624..d89a364 100644 --- a/demos/layout.tcl +++ b/demos/layout.tcl @@ -10,7 +10,7 @@ proc DemoLayout {} { # $T configure -showroot no -showrootbutton yes -showbuttons yes \ - -showlines yes -itemheight 0 -selectmode browse + -showlines $::ShowLines -itemheight 0 -selectmode browse # # Create columns diff --git a/demos/outlook-folders.tcl b/demos/outlook-folders.tcl index abc57ef..6b01c8d 100644 --- a/demos/outlook-folders.tcl +++ b/demos/outlook-folders.tcl @@ -17,7 +17,7 @@ proc DemoOutlookFolders {} { # $T configure -itemheight $height -selectmode browse \ - -showroot yes -showrootbutton no -showbuttons yes -showlines yes + -showroot yes -showrootbutton no -showbuttons yes -showlines $::ShowLines # # Create columns diff --git a/demos/random.tcl b/demos/random.tcl index 5caeae2..d358e86 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -20,7 +20,7 @@ proc DemoRandom {} { # $T configure -itemheight $height -selectmode extended \ - -showroot yes -showrootbutton yes -showbuttons yes -showlines yes \ + -showroot yes -showrootbutton yes -showbuttons yes -showlines $::ShowLines \ -scrollmargin 16 -xscrolldelay "500 50" -yscrolldelay "500 50" # |