#!/usr/bin/env ruby

require_relative '../../lib/ffi-tk'

Tk.init

Tk::Tile::Style.theme_use 'alt'

THEMELIST = [
  ['default', 'Default'],
  ['classic', 'Classic'],
  ['alt', 'Revitalized'],
  ['clam', 'Clam'],
  ['winnative', 'Windows native'],
  ['xpnative', 'XP Native'],
  ['aqua', 'Aqua'],
]
RUBY_THEMELIST = []
RUBY_THEMELIST << ['kroc-rb', 'Kroc (by Ruby)', false]

def makeThemeControl(parent)
  frame = Tk::Tile::LabelFrame.new parent, text: 'Theme'

  THEMELIST.each{|theme, name|
    b = Tk::Tile::RadioButton.new(frame, text: name, value: theme,
                                  command: proc{ Tk::Tile::Style.theme_use(theme) } )

    b.grid sticky: 'ew'
    b.state(:disabled) unless Tk::Tile::Style.theme_names.include?(theme)
  }
  RUBY_THEMELIST.each{|theme, name, available|
    b = Tk::Tile::RadioButton.new(frame, text: name, value: theme,
                                  command: proc{ Tk::Tile::Style.theme_use(theme) } )

    b.grid sticky: 'ew'
    b.state(:disabled) unless available # ? use #ttk_state
  }
  frame
end

makeThemeControl(Tk.root).pack side: 'left'


BUTTONS = ['open', 'new', 'save']
TOOLBARS = []
CHECKBOXES = ['bold', 'italic']
ICON = {}

#def loadIcons(file)
#  Tk.load_tclscript(file)
#  img_data = TkVarAccess.new('ImgData')
#  img_data.keys.each{|icon|
#    $ICON[icon] = TkPhotoImage.new(:data=>img_data[icon])
#  }
#end
#loadIcons(File.join(demodir, 'iconlib.tcl'))


def makeToolbars(parent)
  #
  # Tile toolbar:
  #

  tb = Tk::Tile::Frame.new(parent, :class => 'Toolbar')
  #tb = Tk::Tile::Frame.new(parent)
  TOOLBARS << tb
  i = 0
  BUTTONS.each{|icon|
    i += 1
    Tk::Tile::Button.new(tb, text: icon,
                        # :image=>$ICON[icon],
                        # :compound=>$V[:COMPOUND],
                         :style=>:Toolbutton).grid(:row=>0, :column=>i,
                                                   :sticky=>:news)
  }
  CHECKBOXES.each{|icon|
    i += 1
    Tk::Tile::CheckButton.new(tb, text: icon,
                              #:image=>$ICON[icon],
                              #:variable=>$V.ref(icon),
                              #:compound=>$V[:COMPOUND],
                              :style=>:Toolbutton).grid(:row=>0, :column=>i,
                                                        :sticky=>:news)
  }

  mb = Tk::Tile::MenuButton.new(tb, text: 'toolbar',
                                #:image=>$ICON['file'],
                                #:compound=>$V[:COMPOUND]
                               )
  mb.configure menu: makeCompoundMenu(mb)

  i += 1
  mb.grid(row: 0, column: i, sticky: :news)

  i += 1
  tb.grid_columnconfigure(i, weight: 1)

  return tb
end

#
# Toolbar :compound control:
#
def makeCompoundMenu(mb)
  menu = Tk::Menu.new(mb)
  %w(text image none top bottom left right center).each{|str|
    #menu.add(:radiobutton, :label=> Tk.tk_call('string', 'totitle', str),
    menu.add(:radiobutton, :label=> str,
             :value=>str,
             #:variable=>$V.ref(:COMPOUND),
             :command=> proc{ puts "foo"; true } )
  }
  menu
end

makeToolbars(Tk.root)
#makeToolbars(Tk.root).pack
TOOLBARS.each { |tb| tb.pack }


#puts Tk::Tile::Style.theme_names.inspect
Tk.mainloop