]> cvs.zerfleddert.de Git - micropolis/blob - src/tk/library/wish.tcl
fix 15 bit mode
[micropolis] / src / tk / library / wish.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 source [info library]/init.tcl
21 source $tk_library/tk.tcl
22
23 if [info exists geometry] {
24 wm geometry . $geometry
25 }
Impressum, Datenschutz