# # DERIVED FROM: tk/library/entry.tcl r1.22 # # Copyright (c) 1992-1994 The Regents of the University of California. # Copyright (c) 1994-1997 Sun Microsystems, Inc. # Copyright (c) 2004, Joe English # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # namespace eval ttk { namespace eval entry { variable State set State(x) 0 set State(selectMode) none set State(anchor) 0 set State(scanX) 0 set State(scanIndex) 0 set State(scanMoved) 0 # Button-2 scan speed is (scanNum/scanDen) characters # per pixel of mouse movement. # The standard Tk entry widget uses the equivalent of # scanNum = 10, scanDen = average character width. # I don't know why that was chosen. # set State(scanNum) 1 set State(scanDen) 1 set State(deadband) 3 ;# #pixels for mouse-moved deadband. } } ### Option database settings. # option add *TEntry.cursor [ttk::cursor text] widgetDefault ### Bindings. # # Removed the following standard Tk bindings: # # , , #