Class ViewIcons < Object

# File ext/tk/sample/tkextlib/ICONS/viewIcons.rb, line 137
def initialize(init_path = Tk::LIBRARY)
  init_path = Tk::LIBRARY unless init_path
  init_path = File.expand_path(init_path)
  if File.directory?(init_path)
    @initial_dir  = init_path
    @initial_file = 'tkIcons'
  else
    @initial_dir  = File.dirname(init_path)
    @initial_file = File.basename(init_path)
  end

  if Tk::PLATFORM['platform'] == 'unix'
    TkOption.add('*HighlightThickness', 0)
  end

  @columns = 14
  @command = ""

  @delay_timer = nil

  dummy = TkLabel.new
  @font = dummy.font
  @boldfont = TkFont.new(@font, :weight=>:bold)
  @icons = {}
  @icon_name = {}
  @icon_info = {}

  @library = TkVariable.new(File.join(@initial_dir, @initial_file))
  @groups  = TkVariable.new('*')

  _create_controls

  _create_display

  _create_info_window

  Tk.root.title('viewIcons')
  layout_resize
  Tk.root.resizable(false, true)

  display_icons
end