Class: TkWidgetFactory

Inherits:

Object

• Object
• TkWidgetFactory

Defined in:

lib/a-tkcommons.rb

Overview

require ‘tkextlib/tile’ Tk.tk_call “eval”,“ttk::setTheme clam” Tk::Tile::Style.theme_use(‘clam’)

Instance Method Summary

• #initialize ⇒ TkWidgetFactory constructor

  A new instance of TkWidgetFactory.

• #initialize_tile_widgets ⇒ Object
• #scrollbar(_parent, _args = nil, &b) ⇒ Object

Constructor Details

#initialize ⇒ TkWidgetFactory

Returns a new instance of TkWidgetFactory.

# File 'lib/a-tkcommons.rb', line 1695

def initialize
  if Arcadia.conf('tile.theme')
    @use_tile = true
    begin
      require 'tkextlib/tile'
      if Tk::Tile::Style.theme_names.include?(Arcadia.conf('tile.theme'))
        Tk::Tile::Style.theme_use(Arcadia.conf('tile.theme'))
      end
    rescue
      @use_tile = false
    end
    initialize_tile_widgets if @use_tile
  end
end

Instance Method Details

#initialize_tile_widgets ⇒ Object

# File 'lib/a-tkcommons.rb', line 1710

def initialize_tile_widgets
  #TScrollbar
  Tk::Tile::Style.configure("Arcadia.TScrollbar", Arcadia.style('scrollbar'))
  Tk::Tile::Style.map("Arcadia.TScrollbar",
  :background=>[:pressed, Arcadia.style('scrollbar')['activebackground'], :disabled, Arcadia.style('scrollbar')['background'], :active, Arcadia.style('scrollbar')['activebackground']],
  :arrowcolor=>[:pressed, Arcadia.style('scrollbar')['background'], :disabled, Arcadia.style('scrollbar')['highlightbackground'], :active, Arcadia.style('scrollbar')['background']],
  :relief=>[:pressed, :sunken])

  Tk::Tile::Style.layout(Tk::Tile.style('Vertical', "Arcadia.TScrollbar"),
  ["Scrollbar.trough",{:sticky=>"nsew", :children=>[
    "Scrollbar.uparrow",{:side=>:top, :sticky=>"we"},
    "Scrollbar.downarrow", {:side=>:bottom, :sticky=>"we"},
  "Scrollbar.thumb", {:sticky=>"nswe",:side=>:top, :border =>1, :expand=>true}]}])

  Tk::Tile::Style.layout(Tk::Tile.style('Horizontal', "Arcadia.TScrollbar"),
  ['Scrollbar.trough', {:children=>[
    'Scrollbar.leftarrow',   {:side=>:left},
    'Scrollbar.rightarrow', {:side=>:right},
  'Scrollbar.thumb',  {:side=>:left, :expand=>true}]}])

  #TFrame
  #Tk::Tile::Style.configure(Tk::Tile::TFrame, Arcadia.style('panel'))

  #TPaned
  #Tk::Tile::Style.configure(Tk::Tile::TPaned, Arcadia.style('panel'))

  #TEntry
  #Tk::Tile::Style.configure(Tk::Tile::TEntry, Arcadia.style('edit'))

  #TCombobox
  #Tk::Tile::Style.configure(Tk::Tile::TCombobox, Arcadia.style('combobox'))

  #TLabel
  #Tk::Tile::Style.configure(Tk::Tile::TLabel, Arcadia.style('label'))


  #Treeview
  #Tk::Tile::Style.configure(Tk::Tile::Treeview, Arcadia.style('treepanel'))


  #TMenubutton
  #Tk::Tile::Style.configure(Tk::Tile::TMenubutton, Arcadia.style('menu'))

  #TButton
  #Tk::Tile::Style.configure(Tk::Tile::TButton, Arcadia.style('button'))
end

#scrollbar(_parent, _args = nil, &b) ⇒ Object

# File 'lib/a-tkcommons.rb', line 1757

def scrollbar(_parent,_args=nil, &b)
  begin
    if @use_tile
      return Tk::Tile::Scrollbar.new(_parent,{:style=>"Arcadia.TScrollbar"}.update(_args), &b)
    else
      return TkScrollbar.new(_parent,Arcadia.style('scrollbar').update(_args), &b)
    end
  rescue RuntimeError => e
    Arcadia.runtime_error(e) 
  end
end