Class Button_with_Frame < TkButton

# File ext/tk/sample/btn_with_frame.rb, line 5
def create_self(keys)
  @frame = TkFrame.new('widgetname'=>@path, 'background'=>'yellow')
  install_win(@path) # create new @path which is a daughter of old @path
  super(keys)
  TkPack(@path, :padx=>7, :pady=>7)
  @epath = @frame.path
end

# File ext/tk/sample/btn_with_frame.rb, line 12
def epath
  @epath
end