Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5177
Modified Files: Tag: desiredata desire.tk Log Message: small fixes
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.397 retrieving revision 1.1.2.600.2.398 diff -C2 -d -r1.1.2.600.2.397 -r1.1.2.600.2.398 *** desire.tk 18 Aug 2007 17:15:52 -0000 1.1.2.600.2.397 --- desire.tk 18 Aug 2007 21:39:26 -0000 1.1.2.600.2.398 *************** *** 1743,1747 **** if {$@mapped && !$@gop} { #if {!$@subpatch && $@text != ""} {set @abs 1; return} ! if {![winfo exists .$self.c]} {$self init_window} } } --- 1743,1747 ---- if {$@mapped && !$@gop} { #if {!$@subpatch && $@text != ""} {set @abs 1; return} ! #if {![winfo exists .$self.c]} {$self init_window} } } *************** *** 2428,2432 **** if {$event == "ButtonPress"} {lappend @list [lreplace $mess 0 0 "Motion"]} lappend @list $mess - puts "adding mess: \t $mess" }
--- 2428,2431 ---- *************** *** 2458,2462 **** set focus [string range [focus] 1 [string first . [focus] 2]-1] set step [lindex $@list $@idx] ! puts "\t $step" mset {event widget x y mode k kval} $step switch $event { --- 2457,2461 ---- set focus [string range [focus] 1 [string first . [focus] 2]-1] set step [lindex $@list $@idx] ! #puts "\t $step" mset {event widget x y mode k kval} $step switch $event { *************** *** 2875,2881 **** def Canvas mapped= {v} {set @mapped $v}
- def Canvas havewindow {} {return $@havewindow} def Canvas havewindow= {flag} { set was [winfo exists .$self] #if {$flag && $was && [$self gop]} {$self redraw} if {$flag && $was} {$self raise} --- 2874,2880 ---- def Canvas mapped= {v} {set @mapped $v}
def Canvas havewindow= {flag} { set was [winfo exists .$self] + if {$flag && !$was} {$self init_window; $self redraw} #if {$flag && $was && [$self gop]} {$self redraw} if {$flag && $was} {$self raise} *************** *** 3804,3808 **** if {[winfo exists [$self widget]]} {raise .$self; return} netsend [list .$self vis 1] ! $self init_window #$self redraw } --- 3803,3807 ---- if {[winfo exists [$self widget]]} {raise .$self; return} netsend [list .$self vis 1] ! #$self init_window #$self redraw } *************** *** 5150,5154 **** if {[llength $@macro_q]} { set w [focus] - puts "focus ::: \t $w" set m [lindex $@macro_q 0] set fudge 0 --- 5149,5152 ---- *************** *** 5166,5173 **** default {puts "Error: this event should not have been here.."} } ! if {$fudge} {event generate $w <Motion> -x $x -y $y; puts "fudge motion::: $w"} event generate $w <$name> -x $x -y $y ! puts "event generate $w <$name> -x $x -y $y" ! if {$event=="key"} {event generate $w <KeyRelease-$k> -x $x -y $y; puts "fudge key:::: $w"} set @macro_q [lreplace $@macro_q 0 0] after $delay [list $self macro_schedule $@macro_delay] $obj --- 5164,5171 ---- default {puts "Error: this event should not have been here.."} } ! if {$fudge} {event generate $w <Motion> -x $x -y $y} event generate $w <$name> -x $x -y $y ! #puts "event generate $w <$name> -x $x -y $y" ! if {$event=="key"} {event generate $w <KeyRelease-$k> -x $x -y $y} set @macro_q [lreplace $@macro_q 0 0] after $delay [list $self macro_schedule $@macro_delay] $obj