home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tk3.3b1 / library / wish.tcl < prev    next >
Encoding:
Text File  |  1993-07-01  |  1.5 KB  |  37 lines
  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/library/RCS/wish.tcl,v 1.2 93/07/01 13:42:00 ouster Exp $ SPRITE (Berkeley)
  9. #
  10. # Copyright (c) 1992-1993 The Regents of the University of California.
  11. # All rights reserved.
  12. #
  13. # Permission is hereby granted, without written agreement and without
  14. # license or royalty fees, to use, copy, modify, and distribute this
  15. # software and its documentation for any purpose, provided that the
  16. # above copyright notice and the following two paragraphs appear in
  17. # all copies of this software.
  18. #
  19. # IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
  20. # DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT
  21. # OF THE USE OF THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF
  22. # CALIFORNIA HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  23. #
  24. # THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
  25. # INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
  26. # AND FITNESS FOR A PARTICULAR PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS
  27. # ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
  28. # PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
  29. #
  30.  
  31. source [info library]/init.tcl
  32. source $tk_library/tk.tcl
  33.  
  34. if [info exists geometry] {
  35.     wm geometry . $geometry
  36. }
  37.