[micropolis] / res / wish.tcl

# wish.tcl --
#
# This script is invoked by the "wish" program whenever it starts up.
# It invokes initialization scripts for Tcl and Tk, then does a few
# wish-specific things like setting the window geometry, if one was
# specified.
#
# $Header: /user6/ouster/wish/scripts/RCS/wish.tcl,v 1.1 92/03/06 09:40:56 ouster Exp $ SPRITE (Berkeley)
#
# Copyright 1992 Regents of the University of California
# Permission to use, copy, modify, and distribute this
# software and its documentation for any purpose and without
# fee is hereby granted, provided that this copyright
# notice appears in all copies.  The University of California
# makes no representations about the suitability of this
# software for any purpose.  It is provided "as is" without
# express or implied warranty.
#

source [info library]/init.tcl
source $tk_library/tk.tcl

if [info exists geometry] {
    wm geometry . $geometry
}
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	}