[GPS] Mon Nov 5, 2001 - at the [Tcl 9.0 WishList] MCL asked about adding the ability to scroll widgets with the scale widget.  So, I wrote this code as an example.
----
  #!/bin/wish8.3

  set busy 0
	
  proc moveScale {args} {
	if {$::busy == 1} {
		return
	}
	set yview [lindex $args 0]
	.s set [expr {int($yview * 100)}]
  } 
	
  proc scrollWidget {y} {
	set ::busy 1
	set yview [expr {double($y) / 100.0}]
	.l yview moveto $yview
	update idletasks
	set ::busy 0
  }
	
  proc main {} {
	pack [listbox .l -yscrollcommand moveScale] -side right -fill both -expand 1
	pack [scale .s -tickinterval 0 -from 0 -to 100 -showvalue 0 \
		-command scrollWidget
	] -side left -fill y
	
	for {set i 0} {$i < 400} {incr i} {
		.l insert end [expr {rand() * 40}]
	}
  }
  main
----