From: sls <sls>
Date: Fri, 16 Dec 1994 02:18:17 +0000 (+0000)
Subject: Initial checkin from tkinspect 5.1.6
X-Git-Tag: r5_1_1~81
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b583a3521ee00b4d63678ee9925850963afa6e55;p=tkinspect

Initial checkin from tkinspect 5.1.6
---

b583a3521ee00b4d63678ee9925850963afa6e55
diff --git a/stl-lite/tk_util.tcl b/stl-lite/tk_util.tcl
new file mode 100644
index 0000000..b5ab468
--- /dev/null
+++ b/stl-lite/tk_util.tcl
@@ -0,0 +1,34 @@
+#
+# $Id$
+#
+# Misc procs for use with Tk
+#
+# This software is copyright (C) 1994 by the Lawrence Berkeley Laboratory.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that: (1) source code distributions
+# retain the above copyright notice and this paragraph in its entirety, (2)
+# distributions including binary code include the above copyright notice and
+# this paragraph in its entirety in the documentation or other materials
+# provided with the distribution, and (3) all advertising materials mentioning
+# features or use of this software display the following acknowledgement:
+# ``This product includes software developed by the University of California,
+# Lawrence Berkeley Laboratory and its contributors.'' Neither the name of
+# the University nor the names of its contributors may be used to endorse
+# or promote products derived from this software without specific prior
+# written permission.
+# 
+# THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
+# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+proc center_window {win} {
+    wm withdraw $win
+    update idletasks
+    set w [winfo reqwidth $win]
+    set h [winfo reqheight $win]
+    set sh [winfo screenheight $win]
+    set sw [winfo screenwidth $win]
+    wm geometry $win +[expr {($sw-$w)/2}]+[expr {($sh-$h)/2}]
+    wm deiconify $win
+}