Return to listbox.tcl CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library

Annotation of micropolis/src/tk/library/listbox.tcl, revision 1.1.1.1

1.1       root        1: # listbox.tcl --
                      2: #
                      3: # This file contains Tcl procedures used to manage Tk listboxes.
                      4: #
                      5: # $Header: /user6/ouster/wish/scripts/RCS/listbox.tcl,v 1.2 92/06/03 15:21:28 ouster Exp $ SPRITE (Berkeley)
                      6: #
                      7: # Copyright 1992 Regents of the University of California
                      8: # Permission to use, copy, modify, and distribute this
                      9: # software and its documentation for any purpose and without
                     10: # fee is hereby granted, provided that this copyright
                     11: # notice appears in all copies.  The University of California
                     12: # makes no representations about the suitability of this
                     13: # software for any purpose.  It is provided "as is" without
                     14: # express or implied warranty.
                     15: #
                     16: 
                     17: # The procedure below may be invoked to change the behavior of
                     18: # listboxes so that only a single item may be selected at once.
                     19: # The arguments give one or more windows whose behavior should
                     20: # be changed;  if one of the arguments is "Listbox" then the default
                     21: # behavior is changed for all listboxes.
                     22: 
                     23: proc tk_listboxSingleSelect args {
                     24:     foreach w $args {
                     25:        bind $w <B1-Motion> {%W select from [%W nearest %y]} 
                     26:        bind $w <Shift-1> {%W select from [%W nearest %y]}
                     27:        bind $w <Shift-B1-Motion> {%W select from [%W nearest %y]}
                     28:     }
                     29: }

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