From 62e41d3f2e48422bbdf1bb2db83ae60b255b1a1a Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 16 Jan 1998 12:19:09 +0000
Subject: Initial revision

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/gtk/test6.rb | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 ext/gtk/test6.rb

(limited to 'ext/gtk/test6.rb')

diff --git a/ext/gtk/test6.rb b/ext/gtk/test6.rb
new file mode 100644
index 0000000000..a589530ab0
--- /dev/null
+++ b/ext/gtk/test6.rb
@@ -0,0 +1,49 @@
+require 'gtk'
+
+window = Gtk::Window::new(Gtk::WINDOW_TOPLEVEL)
+window.set_title("toggle buttons")
+window.border_width(0)
+
+box1 = Gtk::VBox::new(FALSE, 0)
+window.add(box1)
+box1.show
+
+box2 = Gtk::VBox::new(FALSE, 10)
+box2.border_width(10)
+box1.pack_start(box2, TRUE, TRUE, 0)
+box2.show
+
+button = Gtk::ToggleButton::new("button1")
+box2.pack_start(button, TRUE, TRUE, 0)
+button.show
+
+button = Gtk::ToggleButton::new("button2")
+box2.pack_start(button, TRUE, TRUE, 0)
+button.show
+
+button = Gtk::ToggleButton::new("button3")
+box2.pack_start(button, TRUE, TRUE, 0)
+button.show
+
+separator = Gtk::HSeparator::new()
+box1.pack_start(separator, FALSE, TRUE, 0)
+separator.show
+
+box2 = Gtk::VBox::new(FALSE, 10)
+box2.border_width(10)
+box1.pack_start(box2, FALSE, TRUE, 0)
+box2.show
+
+close = Gtk::Button::new("close")
+close.signal_connect("clicked") do
+  window.destroy
+  exit
+end
+box2.pack_start(close, TRUE, TRUE, 0)
+close.set_flags(Gtk::CAN_DEFAULT);
+close.grab_default
+close.show
+
+window.show
+
+Gtk::main()
-- 
cgit v1.2.3