# this is a test program, tests out tabbed panes. type F1 to exit
#
require 'logger'
require 'rbcurse'
#require 'rbcurse/core/widgets/newtabbedpane'
require 'rbcurse/core/widgets/rtabbedpane'

class TestTabbedPane
  def initialize
    acolor = $reversecolor
    #$config_hash ||= {}
  end
  def run
    $config_hash ||= Variable.new Hash.new
    #configvar.update_command(){ |v| $config_hash[v.source()] = v.value }
    @window = VER::Window.root_window
    @form = Form.new @window
    r = 1; c = 30;
      @tp = RubyCurses::TabbedPane.new @form  do
        height 12
        width  50
        row 13
        col 10
        button_type :ok
      end
      @tab1 = @tp.add_tab "&Language" 
      #f1 = @tab1.form
      f1 = @tp.form @tab1
      #$radio = Variable.new
      radio1 = RadioButton.new f1 do
        #variable $radio
        variable $config_hash
        name "radio1"
        text "ruby"
        value "ruby"
        color "red"
        row 4
        col 5
      end
      radio2 = RadioButton.new f1 do
        #variable $radio
        variable $config_hash
        name "radio1"
        text  "jruby"
        value  "jruby"
        color "green"
        row 5
        col 5
      end
      radio3 = RadioButton.new f1 do
        #variable $radio
        variable $config_hash
        name "radio1"
        text  "macruby"
        value  "macruby"
        color "cyan"
        row 6
        col 5
      end
      @tab2 = @tp.add_tab "&Settings"
      #f2 = @tab2.form
      f2 = @tp.form @tab2
      r = 4
      butts = [ "Use &HTTP/1.0", "Use &frames", "&Use SSL" ]
      bcodes = %w[ HTTP, FRAMES, SSL ]
      butts.each_with_index do |t, i|
        RubyCurses::CheckBox.new f2 do
          text butts[i]
          variable $config_hash
          name bcodes[i]
          row r+i
          col 5
        end
      end
      @tab3 = @tp.add_tab "&Editors"
      #f3 = @tab3.form
      f3 = @tp.form @tab3
      butts = %w[ &Vim E&macs &Jed &Other ]
      bcodes = %w[ VIM EMACS JED OTHER]
      row = 4
      butts.each_with_index do |name, i|
        RubyCurses::CheckBox.new f3 do
          text name
          variable $config_hash
          name bcodes[i]
          row row+i
          col 5
        end
      end
      @help = "q to quit. Use any key of key combination to see what's caught. Check logger too"
            RubyCurses::Label.new @form, {'text' => @help, "row" => 11, "col" => 2, "color" => "yellow"}
      @form.repaint
      @window.wrefresh
      Ncurses::Panel.update_panels
      while((ch = @window.getchar()) != ?q.getbyte(0) )
       # @tp.repaint
        @form.handle_key(ch)
        @window.wrefresh
      end
      #@tp.show
      #@tp.handle_keys
  end
end
if $0 == __FILE__
  # Initialize curses
  begin
    # XXX update with new color and kb
    VER::start_ncurses  # this is initializing colors via ColorMap.setup
    $log = Logger.new("rbc13.log")
    $log.level = Logger::DEBUG
    n = TestTabbedPane.new
    n.run
  rescue => ex
  ensure
    VER::stop_ncurses
    p ex if ex
    p(ex.backtrace.join("\n")) if ex
    $log.debug( ex) if ex
    $log.debug(ex.backtrace.join("\n")) if ex
  end
end