[PD-cvs] SF.net SVN: pure-data: [9432] trunk/desiredata/src/desire.tk

[chunlee at users.sourceforge.net]

Revision: 9432
          http://pure-data.svn.sourceforge.net/pure-data/?rev=9432&view=rev
Author:   chunlee
Date:     2008-02-12 09:02:15 -0800 (Tue, 12 Feb 2008)

Log Message:
-----------
trivil commit testing svn

Modified Paths:
--------------
    trunk/desiredata/src/desire.tk

Modified: trunk/desiredata/src/desire.tk
===================================================================
--- trunk/desiredata/src/desire.tk	2008-02-08 15:05:22 UTC (rev 9431)
+++ trunk/desiredata/src/desire.tk	2008-02-12 17:02:15 UTC (rev 9432)
@@ -925,8 +925,9 @@
     . configure -menu .mbar
     wm title . "DesireData"
     catch {wm iconphoto . icon_pd}
-    regexp {\d\d\d\d/\d\d/\d\d} $::cvsid version
-    regsub -all "/" $version "." version
+    #regexp {\d\d\d\d/\d\d/\d\d} $::cvsid version
+    #regsub -all "/" $version "." version
+    set version "svn"
     set ::pd_version_client $version
     post "DesireData client version $version with Tcl %s and Tk %s" $::tcl_patchLevel $::tk_patchLevel
 }
@@ -3272,7 +3273,7 @@
 		if {[$class <= Wire]} {if {$@action != "imove"} {return [list "wire" $id]}}
 		if {[$class <= Box]} {
 			if {$@action == "imove"} {
-				foreach tag $stack {
+				foreach tag [$self item_stack $x $y] {
 					set tags2 [$c gettags $tag]
 					if {[regexp {^[xo][0-9a-f]{6,8}} $tags2 id2]} {
 						set class [$id2 class]
@@ -3306,7 +3307,7 @@
 	}
 }
 
-def Canvas identify_closestio {x y f} {
+def Canvas item_stack {x y} {
 	set c [$self widget]
 	set cx [expr {$x*$@zoom}]
 	set cy [expr {$y*$@zoom}]
@@ -3314,9 +3315,14 @@
 	set stack [$c find overlapping [expr {$cx-$sense}] [expr {$cy-$sense}]\
 		                       [expr {$cx+$sense}] [expr {$cy+$sense}]]
 	set stack [lreverse $stack]
+	return $stack
+}
+
+def Canvas identify_closestio {x y f} {
+	set c [$self widget]
 	set ios {}
 	set objs {}
-	foreach tag $stack {
+	foreach tag [$self item_stack $x $y] {
 		set tags [$c gettags $tag]
 		if {[regexp {^[x][0-9a-f]{6,8}[oi][0-9]{1,3}} $tags io]} {
 			foreach item {i o} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.