[PD-cvs] pd/src desire.tk,1.1.2.600.2.397,1.1.2.600.2.398
chunlee
chunlee at users.sourceforge.net
Sat Aug 18 23:39:31 CEST 2007
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
More information about the Pd-cvs
mailing list