[Poet-commit] SF.net SVN: poet: [37] trunk/lib/tier2/tier2-mainframetool.tcl

[<mer...@us...>]

Revision: 37
          http://poet.svn.sourceforge.net/poet/?rev=37&view=rev
Author:   mercurio
Date:     2008-04-29 14:42:35 -0700 (Tue, 29 Apr 2008)

Log Message:
-----------
Fixed regexp in MainFrameTool getGeometry (again)

Modified Paths:
--------------
    trunk/lib/tier2/tier2-mainframetool.tcl

Modified: trunk/lib/tier2/tier2-mainframetool.tcl
===================================================================
--- trunk/lib/tier2/tier2-mainframetool.tcl	2008-04-28 17:56:47 UTC (rev 36)
+++ trunk/lib/tier2/tier2-mainframetool.tcl	2008-04-29 21:42:35 UTC (rev 37)
@@ -270,7 +270,7 @@
 	set t [winfo toplevel [$self slot _primary]]
 
 	set g [wm geometry $t]
-	regexp {([0-9]+)x([0-9]+)([+-][0-9]+)([+-][0-9]+)} $g -> w h x y
+	regexp {([0-9]+)x([0-9]+)\+*(-*[0-9]+)\+*(-*[0-9]+)} $g -> w h x y
 
 	incr x 0
 	incr y 0


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