# File tk/lib/tkextlib/tcllib/getstring.rb, line 44
def self.display(*args)
self.show(*args)
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 48
def initialize(*args) # args = (parent=nil, text='', keys=nil)
keys = args.pop
if keys.kind_of?(Hash)
text = args.pop
@keys = _symbolkey2str(keys)
args.push(keys)
else
text = keys
@keys = {}
end
if text
@text = text.dup
else
@text = ''
end
@variable = TkVariable.new
@status = nil
super(*args)
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 19
def self.package_name
PACKAGE_NAME
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 98
def cget(slot)
cget_strict(slot)
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 90
def cget_strict(slot)
slot = slot.to_s
if slot == 'text'
@text
else
@keys[slot]
end
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 125
def configinfo(slot = nil)
if slot
slot = slot.to_s
[ slot, nil, nil, nil, ( (slot == 'text')? @text: @keys[slot] ) ]
else
@keys.collect{|k, v| [ k, nil, nil, nil, v ] } << [ 'text', nil, nil, nil, @text ]
end
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 102
def configure(slot, value=None)
if slot.kind_of?(Hash)
slot.each{|k, v| configure(k, v)}
else
slot = slot.to_s
value = _symbolkey2str(value) if value.kind_of?(Hash)
if value && value != None
if slot == 'text'
@text = value.to_s
else
@keys[slot] = value
end
else
if slot == 'text'
@text = ''
else
@keys.delete(slot)
end
end
end
self
end
# File tk/lib/tkextlib/tcllib/getstring.rb, line 75
def show
@variable.value = ''
@status = bool(tk_call(self.class::TkCommandNames[0],
@path, @variable, @text, *hash_kv(@keys)))
end