Update of /cvsroot/pure-data/extensions/gui/ix In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32035
Modified Files: q.wid Log Message: scroll
Index: q.wid =================================================================== RCS file: /cvsroot/pure-data/extensions/gui/ix/q.wid,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** q.wid 24 Apr 2005 12:10:00 -0000 1.2 --- q.wid 28 Apr 2005 22:34:07 -0000 1.3 *************** *** 29,32 **** --- 29,34 ---- #. -relief flat -borderwidth 0 -selectborderwidth 0 -bg "#ccffcc" -fg black #. @list foreach x [list .#args] {.- insert end $x} + #. @add .- insert end [join [lrange [list .#args] 0 end] " "] + #. @scroll .- yview scroll .#1 units .: puts "scrollin .#1" #. @symbol .- insert end {.#1} #. @float ::ix::qi .- .| .#1 *************** *** 37,41 **** bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} ! bind .- <MouseWheel> {.- yview scroll [expr {- (%D / 120) * 4}] units} bind .- <Shift-MouseWheel> {.- xview scroll [expr {- (%D / 120) * 4}] units} bind .- <ButtonPress-3> {} --- 39,44 ---- bind .- <Enter> {focus .-} bind .- <Leave> {focus .^.c} ! bind .- <4> { pd [concat .|.rp _cb scroll -5 ;]} ! bind .- <5> { pd [concat .|.rp _cb scroll 5 ;]} bind .- <Shift-MouseWheel> {.- xview scroll [expr {- (%D / 120) * 4}] units} bind .- <ButtonPress-3> {}