[Amsn-commits] msn/utils/pixmapscroll pixmapscroll.tcl,1.29,1.30

[A S <lio...@us...>]

Update of /cvsroot/amsn/msn/utils/pixmapscroll
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16205

Modified Files:
	pixmapscroll.tcl 
Log Message:
fix for tcl  8.3

Index: pixmapscroll.tcl
===================================================================
RCS file: /cvsroot/amsn/msn/utils/pixmapscroll/pixmapscroll.tcl,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** pixmapscroll.tcl	22 Jun 2005 15:28:50 -0000	1.29
--- pixmapscroll.tcl	9 Jul 2005 15:25:51 -0000	1.30
***************
*** 655,659 ****
  }
  
! if {![string equal [tk windowingsystem] "x11"]} {
      bind Pixmapscroll <MouseWheel> {
          tk::ScrollByUnits %W v [expr {- (%D)}]
--- 655,659 ----
  }
  
! if {![catch {tk windowingsystem} wsystem] && $wsystem == "x11"} {
      bind Pixmapscroll <MouseWheel> {
          tk::ScrollByUnits %W v [expr {- (%D)}]