class TkMenuTitledFrame

Public Instance Methods

__create_left_menu_button(_frame) click to toggle source
# File lib/a-tkcommons.rb, line 1634
def __create_left_menu_button(_frame)
  img=@img
  #@left_menu_button = TkMenuButton.new(_frame, Arcadia.style('titlebutton')){|mb|
  @left_menu_button = Arcadia.wf.titlemenubutton(_frame){|mb|
    menu Arcadia.wf.titlemenu(mb)
    #menu TkMenu.new(mb, Arcadia.style('titlemenu'))
    if img
      #indicatoron false
      image Arcadia.image_res(img)
    else
      #indicatoron true
    end
    #padx 0
    textvariable TkVariable.new('')
    pack('side'=> 'left','anchor'=> 'e')
  }

end
create_left_title() click to toggle source
# File lib/a-tkcommons.rb, line 1625
def create_left_title
  @left_menu_button = __create_left_menu_button(@top)
  @left_menu_button.bind_append("Double-Button-1", proc{resize})
end
shift_off() click to toggle source
# File lib/a-tkcommons.rb, line 1658
def shift_off
  @left_menu_button.state='disable'
  #@left_menu_button.foreground(Arcadia.conf('titlelabel.disabledforeground'))
end
shift_on() click to toggle source
# File lib/a-tkcommons.rb, line 1653
def shift_on
  @left_menu_button.state='normal'
  #@left_menu_button.foreground(Arcadia.conf('titlelabel.foreground'))
end
title(_text=nil) click to toggle source
# File lib/a-tkcommons.rb, line 1663
def title(_text=nil)
  if _text.nil?
    return @title
  else
    @title=_text
    if _text.strip.length == 0
      @left_menu_button.textvariable.value=''
    else
      @left_menu_button.textvariable.value=_text+'::'
    end
  end
end
title_menu() click to toggle source
# File lib/a-tkcommons.rb, line 1630
def title_menu
  @left_menu_button.cget('menu') if @left_menu_button
end