Class: TkMenuTitledFrame

Inherits:

TkTitledFrame

• Object
• TkFrame
• TkBaseTitledFrame
• TkTitledFrame
• TkMenuTitledFrame

Defined in:

lib/a-tkcommons.rb

Direct Known Subclasses

TkTitledFrameAdapter

Instance Attribute Summary

Attributes inherited from TkTitledFrame

#frame, #parent, #top

Attributes inherited from TkBaseTitledFrame

#frame, #top

Instance Method Summary

• #__create_left_menu_button(_frame) ⇒ Object
• #create_left_title ⇒ Object
• #shift_off ⇒ Object
• #shift_on ⇒ Object
• #title(_text = nil) ⇒ Object
• #title_menu ⇒ Object

Methods inherited from TkTitledFrame

#__create_right_label, #create_right_label, #head_buttons, #initialize, #last_caption, #last_caption_image, #maximize, #maximized?, #resize, #restore_caption, #save_caption, #top_text, #top_text_bind_append, #top_text_bind_remove, #top_text_clear, #top_text_hide, #top_text_hint

Methods inherited from TkBaseTitledFrame

#add_fixed_button, #add_fixed_menu_button, #add_fixed_panel, #add_fixed_sep, #create_frame, #head_buttons, #initialize, #menu_button, #visible?

Constructor Details

This class inherits a constructor from TkTitledFrame

Instance Method Details

#__create_left_menu_button(_frame) ⇒ Object

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

def __create_left_menu_button(_frame)
  img=@img
  @left_menu_button = TkMenuButton.new(_frame, Arcadia.style('titlebutton')){|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 ⇒ Object

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

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 ⇒ Object

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

def shift_off
  @left_menu_button.foreground(Arcadia.conf('titlelabel.disabledforeground'))
end

#shift_on ⇒ Object

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

def shift_on
  @left_menu_button.foreground(Arcadia.conf('titlelabel.foreground'))
end

#title(_text = nil) ⇒ Object

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

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 ⇒ Object

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

def title_menu
  @left_menu_button.cget('menu') if @left_menu_button
end