* ../../examples/scrollutil/SyncListboxes.tcl Minor improvements.

csaba · csaba · commit 9beadcd48094 · 2019-08-31T11:48:55.000Z
diff --git a/examples/scrollutil/SyncListboxes.tcl b/examples/scrollutil/SyncListboxes.tcl
@@ -49,8 +49,8 @@ set capitalList {
     Madrid Stockholm Bern Kiev London "Vatican City"
 }
 
-set lb1 [listbox $ss.lb1 -width 15 -highlightthickness 0]
-set lb2 [listbox $ss.lb2 -width 15 -highlightthickness 0]
+set lb1 [listbox $ss.lb1 -activestyle none -highlightthickness 0 -width 16]
+set lb2 [listbox $ss.lb2 -activestyle none -highlightthickness 0 -width 16]
 $ss setwidgets [list $lb1 $lb2]
 
 foreach country $countryList {

Original file line number	Diff line number	Diff line change
`@@ -49,8 +49,8 @@ set capitalList {`
`49`	`49`	`Madrid Stockholm Bern Kiev London "Vatican City"`
`50`	`50`	`}`
`51`	`51`
`52`		`-set lb1 [listbox $ss.lb1 -width 15 -highlightthickness 0]`
`53`		`-set lb2 [listbox $ss.lb2 -width 15 -highlightthickness 0]`
	`52`	`+set lb1 [listbox $ss.lb1 -activestyle none -highlightthickness 0 -width 16]`
	`53`	`+set lb2 [listbox $ss.lb2 -activestyle none -highlightthickness 0 -width 16]`
`54`	`54`	`$ss setwidgets [list $lb1 $lb2]`
`55`	`55`
`56`	`56`	`foreach country $countryList {`