From ff35db8ceed8de2de4ff89f390526664ed65fc5f Mon Sep 17 00:00:00 2001
From: carmen rocco <ix9@users.sourceforge.net>
Date: Thu, 28 Apr 2005 22:34:07 +0000
Subject: scroll

svn path=/trunk/; revision=2848
---
 extensions/gui/ix/q.wid | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'extensions')

diff --git a/extensions/gui/ix/q.wid b/extensions/gui/ix/q.wid
index d9b36cb2..be51a6b1 100755
--- a/extensions/gui/ix/q.wid
+++ b/extensions/gui/ix/q.wid
@@ -28,6 +28,8 @@ namespace eval ::ix {
 #. -selectmode extended -font {{Bitstream Vera Sans} 8} -exportselection 0
 #. -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
 #. @clear .- delete 0 end
@@ -36,7 +38,8 @@ namespace eval ::ix {
 #. @cmd eval ".- .#args"
 bind .- <Enter> {focus .-}
 bind .- <Leave> {focus .^.c}
-bind .- <MouseWheel> {.- yview scroll [expr {- (%D / 120) * 4}] units}
+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> {}
 bind .- <Button3-Leave> {dnd drag %W}
-- 
cgit v1.2.1