#! ../wafe --f
Form myform topLevel 

Scrollbar bar myform {
	orientation vertical height 100 width 15 
	jumpProc {scSet chart [expr 1-%p]} 
	scrollProc {
	  set pos [expr [gV %w topOfThumb]+%p/([gV %w height]*10.0)];
	  XawScrollbarSetThumb %w $pos 0.02;
	  scSet chart [expr 1-$pos]}
      }

StripChart chart myform {
	foreground white background blue 
	height 100 height 100 width 80 update 1 
	fromHoriz bar
      }

Command quit myform {
	foreground yellow background black width 100 
	callback quit fromVert chart
      }

realize
scSet chart 0.999

