exerbtk/test/splitter.rb

#! /usr/bin/ruby

#==============================================================================#
# $Id: splitter.rb,v 1.5 2004/02/13 15:05:04 yuya Exp $
#==============================================================================#

require 'etk/etk'

#==============================================================================#

class MyForm < Etk::Form

  def initialize
    self.text = "$Id: splitter.rb,v 1.5 2004/02/13 15:05:04 yuya Exp $"
    self.set_client_size(400, 300)
    self.set_minimum_size(300, 200)
    self << Etk::Panel.new(:panel1).with { |panel1|
      panel1.dock = Etk::Control::DOCK_STYLE_FILL
      panel1 << Etk::TextBox.new(:text1, "TextBox1").set(:tab_index => 2, :dock => Etk::Control::DOCK_STYLE_FILL)
      panel1 << Etk::Splitter.new(:split1).with { |split1|
        split1.width     = 4
        split1.dock      = Etk::Control::DOCK_STYLE_LEFT
        split1.min_size  = 100
        split1.min_extra = 100
      }
      panel1 << Etk::Panel.new(:panel2).with { |panel2|
        panel2.dock = Etk::Control::DOCK_STYLE_LEFT
        panel2 << Etk::TextBox.new(:text2, "TextBox2").set(:tab_index => 1, :dock => Etk::Control::DOCK_STYLE_FILL)
        panel2 << Etk::Splitter.new(:split2).with { |split2|
          split2.height    = 4
          split2.dock      = Etk::Control::DOCK_STYLE_TOP
          split2.min_size  = 100
          split2.min_extra = 100
        }
        panel2 << Etk::TextBox.new(:text3, "TextBox3").set(:tab_index => 0, :dock => Etk::Control::DOCK_STYLE_TOP)
      }
    }

    self[:panel1][:split1].split_position = 100
    self[:panel1][:panel2][:split2].split_position = 100
  end

end

#==============================================================================#

Etk.main(MyForm.new)

#==============================================================================#
#==============================================================================#