URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [library/] [FloatEnt.tcl] - Blame information for rev 1771

Go to most recent revision | Details | Compare with Previous | View Log


# 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) 1996, Expert Interface Technologies
#
# 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> "tixFloatEntry:invoke $w"
}
 
#----------------------------------------------------------------------
#
#       Class bindings
#
#----------------------------------------------------------------------
 
proc tixFloatEntryBind {} {
    tixBind TixFloatEntry <FocusIn>  {
      if {![tixStrEq [focus -displayof [set %W(w:entry)]] [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 ![tixStrEq $data(-command) ""] {
        set bind(specs) {%V}
        set bind(%V)    [$data(w:entry) get]
 
        tixEvalCmdBinding $w $data(-command) bind $bind(%V)
    }
}

Line No.	Rev	Author	Line
1	578	markom	`# FloatEnt.tcl --`
2			`#`
3			`# An entry widget that can be attached on top of any widget to`
4			`# provide dynamic editing. It is used to provide dynamic editing`
5			`# for the tixGrid widget, among other things.`
6			`#`
7			`# Copyright (c) 1996, Expert Interface Technologies`
8			`#`
9			`# See the file "license.terms" for information on usage and redistribution`
10			`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
11			`#`
12
13			`tixWidgetClass tixFloatEntry {`
14			`-classname TixFloatEntry`
15			`-superclass tixPrimitive`
16			`-method {`
17			`invoke post unpost`
18			`}`
19			`-flag {`
20			`-command -value`
21			`}`
22			`-configspec {`
23			`{-value value Value ""}`
24			`{-command command Command ""}`
25			`}`
26			`-default {`
27			`{.entry.highlightThickness 0}`
28			`}`
29			`}`
30
31			`#----------------------------------------------------------------------`
32			`#`
33			`# Initialization bindings`
34			`#`
35			`#----------------------------------------------------------------------`
36
37			`proc tixFloatEntry:InitWidgetRec {w} {`
38			`upvar #0 $w data`
39
40			`tixChainMethod $w InitWidgetRec`
41			`}`
42
43			`proc tixFloatEntry:ConstructWidget {w} {`
44			`upvar #0 $w data`
45
46			`tixChainMethod $w ConstructWidget`
47			`set data(w:entry) [entry $w.entry]`
48			`pack $data(w:entry) -expand yes -fill both`
49			`}`
50
51			`proc tixFloatEntry:SetBindings {w} {`
52			`upvar #0 $w data`
53
54			`tixChainMethod $w SetBindings`
55			`tixBind $data(w:entry) <Return> "tixFloatEntry:invoke $w"`
56			`}`
57
58			`#----------------------------------------------------------------------`
59			`#`
60			`# Class bindings`
61			`#`
62			`#----------------------------------------------------------------------`
63
64			`proc tixFloatEntryBind {} {`
65			`tixBind TixFloatEntry <FocusIn> {`
66			`if {![tixStrEq [focus -displayof [set %W(w:entry)]] [set %W(w:entry)]]} {`
67			`focus [%W subwidget entry]`
68			`[set %W(w:entry)] selection from 0`
69			`[set %W(w:entry)] selection to end`
70			`[set %W(w:entry)] icursor end`
71			`}`
72			`}`
73			`}`
74
75			`#----------------------------------------------------------------------`
76			`#`
77			`# Public methods`
78			`#`
79			`#----------------------------------------------------------------------`
80			`proc tixFloatEntry:post {w x y {width ""} {height ""}} {`
81			`upvar #0 $w data`
82
83			`if {$width == ""} {`
84			`set width [winfo reqwidth $data(w:entry)]`
85			`}`
86			`if {$height == ""} {`
87			`set height [winfo reqheight $data(w:entry)]`
88			`}`
89
90			`place $w -x $x -y $y -width $width -height $height -bordermode ignore`
91			`raise $w`
92			`focus $data(w:entry)`
93			`}`
94
95			`proc tixFloatEntry:unpost {w} {`
96			`upvar #0 $w data`
97
98			`place forget $w`
99			`}`
100
101			`proc tixFloatEntry:config-value {w val} {`
102			`upvar #0 $w data`
103
104			`$data(w:entry) delete 0 end`
105			`$data(w:entry) insert 0 $val`
106
107			`$data(w:entry) selection from 0`
108			`$data(w:entry) selection to end`
109			`$data(w:entry) icursor end`
110			`}`
111			`#----------------------------------------------------------------------`
112			`#`
113			`# Private methods`
114			`#`
115			`#----------------------------------------------------------------------`
116
117			`proc tixFloatEntry:invoke {w} {`
118			`upvar #0 $w data`
119
120			`if ![tixStrEq $data(-command) ""] {`
121			`set bind(specs) {%V}`
122			`set bind(%V) [$data(w:entry) get]`
123
124			`tixEvalCmdBinding $w $data(-command) bind $bind(%V)`
125			`}`
126			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tix/] [library/] [FloatEnt.tcl] - Blame information for rev 1771