# 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