class Tk::Tcllib::Swaplist_Dialog - tk-0.2.0 Documentation

# class Tk::Tcllib::Swaplist_Dialog

### Constants

PACKAGE_NAME
TkCommandNames
WidgetClassName

### Public Class Methods

display(*args) click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 43
    def self.display(*args)
      self.show(*args)
    end

new(*args) click to toggle source
Calls superclass method

    # File 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

package_name() click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 18
    def self.package_name
      PACKAGE_NAME
    end

package_version() click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 22
    def self.package_version
      begin
        TkPackage.require('swaplist')
      rescue
        ''
      end
    end

show(*args) click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 38
    def self.show(*args)
      dialog = self.new(*args)
      dialog.show
      [dialog.status, dialog.value]
    end

### Public Instance Methods

cget(slot) click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 103
    def cget(slot)
      cget_strict(slot)
    end

cget_strict(slot) click to toggle source

    # File 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

configinfo(slot = nil) click to toggle source

    # File 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

configure(slot, value=None) click to toggle source

    # File 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

display()
Alias for: show
selected()
Alias for: value
show() click to toggle source

    # File 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

Also aliased as: display
status() click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 84
    def status
      @status
    end

value() click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 88
    def value
      @variable.list
    end

Also aliased as: selected

### Private Instance Methods

create_self(keys) click to toggle source

    # File lib/tkextlib/tcllib/swaplist.rb, line 70
    def create_self(keys)
      # dummy
    end