# File tk/lib/tkextlib/tcllib/swaplist.rb, line 43
def self.display(*args)
self.show(*args)
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 47
def initialize(*args)
# args = (parent=nil, complete_list=[], selected_list=[], keys=nil)
keys = args.pop
if keys.kind_of?(Hash)
@selected_list = args.pop
@complete_list = args.pop
@keys = _symbolkey2str(keys)
args.push(keys)
else
@selected_list = keys
@complete_list = args.pop
@keys = {}
end
@selected_list = [] unless @selected_list
@complete_list = [] unless @complete_list
@variable = TkVariable.new
@status = nil
super(*args)
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 18
def self.package_name
PACKAGE_NAME
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 103
def cget(slot)
cget_strict(slot)
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 93
def cget_strict(slot)
slot = slot.to_s
if slot == 'complete_list'
@complete_list
elsif slot == 'selected_list'
@selected_list
else
@keys[slot]
end
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 134
def configinfo(slot = nil)
if slot
slot = slot.to_s
if slot == 'complete_list'
[ slot, nil, nil, nil, @complete_list ]
elsif slot == 'selected_list'
[ slot, nil, nil, nil, @selected_list ]
else
[ slot, nil, nil, nil, @keys[slot] ]
end
else
@keys.collect{|k, v| [ k, nil, nil, nil, v ] } << [ 'complete_list', nil, nil, nil, @complete_list ] << [ 'selected_list', nil, nil, nil, @selected_list ]
end
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 107
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 == 'complete_list'
@complete_list = value
elsif slot == 'selected_list'
@selected_list = value
else
@keys[slot] = value
end
else
if slot == 'complete_list'
@complete_list = []
elsif slot == 'selected_list'
@selected_list = []
else
@keys.delete(slot)
end
end
end
self
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 75
def show
@variable.value = ''
@status = bool(tk_call(self.class::TkCommandNames[0],
@path, @variable,
@complete_list, @selected_list,
*hash_kv(@keys)))
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 84
def status
@status
end
# File tk/lib/tkextlib/tcllib/swaplist.rb, line 88
def value
@variable.list
end