aboutsummaryrefslogtreecommitdiff
path: root/extensions/gui/ix
diff options
context:
space:
mode:
authorcarmen rocco <ix9@users.sourceforge.net>2005-04-28 22:34:07 +0000
committercarmen rocco <ix9@users.sourceforge.net>2005-04-28 22:34:07 +0000
commitff35db8ceed8de2de4ff89f390526664ed65fc5f (patch)
tree721c27e839986b144c14f1e8b7a0531c2ddf91cf /extensions/gui/ix
parent061e4be1f20ac78e3b52bc6429322d5fadcf5831 (diff)
scroll
svn path=/trunk/; revision=2848
Diffstat (limited to 'extensions/gui/ix')
-rwxr-xr-xextensions/gui/ix/q.wid5
1 files changed, 4 insertions, 1 deletions
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}