exerbtk/test/form_border_style.rb

#! /usr/bin/ruby

#==============================================================================#
# $Id: form_border_style.rb,v 1.3 2004/02/13 16:35:31 yuya Exp $
#==============================================================================#

require 'etk/etk'

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

class MyForm < Etk::Form

  def initialize
    self.suspend_layout {
      self.text = '$Id: form_border_style.rb,v 1.3 2004/02/13 16:35:31 yuya Exp $'
      self.set_client_size(170, 230)
      self << Etk::Panel.new(:panel, '', 10, 10, 150, 210).with { |panel|
        panel.anchor = Etk::Control::ANCHOR_ALL
        panel.suspend_layout {
          panel << Etk::Button.new(:btn1, 'NONE',                0,   0, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn2, 'FIXED_3D',            0,  30, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn3, 'FIXED_DIALOG',        0,  60, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn4, 'FIXED_SINGLE',        0,  90, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn5, 'SIZABLE',             0, 120, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn6, 'FIXED_TOOL_WINDOW',   0, 150, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
          panel << Etk::Button.new(:btn7, 'SIZABLE_TOOL_WINDOW', 0, 180, 150, 30).set(:anchor => Etk::Control::ANCHOR_LEFT_AND_RIGHT)
        }
      }
    }
  end

  def on_panel_btn1_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_NONE
  end

  def on_panel_btn2_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_FIXED_3D
  end

  def on_panel_btn3_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_FIXED_DIALOG
  end

  def on_panel_btn4_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_FIXED_SINGLE
  end

  def on_panel_btn5_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_SIZABLE
  end

  def on_panel_btn6_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_FIXED_TOOL_WINDOW
  end

  def on_panel_btn7_click(arg)
    self.border_style = Etk::Form::BORDER_STYLE_SIZABLE_TOOL_WINDOW
  end

end

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

Etk.main(MyForm.new)

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