Return to tk.tcl CVS log

Up to [Micropolis - Activity] / micropolis / res

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

1.1     ! root        1: # tk.tcl --
        !             2: #
        !             3: # Initialization script normally executed in the interpreter for each
        !             4: # Tk-based application.  Arranges class bindings for widgets.
        !             5: #
        !             6: # $Header: /user6/ouster/wish/scripts/RCS/tk.tcl,v 1.19 92/08/08 14:50:08 ouster Exp $ SPRITE (Berkeley)
        !             7: #
        !             8: # Copyright 1992 Regents of the University of California
        !             9: # Permission to use, copy, modify, and distribute this
        !            10: # software and its documentation for any purpose and without
        !            11: # fee is hereby granted, provided that this copyright
        !            12: # notice appears in all copies.  The University of California
        !            13: # makes no representations about the suitability of this
        !            14: # software for any purpose.  It is provided "as is" without
        !            15: # express or implied warranty.
        !            16: 
        !            17: # Insist on running with a compatible version of Tcl.
        !            18: 
        !            19: if "[info tclversion] != {6.4}" {
        !            20:     error "wrong version of Tcl loaded ([info tclversion]): need 6.4"
        !            21: }
        !            22: 
        !            23: # Initialize the auto-load path to include Tk's directory as well as
        !            24: # Tcl's directory:
        !            25: 
        !            26: set auto_path "$tk_library [info library]"
        !            27: 
        !            28: # ----------------------------------------------------------------------
        !            29: # Class bindings for various flavors of button widgets.  
        !            30: # ----------------------------------------------------------------------
        !            31: 
        !            32: bind Button <Any-Enter> {tk_butEnter %W}
        !            33: bind Button <Any-Leave> {tk_butLeave %W}
        !            34: bind Button <1> {tk_butDown %W}
        !            35: bind Button <ButtonRelease-1> {tk_butUp %W}
        !            36: bind Button <2> {tk_butDown %W}
        !            37: bind Button <ButtonRelease-2> {tk_butUp %W}
        !            38: bind Button <3> {tk_butDown %W}
        !            39: bind Button <ButtonRelease-3> {tk_butUp %W}
        !            40: 
        !            41: bind CheckButton <Any-Enter> {tk_butEnter %W}
        !            42: bind CheckButton <Any-Leave> {tk_butLeave %W}
        !            43: bind CheckButton <1> {tk_butDown %W}
        !            44: bind CheckButton <ButtonRelease-1> {tk_butUp %W}
        !            45: bind CheckButton <2> {tk_butDown %W}
        !            46: bind CheckButton <ButtonRelease-2> {tk_butUp %W}
        !            47: bind CheckButton <3> {tk_butDown %W}
        !            48: bind CheckButton <ButtonRelease-3> {tk_butUp %W}
        !            49: 
        !            50: bind RadioButton <Any-Enter> {tk_butEnter %W}
        !            51: bind RadioButton <Any-Leave> {tk_butLeave %W}
        !            52: bind RadioButton <1> {tk_butDown %W}
        !            53: bind RadioButton <ButtonRelease-1> {tk_butUp %W}
        !            54: bind RadioButton <2> {tk_butDown %W}
        !            55: bind RadioButton <ButtonRelease-2> {tk_butUp %W}
        !            56: bind RadioButton <3> {tk_butDown %W}
        !            57: bind RadioButton <ButtonRelease-3> {tk_butUp %W}
        !            58: 
        !            59: # ----------------------------------------------------------------------
        !            60: # Class bindings for entry widgets.
        !            61: # ----------------------------------------------------------------------
        !            62: 
        !            63: bind Entry <1> {
        !            64:     %W cursor @%x
        !            65:     %W select from @%x
        !            66:     if {[lindex [%W config -state] 4] == "normal"} {focus %W}
        !            67: }
        !            68: bind Entry <B1-Motion> {%W select to @%x}
        !            69: bind Entry <Shift-1> {%W select adjust @%x}
        !            70: bind Entry <Shift-B1-Motion> {%W select to @%x}
        !            71: bind Entry <2> {%W scan mark %x}
        !            72: bind Entry <B2-Motion> {%W scan dragto %x}
        !            73: bind Entry <Any-KeyPress> {
        !            74:     tk_entryCutPress %W
        !            75:     if {"%A" != ""} {
        !            76:        %W insert cursor %A
        !            77:        tk_entrySeeCaret %W
        !            78:     }
        !            79: }
        !            80: bind Entry <Delete> {tk_entryDelPress %W}
        !            81: bind Entry <BackSpace> {tk_entryDelPress %W}
        !            82: bind Entry <Control-h> {tk_entryDelPress %W}
        !            83: bind Entry <Control-d> {tk_entryCutPress %W}
        !            84: bind Entry <Control-u> {tk_entryDelLine %W}
        !            85: bind Entry <Control-x> {tk_entryCutPress %W}
        !            86: bind Entry <Control-y> {tk_entryCopyPress %W}
        !            87: bind Entry <Control-v> {tk_entryCopyPress %W}
        !            88: bind Entry <Control-w> {tk_entryBackword %W; tk_entrySeeCaret %W}
        !            89: tk_bindForTraversal Entry
        !            90: 
        !            91: # ----------------------------------------------------------------------
        !            92: # Class bindings for listbox widgets.
        !            93: # ----------------------------------------------------------------------
        !            94: 
        !            95: bind Listbox <1> {%W select from [%W nearest %y]}
        !            96: bind Listbox <B1-Motion> {%W select to [%W nearest %y]}
        !            97: bind Listbox <Shift-1> {%W select adjust [%W nearest %y]}
        !            98: bind Listbox <Shift-B1-Motion> {%W select to [%W nearest %y]}
        !            99: bind Listbox <2> {%W scan mark %x %y}
        !           100: bind Listbox <B2-Motion> {%W scan dragto %x %y}
        !           101: bind Listbox <3> {%W select from [%W nearest %y]}
        !           102: bind Listbox <B3-Motion> {%W select to [%W nearest %y]}
        !           103: bind Listbox <Shift-3> {%W select adjust [%W nearest %y]}
        !           104: bind Listbox <Shift-B3-Motion> {%W select to [%W nearest %y]}
        !           105: 
        !           106: # ----------------------------------------------------------------------
        !           107: # Class bindings for scrollbar widgets.  
        !           108: # ----------------------------------------------------------------------
        !           109: 
        !           110: # ----------------------------------------------------------------------
        !           111: # Class bindings for scale widgets.  
        !           112: # ----------------------------------------------------------------------
        !           113: 
        !           114: # ----------------------------------------------------------------------
        !           115: # Class bindings for menubutton widgets.  
        !           116: # ----------------------------------------------------------------------
        !           117: 
        !           118: bind Menubutton <Enter>                        {tk_mbButtonEnter %W %m}
        !           119: bind Menubutton <Any-Leave>            {tk_mbButtonLeave %W}
        !           120: bind Menubutton <1>                    {tk_mbButtonDown %W %X %Y}
        !           121: bind Menubutton <Any-ButtonRelease-1>  {tk_mbButtonUp %W %X %Y}
        !           122: bind Menubutton <B1-Enter>             {tk_mbButton1Enter %W %m}
        !           123: bind Menubutton <2>                    {tk_mbButtonDown %W %X %Y}
        !           124: bind Menubutton <ButtonRelease-2>      {tk_mbButtonUp %W %X %Y}
        !           125: bind Menubutton <3>                    {tk_mbButtonDown %W %X %Y}
        !           126: bind Menubutton <ButtonRelease-3>      {tk_mbButtonUp %W %X %Y}
        !           127: 
        !           128: # ----------------------------------------------------------------------
        !           129: # Class bindings for menu widgets.
        !           130: # ----------------------------------------------------------------------
        !           131: 
        !           132: bind Menu <Any-Enter> {tk_menuEnter %W %y}
        !           133: bind Menu <Any-Leave> {tk_menuLeave %W}
        !           134: bind Menu <Any-Motion> {tk_menuMotion %W %y}
        !           135: bind Menu <ButtonRelease-1> {tk_menuUp %W %y}
        !           136: bind Menu <ButtonRelease-2> {tk_menuUp %W %y}
        !           137: bind Menu <ButtonRelease-3> {tk_menuUp %W %y}
        !           138: 
        !           139: bind Menu <Escape> {tk_mbUnpost %W}
        !           140: bind Menu <Any-KeyPress> {tk_traverseWithinMenu %W %A}
        !           141: bind Menu <Left> {tk_nextMenu %W -1}
        !           142: bind Menu <Right> {tk_nextMenu %W 1}
        !           143: bind Menu <Up> {tk_nextMenuEntry %W -1}
        !           144: bind Menu <Down> {tk_nextMenuEntry %W 1}
        !           145: bind Menu <Return> {tk_invokeMenu %W}
        !           146: 
        !           147: # ----------------------------------------------------------------------
        !           148: # Class bindings for text widgets. 
        !           149: # ----------------------------------------------------------------------
        !           150: 
        !           151: #bind Text <1> {tk_textDown %W %x %y}
        !           152: #bind Text <Double-1> {tk_textDoubleDown %W %x %y}
        !           153: #bind Text <Triple-1> {tk_textTripleDown %W %x %y}
        !           154: #bind Text <B1-Motion> {tk_textSelectTo %W %x %y}
        !           155: #bind Text <Shift-1> {tk_textAdjustTo %W %x %y}
        !           156: #bind Text <Shift-B1-Motion> {tk_textSelectTo %W %x %y}
        !           157: bind Text <2> {%W scan mark %y}
        !           158: bind Text <B2-Motion> {%W scan dragto %y}
        !           159: bind Text <Any-KeyPress> {tk_textKeyPress %W %A}
        !           160: bind Text <Return> {tk_textReturnPress %W}
        !           161: bind Text <BackSpace> {tk_textDelPress %W}
        !           162: bind Text <Delete> {tk_textDelPress %W}
        !           163: bind Text <Control-h> {tk_textDelPress %W}
        !           164: bind Text <Control-d> {tk_textCutPress %W}
        !           165: bind Text <Control-v> {tk_textCopyPress %W}
        !           166: tk_bindForTraversal Text
        !           167: 
        !           168: # Initialize the elements of tk_priv that require initialization.

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