[PD-cvs] pd/src desire.tk,1.1.2.600.2.363,1.1.2.600.2.364

Mathieu Bouchard matju at users.sourceforge.net
Mon Aug 13 22:17:00 CEST 2007


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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
don't send "map" to server, because it doesn't exist anymore


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.363
retrieving revision 1.1.2.600.2.364
diff -C2 -d -r1.1.2.600.2.363 -r1.1.2.600.2.364
*** desire.tk	13 Aug 2007 15:36:35 -0000	1.1.2.600.2.363
--- desire.tk	13 Aug 2007 20:16:55 -0000	1.1.2.600.2.364
***************
*** 1508,1514 ****
  		#can't wait till @mapped get updated thru proc change
  		if {$@gop} {foreach x [$@objects values] {$x outside_of_the_box}}
- 		#set @mapped 0
  		netsend [list .$self vis 0]
- 		if {$@gop} {set @mapped 0; netsend [list .$self map 0]}
  		#netsend [list .$self close]
  		return
--- 1508,1512 ----
***************
*** 2037,2042 ****
      $self bind <Alt-Motion> motion_wrap %x %y 4
      $self bind <Control-Motion> motion_wrap %x %y 9
!     $self bind <Map>        map
!     $self bind <Unmap>      unmap
      $self bind <Leave>      leave
      $self bind <Configure>  configure %h %w
--- 2035,2040 ----
      $self bind <Alt-Motion> motion_wrap %x %y 4
      $self bind <Control-Motion> motion_wrap %x %y 9
!     #$self bind <Map>        map
!     #$self bind <Unmap>      unmap
      $self bind <Leave>      leave
      $self bind <Configure>  configure %h %w
***************
*** 2047,2052 ****
  }
  
! def Canvas   map {} {}
! def Canvas unmap {} {}
  def Canvas leave {} {$@crosshair erase}
  
--- 2045,2050 ----
  }
  
! #def Canvas   map {} {}
! #def Canvas unmap {} {}
  def Canvas leave {} {$@crosshair erase}
  
***************
*** 2069,2076 ****
  def Canvas scroll_set {w v1 v2} {if {[$self look gridstate] && $@editmode} {$@grid draw}; $w set $v1 $v2}
  
! def Canvas reload {} {
! 	netsend [list .$self map 0]
! 	netsend [list .$self map 1]
! }
  def Canvas redraw {} {
      $self changed
--- 2067,2071 ----
  def Canvas scroll_set {w v1 v2} {if {[$self look gridstate] && $@editmode} {$@grid draw}; $w set $v1 $v2}
  
! def Canvas reload {} {netsend [list .$self redraw]}
  def Canvas redraw {} {
      $self changed
***************
*** 3761,3765 ****
  	if {[winfo exists [$self widget]]} {raise .$self; return}
  	netsend [list .$self vis 1]
- 	netsend [list .$self map 1]
  	$self init_window
  	#$self redraw
--- 3756,3759 ----
***************
*** 8696,8700 ****
  		.$self.c create image 0 0 -image image_$self -tag BLINKY -anchor nw
  	}
! 	set @blinky [after 250 [list $self blink_image]]
  }
  
--- 8690,8694 ----
  		.$self.c create image 0 0 -image image_$self -tag BLINKY -anchor nw
  	}
! 	set @blinky [after 500 [list $self blink_image]]
  }
  





More information about the Pd-cvs mailing list