]> cvs.zerfleddert.de Git - micropolis/blame - res/wishx.tcl
src/tclx/ucbsrc/makefile: Micropolis build fixes for recent macOS
[micropolis] / res / wishx.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
20load tk.tcl
21
22if [info exists geometry] {
23 wm geometry . $geometry
24}
Impressum, Datenschutz