]> cvs.zerfleddert.de Git - micropolis/blame - src/tk/library/wish.tcl
XINCLUDE: use /usr/X11R6/include everywhere
[micropolis] / src / tk / library / wish.tcl
CommitLineData
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
20source [info library]/init.tcl
21source $tk_library/tk.tcl
22
23if [info exists geometry] {
24 wm geometry . $geometry
25}
Impressum, Datenschutz