[PD-cvs] extensions/gui/ix q.wid,1.2,1.3

[carmen rocco]

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> {}