[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.67,1.1.1.4.2.7.4.68
carmen rocco
ix9 at users.sourceforge.net
Tue May 11 14:17:01 CEST 2004
- Previous message: [PD-cvs] pd/src s_main.c,1.1.1.4.2.12,1.1.1.4.2.13
- Next message: [PD-cvs] pd/src g_all_guis.c,1.1.1.4.2.4.2.28,1.1.1.4.2.4.2.29 g_all_guis.h,1.1.1.4.2.2.2.23,1.1.1.4.2.2.2.24 g_bang.c,1.1.1.3.2.2.2.24,1.1.1.3.2.2.2.25 g_dropper.c,1.1.2.17,1.1.2.18 g_hdial.c,1.1.1.4.2.2.2.22,1.1.1.4.2.2.2.23 g_hslider.c,1.1.1.3.2.2.2.25,1.1.1.3.2.2.2.26 g_mycanvas.c,1.1.1.3.2.2.2.14,1.1.1.3.2.2.2.15 g_numbox.c,1.1.1.4.2.2.2.20,1.1.1.4.2.2.2.21 g_toggle.c,1.1.1.3.2.2.2.21,1.1.1.3.2.2.2.22 g_vumeter.c,1.1.1.3.2.2.2.18,1.1.1.3.2.2.2.19 u_main.tk,1.1.1.4.2.7.4.68,1.1.1.4.2.7.4.69
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10373
Modified Files:
Tag: impd_0_37
u_main.tk
Log Message:
shift for horizontal scroll
Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.67
retrieving revision 1.1.1.4.2.7.4.68
diff -C2 -d -r1.1.1.4.2.7.4.67 -r1.1.1.4.2.7.4.68
*** u_main.tk 10 May 2004 16:02:21 -0000 1.1.1.4.2.7.4.67
--- u_main.tk 11 May 2004 12:16:57 -0000 1.1.1.4.2.7.4.68
***************
*** 808,817 ****
global pd_nt
! switch $pd_nt { 2 {
! bind $name.c <MouseWheel> \
! "$name.c yview scroll \[expr -abs(%D)/%D\] units"
} default {
! bind $name.c <Button-4> "$name.c yview scroll -1 units"
! bind $name.c <Button-5> "$name.c yview scroll +1 units"
}}
#catch {image create photo mybackground -file "test2.gif"}
--- 808,821 ----
global pd_nt
! switch $pd_nt { 0 {
! bind $name.c <Button-4> "pdtk_canvas_scroll $name.c y -1"
! bind $name.c <Button-5> "pdtk_canvas_scroll $name.c y +1"
! bind $name.c <Shift-Button-4> "pdtk_canvas_scroll $name.c x -1"
! bind $name.c <Shift-Button-5> "pdtk_canvas_scroll $name.c x +1"
} default {
! bind $name.c <MouseWheel> \
! "pdtk_canvas_scroll $name.c y \[expr -abs(%D)/%D\]"
! bind $name.c <Shift-MouseWheel> \
! "pdtk_canvas_scroll $name.c x \[expr -abs(%D)/%D\]"
}}
#catch {image create photo mybackground -file "test2.gif"}
***************
*** 1144,1147 ****
--- 1148,1156 ----
}
+ proc pdtk_canvas_scroll {canvas xy distance} {
+
+ $canvas [list $xy]view scroll $distance units
+ }
+
proc pdtk_canvas_key {canvas x y key iso shift} {
# .controls.switches.meterbutton configure -text $key
- Previous message: [PD-cvs] pd/src s_main.c,1.1.1.4.2.12,1.1.1.4.2.13
- Next message: [PD-cvs] pd/src g_all_guis.c,1.1.1.4.2.4.2.28,1.1.1.4.2.4.2.29 g_all_guis.h,1.1.1.4.2.2.2.23,1.1.1.4.2.2.2.24 g_bang.c,1.1.1.3.2.2.2.24,1.1.1.3.2.2.2.25 g_dropper.c,1.1.2.17,1.1.2.18 g_hdial.c,1.1.1.4.2.2.2.22,1.1.1.4.2.2.2.23 g_hslider.c,1.1.1.3.2.2.2.25,1.1.1.3.2.2.2.26 g_mycanvas.c,1.1.1.3.2.2.2.14,1.1.1.3.2.2.2.15 g_numbox.c,1.1.1.4.2.2.2.20,1.1.1.4.2.2.2.21 g_toggle.c,1.1.1.3.2.2.2.21,1.1.1.3.2.2.2.22 g_vumeter.c,1.1.1.3.2.2.2.18,1.1.1.3.2.2.2.19 u_main.tk,1.1.1.4.2.7.4.68,1.1.1.4.2.7.4.69
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Pd-cvs
mailing list