/usr/share/games/micropolis/res/wish.tcl is in micropolis-data 0.0.20071228-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # 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
}
|