]>
git.zerfleddert.de Git - micropolis/blob - src/tk/library/wish.tcl
add4f41ecd532ad8866da28479acf18985f3287c
3 # This script is invoked by the "wish" program whenever it starts up.
4 # It invokes initialization scripts for Tcl and Tk, then does a few
5 # wish-specific things like setting the window geometry, if one was
8 # $Header: /user6/ouster/wish/scripts/RCS/wish.tcl,v 1.1 92/03/06 09:40:56 ouster Exp $ SPRITE (Berkeley)
10 # Copyright 1992 Regents of the University of California
11 # Permission to use, copy, modify, and distribute this
12 # software and its documentation for any purpose and without
13 # fee is hereby granted, provided that this copyright
14 # notice appears in all copies. The University of California
15 # makes no representations about the suitability of this
16 # software for any purpose. It is provided "as is" without
17 # express or implied warranty.
20 source [info library
]/init.tcl
21 source $tk_library/tk.tcl
23 if [info exists geometry
] {
24 wm geometry .
$geometry