Return to wish.tcl CVS log

Up to [Micropolis - Activity] / micropolis / res

Annotation of micropolis/res/wish.tcl, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.