]> git.zerfleddert.de Git - micropolis/blob - res/wishx.tcl
c50b7754beb2d2aee22f014a7af6f8df3bda145c
[micropolis] / res / wishx.tcl
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 load tk.tcl
21
22 if [info exists geometry] {
23 wm geometry . $geometry
24 }
Impressum, Datenschutz