[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