#! ../wafe --f

Viewport v topLevel \
	width 200 height 200 \
	allowVert true allowHoriz true

Text text v \
    string /etc/passwd type file \
    width 800 height 800 \
    translations {#override
	<Key>q: exec(quit)
	<Key>Up: exec(sL vertical - 10 200)
	<Key>Down: exec(sL vertical + 10 200)
	<Key>Left: exec(sL horizontal - 10 200)
	<Key>Right: exec(sL horizontal + 10 200)
    }

proc sL {bar pm unit full} { 
     set rel [expr 0$pm$unit.0/$full]
     set pos [expr [gV v.$bar topOfThumb]+$rel]
     XawScrollbarSetThumb v.$bar $pos -1.0
     callCallbacks v.$bar jumpProc float $pos 
 }

realize
