[PD-cvs] pd/src desire.tk,1.1.2.535,1.1.2.536

Mathieu Bouchard matju at users.sourceforge.net
Mon Oct 30 03:36:09 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9319

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed bug when clicking messageboxes with Tcl 8.5


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.535
retrieving revision 1.1.2.536
diff -C2 -d -r1.1.2.535 -r1.1.2.536
*** desire.tk	30 Oct 2006 00:03:59 -0000	1.1.2.535
--- desire.tk	30 Oct 2006 02:36:05 -0000	1.1.2.536
***************
*** 676,680 ****
  
  proc accept_pd {s addr port} {
! 	global sock canvas
  	if {[llength $sock]==0} {
  		set sock $s
--- 676,680 ----
  
  proc accept_pd {s addr port} {
! 	global sock
  	if {[llength $sock]==0} {
  		set sock $s
***************
*** 790,794 ****
  
  def Client open_file_really {filename} {
!     global pd_opendir font canvas
      set i [string last / $filename]
      set folder [string range $filename 0 [expr $i-1]]
--- 790,794 ----
  
  def Client open_file_really {filename} {
!     global pd_opendir font
      set i [string last / $filename]
      set folder [string range $filename 0 [expr $i-1]]
***************
*** 1361,1365 ****
  
  def Canvas init {mess} {
!     global pd_opendir pd_tearoff OS cmdline canvas history manager window_list
      lappend window_list $self
      set @mapped 0
--- 1361,1365 ----
  
  def Canvas init {mess} {
!     global pd_opendir pd_tearoff OS cmdline history manager window_list
      lappend window_list $self
      set @mapped 0
***************
*** 2251,2255 ****
  # should be only called from the server
  def Canvas wires= {wires2} {
! 	global canvas clipboard
  	set wires {}
  	foreach x $wires2 {
--- 2251,2255 ----
  # should be only called from the server
  def Canvas wires= {wires2} {
! 	global clipboard
  	set wires {}
  	foreach x $wires2 {
***************
*** 2406,2410 ****
  
  def Canvas motion {x y f target} {
! 	global font canvas tooltip crosshair
  	set c [$self widget]
  	$self motion_checkhairtip $target $x $y
--- 2406,2410 ----
  
  def Canvas motion {x y f target} {
! 	global font tooltip crosshair
  	set c [$self widget]
  	$self motion_checkhairtip $target $x $y
***************
*** 2902,2906 ****
  }
  def FutureWire draw {} {
! 	$self item WIRE line [list $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [$self look dash] -smooth yes
  }
  
--- 2902,2906 ----
  }
  def FutureWire draw {} {
! 	$self item WIRE line [xys $@x1 $@y1 $@x2 $@y2] -dash {4 4 4 4} -fill [$self look dash] -smooth yes
  }
  
***************
*** 3848,3851 ****
--- 3848,3852 ----
  def Wire connects {} {return $@connects}
  proc xys {x1 y1 x2 y2} {
+ 	return [list $x1 $y1 $x2 $y2] ;# just a straight line, no frills
  	set r {}
  	lappend r $x1 $y1
***************
*** 3875,3879 ****
  	set x2 [expr $ix1 + ($iowidth/2)]
  	set y2 $iy1
! 	set xys [list $x1 $y1 $x2 $y2]
  	set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]
  	# how to customise the arrow size/shape?
--- 3876,3880 ----
  	set x2 [expr $ix1 + ($iowidth/2)]
  	set y2 $iy1
! 	set xys [xys $x1 $y1 $x2 $y2]
  	set length [expr sqrt(pow($x2-$x1,2)+pow($y2-$y1,2))]
  	# how to customise the arrow size/shape?
***************
*** 4118,4123 ****
  
  def MessageBox bang {flag} {
! 	[$@canvas widget] itemconfigure ${self}BASE -fill \
! 	    [if {$flag} {list #ffff00} {list [$self look bg]}]
  }
  
--- 4119,4124 ----
  
  def MessageBox bang {flag} {
! 	if {$flag} {set color #ffff00} {set color [$self look bg]}
! 	[$@canvas widget] itemconfigure ${self}BASE -fill $color
  }
  





More information about the Pd-cvs mailing list