Class: TkStringType
- Inherits:
-
TkTy
show all
- Defined in:
- ext/ae-rad/ae-rad-inspector.rb
Instance Attribute Summary
Attributes inherited from TkTy
#agobj, #labelhost, #prop
Instance Method Summary
collapse
Constructor Details
#initialize(_host, _family, _agobj, _prop, _val = nil) ⇒ TkStringType
Returns a new instance of TkStringType.
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
# File 'ext/ae-rad/ae-rad-inspector.rb', line 44
def initialize(_host, _family, _agobj, _prop, _val = nil)
@agobj = _agobj
@prop = _prop
@labelhost = _host
@family = _family
@etext = TkVariable.new(_host.cget('text'))
@etextvalue = @etext.to_s
@propobj = TkEntry.new(_host, Arcadia.style('edit').update({'textvariable'=>@etext})){
place('x'=>0, 'y'=>0,'relheight'=>1, 'relwidth'=>1, 'bordermode'=>'outside')
}
@propobj.bind("KeyRelease-F1", proc{do_update})
end
|
Instance Method Details
#do_update ⇒ Object
63
64
65
66
67
68
|
# File 'ext/ae-rad/ae-rad-inspector.rb', line 63
def do_update
if @etextvalue != @etext.to_s
@agobj.update_property(self, @family, @prop['name'],@etext.to_s)
@etextvalue = @etext.to_s
end
end
|
#free(_updatehost = true, _text = nil) ⇒ Object
70
71
72
73
|
# File 'ext/ae-rad/ae-rad-inspector.rb', line 70
def free(_updatehost = true, _text = nil)
do_update if (defined? @propobj)&&(@propobj != nil)
super
end
|
#setpropvalue(_value) ⇒ Object
59
60
61
|
# File 'ext/ae-rad/ae-rad-inspector.rb', line 59
def setpropvalue(_value)
@etext = _value
end
|