[Poet-commit] SF.net SVN: poet: [36] trunk

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

Revision: 36
          http://poet.svn.sourceforge.net/poet/?rev=36&view=rev
Author:   mercurio
Date:     2008-04-28 10:56:47 -0700 (Mon, 28 Apr 2008)

Log Message:
-----------
Fixed regexp in MainFrameTool getGeometry, added
keyword to tcl.vim

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

Modified: trunk/lib/tier2/tier2-mainframetool.tcl
===================================================================
--- trunk/lib/tier2/tier2-mainframetool.tcl	2008-02-09 01:56:39 UTC (rev 35)
+++ trunk/lib/tier2/tier2-mainframetool.tcl	2008-04-28 17:56:47 UTC (rev 36)
@@ -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

Modified: trunk/vim/tcl.vim
===================================================================
--- trunk/vim/tcl.vim	2008-02-09 01:56:39 UTC (rev 35)
+++ trunk/vim/tcl.vim	2008-04-28 17:56:47 UTC (rev 36)
@@ -141,6 +141,7 @@
 syn keyword tclPoet slotNodeInfo
 syn keyword tclPoet slotOff
 syn keyword tclPoet slotOn
+syn keyword tclPoet slotPeek
 syn keyword tclPoet slotPop
 syn keyword tclPoet slotPush
 syn keyword tclPoet slotRange


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