[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