From fffbbdbb41b561ef9a515ca277595722e8a2fa11 Mon Sep 17 00:00:00 2001 From: "(no author)" <(no author)@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> Date: Thu, 8 Apr 1999 10:14:35 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'v1_2_4'. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_2_4@413 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/gtk/test5.rb | 65 -------------------------------------------------------- 1 file changed, 65 deletions(-) delete mode 100644 ext/gtk/test5.rb (limited to 'ext/gtk/test5.rb') diff --git a/ext/gtk/test5.rb b/ext/gtk/test5.rb deleted file mode 100644 index 39018a873c..0000000000 --- a/ext/gtk/test5.rb +++ /dev/null @@ -1,65 +0,0 @@ -require 'gtk' - -window = Gtk::Window::new(Gtk::WINDOW_TOPLEVEL) -window.set_title("buttons") -window.border_width(0) - -box1 = Gtk::VBox::new(FALSE, 0) -window.add(box1) -box1.show - -table = Gtk::Table::new(3, 3, FALSE) -table.set_row_spacings(5) -table.set_col_spacings(5) -table.border_width(10) -box1.pack_start(table, TRUE, TRUE, 0) -table.show - -button = [] -0.upto(8) do |i| - button.push Gtk::Button::new("button"+(i+1).to_s) -end -0.upto(8) do |i| - button[i].signal_connect("clicked") do |w| - p [i] - j = (i+1)%9 - if button[j].visible? - button[j].hide - else - button[j].show - end - end - button[i].show -end -table.attach(button[0], 0, 1, 0, 1, nil, nil, 0, 0) -table.attach(button[1], 1, 2, 1, 2, nil, nil, 0, 0) -table.attach(button[2], 2, 3, 2, 3, nil, nil, 0, 0) -table.attach(button[3], 0, 1, 2, 3, nil, nil, 0, 0) -table.attach(button[4], 2, 3, 0, 1, nil, nil, 0, 0) -table.attach(button[5], 1, 2, 2, 3, nil, nil, 0, 0) -table.attach(button[6], 1, 2, 0, 1, nil, nil, 0, 0) -table.attach(button[7], 2, 3, 1, 2, nil, nil, 0, 0) -table.attach(button[8], 0, 1, 1, 2, nil, nil, 0, 0) - -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