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]] }