Commit | Line | Data |
---|---|---|
6a5fa4e0 MG |
1 | # wish.tcl -- |
2 | # | |
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 | |
6 | # specified. | |
7 | # | |
8 | # $Header: /user6/ouster/wish/scripts/RCS/wish.tcl,v 1.1 92/03/06 09:40:56 ouster Exp $ SPRITE (Berkeley) | |
9 | # | |
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. | |
18 | # | |
19 | ||
20 | source [info library]/init.tcl | |
21 | source $tk_library/tk.tcl | |
22 | ||
23 | if [info exists geometry] { | |
24 | wm geometry . $geometry | |
25 | } |