[Yaacs-svn] SF.net SVN: yaacs: [630] trunk

[<bu...@us...>]

Revision: 630
Author:   bugant
Date:     2006-04-06 11:27:42 -0700 (Thu, 06 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/yaacs/?rev=630&view=rev

Log Message:
-----------
* center yamon windows on startup;

* tclIndex has been re-generated;

Modified Paths:
--------------
    trunk/yaacs/tclIndex
    trunk/yamon.tcl
Modified: trunk/yaacs/tclIndex
===================================================================
--- trunk/yaacs/tclIndex	2006-04-06 18:26:05 UTC (rev 629)
+++ trunk/yaacs/tclIndex	2006-04-06 18:27:42 UTC (rev 630)
@@ -192,3 +192,7 @@
 set auto_index(::yamisc::onValidateLength) [list source [file join $dir yamisc.tcl]]
 set auto_index(::yamisc::disjoin) [list source [file join $dir yamisc.tcl]]
 set auto_index(::yamisc::voipEnabled) [list source [file join $dir yamisc.tcl]]
+set auto_index(::yamisc::setHostSettings) [list source [file join $dir yamisc.tcl]]
+set auto_index(::yamisc::hostSettings) [list source [file join $dir yamisc.tcl]]
+set auto_index(::yamisc::deleteHostSettings) [list source [file join $dir yamisc.tcl]]
+set auto_index(::yamisc::hostsSetiings) [list source [file join $dir yamisc.tcl]]

Modified: trunk/yamon.tcl
===================================================================
--- trunk/yamon.tcl	2006-04-06 18:26:05 UTC (rev 629)
+++ trunk/yamon.tcl	2006-04-06 18:27:42 UTC (rev 630)
@@ -593,8 +593,15 @@
 grid configure .sb -padx [list 0 6]
 grid configure $pref -ipadx 5 -ipady 5 -sticky we
 
+
+wm withdraw .
+update
+wm deiconify .
 wm title . yamon
 wm iconname . yamon
+set x [expr {[winfo screenwidth .]/2 - [winfo reqwidth .]/2 - [winfo vrootx .]}]
+set y [expr {[winfo screenheight .]/2 - [winfo reqheight .]/2 - [winfo vrooty .]}]
+wm geom . +$x+$y
 
 .fr.show invoke
 ::yamon::fillInTable


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