git.zerfleddert.de Git - micropolis/blob - res/wishx.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 load tk.tcl
  21
  22 if [info exists geometry] {
  23     wm geometry . $geometry
  24 }