# -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*- # # $Id: FloatEnt.tcl,v 1.4 2004/03/28 02:44:57 hobbs Exp $ # # FloatEnt.tcl -- # # An entry widget that can be attached on top of any widget to # provide dynamic editing. It is used to provide dynamic editing # for the tixGrid widget, among other things. # # Copyright (c) 1993-1999 Ioi Kim Lam. # Copyright (c) 2000-2001 Tix Project Group. # Copyright (c) 2004 ActiveState # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # tixWidgetClass tixFloatEntry { -classname TixFloatEntry -superclass tixPrimitive -method { invoke post unpost } -flag { -command -value } -configspec { {-value value Value ""} {-command command Command ""} } -default { {.entry.highlightThickness 0} } } #---------------------------------------------------------------------- # # Initialization bindings # #---------------------------------------------------------------------- proc tixFloatEntry:InitWidgetRec {w} { upvar #0 $w data tixChainMethod $w InitWidgetRec } proc tixFloatEntry:ConstructWidget {w} { upvar #0 $w data tixChainMethod $w ConstructWidget set data(w:entry) [entry $w.entry] pack $data(w:entry) -expand yes -fill both } proc tixFloatEntry:SetBindings {w} { upvar #0 $w data tixChainMethod $w SetBindings tixBind $data(w:entry) <Return> [list tixFloatEntry:invoke $w] } #---------------------------------------------------------------------- # # Class bindings # #---------------------------------------------------------------------- proc tixFloatEntryBind {} { tixBind TixFloatEntry <FocusIn> { if {[focus -displayof [set %W(w:entry)]] ne [set %W(w:entry)]} { focus [%W subwidget entry] [set %W(w:entry)] selection from 0 [set %W(w:entry)] selection to end [set %W(w:entry)] icursor end } } } #---------------------------------------------------------------------- # # Public methods # #---------------------------------------------------------------------- proc tixFloatEntry:post {w x y {width ""} {height ""}} { upvar #0 $w data if {$width == ""} { set width [winfo reqwidth $data(w:entry)] } if {$height == ""} { set height [winfo reqheight $data(w:entry)] } place $w -x $x -y $y -width $width -height $height -bordermode ignore raise $w focus $data(w:entry) } proc tixFloatEntry:unpost {w} { upvar #0 $w data place forget $w } proc tixFloatEntry:config-value {w val} { upvar #0 $w data $data(w:entry) delete 0 end $data(w:entry) insert 0 $val $data(w:entry) selection from 0 $data(w:entry) selection to end $data(w:entry) icursor end } #---------------------------------------------------------------------- # # Private methods # #---------------------------------------------------------------------- proc tixFloatEntry:invoke {w} { upvar #0 $w data if {[llength $data(-command)]} { set bind(specs) {%V} set bind(%V) [$data(w:entry) get] tixEvalCmdBinding $w $data(-command) bind $bind(%V) } }
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
bitmaps | Folder | 0755 |
|
|
html | Folder | 0755 |
|
|
pref | Folder | 0755 |
|
|
Balloon.tcl | File | 12.97 KB | 0644 |
|
BtnBox.tcl | File | 2.61 KB | 0644 |
|
CObjView.tcl | File | 7.56 KB | 0644 |
|
ChkList.tcl | File | 4.97 KB | 0644 |
|
ComboBox.tcl | File | 35.42 KB | 0644 |
|
Compat.tcl | File | 870 B | 0644 |
|
Console.tcl | File | 14.95 KB | 0644 |
|
Control.tcl | File | 12.11 KB | 0644 |
|
DefSchm.tcl | File | 2.94 KB | 0644 |
|
DialogS.tcl | File | 4.2 KB | 0644 |
|
DirBox.tcl | File | 5.3 KB | 0644 |
|
DirDlg.tcl | File | 2.15 KB | 0644 |
|
DirList.tcl | File | 6.9 KB | 0644 |
|
DirTree.tcl | File | 8.76 KB | 0644 |
|
DragDrop.tcl | File | 3.93 KB | 0644 |
|
DtlList.tcl | File | 1002 B | 0644 |
|
EFileBox.tcl | File | 11.12 KB | 0644 |
|
EFileDlg.tcl | File | 1.68 KB | 0644 |
|
Event.tcl | File | 5.11 KB | 0644 |
|
FileBox.tcl | File | 14 KB | 0644 |
|
FileCbx.tcl | File | 2.42 KB | 0644 |
|
FileDlg.tcl | File | 2.13 KB | 0644 |
|
FileEnt.tcl | File | 7.15 KB | 0644 |
|
FloatEnt.tcl | File | 3.1 KB | 0644 |
|
Grid.tcl | File | 21.16 KB | 0644 |
|
HList.tcl | File | 17.72 KB | 0644 |
|
HListDD.tcl | File | 4.39 KB | 0644 |
|
IconView.tcl | File | 5.97 KB | 0644 |
|
Init.tcl | File | 6.05 KB | 0644 |
|
LabEntry.tcl | File | 2.09 KB | 0644 |
|
LabFrame.tcl | File | 1.15 KB | 0644 |
|
LabWidg.tcl | File | 3.86 KB | 0644 |
|
ListNBk.tcl | File | 3.5 KB | 0644 |
|
Meter.tcl | File | 3.04 KB | 0644 |
|
MultView.tcl | File | 3.62 KB | 0644 |
|
NoteBook.tcl | File | 6.02 KB | 0644 |
|
OldUtil.tcl | File | 2.98 KB | 0644 |
|
OptMenu.tcl | File | 9.17 KB | 0644 |
|
PanedWin.tcl | File | 27.68 KB | 0644 |
|
PopMenu.tcl | File | 5.37 KB | 0644 |
|
Primitiv.tcl | File | 10.28 KB | 0644 |
|
README.txt | File | 987 B | 0644 |
|
ResizeH.tcl | File | 12.94 KB | 0644 |
|
SGrid.tcl | File | 5.8 KB | 0644 |
|
SHList.tcl | File | 3.7 KB | 0644 |
|
SListBox.tcl | File | 6.97 KB | 0644 |
|
STList.tcl | File | 2.37 KB | 0644 |
|
SText.tcl | File | 3.09 KB | 0644 |
|
SWidget.tcl | File | 9.52 KB | 0644 |
|
SWindow.tcl | File | 6.75 KB | 0644 |
|
Select.tcl | File | 7.04 KB | 0644 |
|
Shell.tcl | File | 1.06 KB | 0644 |
|
SimpDlg.tcl | File | 1.13 KB | 0644 |
|
StackWin.tcl | File | 1.95 KB | 0644 |
|
StatBar.tcl | File | 1.31 KB | 0644 |
|
StdBBox.tcl | File | 1.62 KB | 0644 |
|
StdShell.tcl | File | 1.15 KB | 0644 |
|
TList.tcl | File | 17.59 KB | 0644 |
|
Tix.tcl | File | 9.51 KB | 0644 |
|
Tree.tcl | File | 4.57 KB | 0644 |
|
Utils.tcl | File | 10.54 KB | 0644 |
|
VResize.tcl | File | 4.95 KB | 0644 |
|
VStack.tcl | File | 9.42 KB | 0644 |
|
VTree.tcl | File | 4.31 KB | 0644 |
|
Variable.tcl | File | 2.5 KB | 0644 |
|
WInfo.tcl | File | 965 B | 0644 |
|
fs.tcl | File | 3.9 KB | 0644 |
|
libTix.so | File | 320.71 KB | 0755 |
|
license.terms | File | 2.76 KB | 0644 |
|
pkgIndex.tcl | File | 122 B | 0644 |
|