[Poet-commit] SF.net SVN: poet: [37] trunk/lib/tier2/tier2-mainframetool.tcl
Brought to you by:
mercurio
|
From: <mer...@us...> - 2008-04-29 21:42:34
|
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.
|