support files with spaces
[booh] / booh-gui
1 #!/usr/bin/ruby
2 #
3 #                         *  BOOH  *
4 #
5 # A.k.a `Best web-album Of the world, Or your money back, Humerus'.
6 #
7 # The acronyn sucks, however this is a tribute to Dragon Ball by
8 # Akira Toriyama, where the last enemy beaten by heroes of Dragon
9 # Ball is named "Boo". But there was already a free software project
10 # called Boo, so this one will be it "Booh". Or whatever.
11 #
12 #
13 # Copyright (c) 2004 Guillaume Cottenceau <gc3 at bluewin.ch>
14 #
15 # This software may be freely redistributed under the terms of the GNU
16 # public license version 2.
17 #
18 # You should have received a copy of the GNU General Public License
19 # along with this program; if not, write to the Free Software
20 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
21
22
23 require 'gtk2'
24
25 Gtk.init
26
27 vbox = Gtk::VBox.new
28
29 vbox.pack_start(Gtk::Label.new("booh!"))
30 vbox.pack_start(b = Gtk::Button.new("booh :("))
31
32 b.signal_connect('clicked') do
33     Gtk.main_quit
34 end
35
36 w = Gtk::Window.new.add(vbox)
37 w.signal_connect('delete-event') do
38   Gtk.main_quit
39 end
40
41 #w.set_position(Gtk::Window::CENTER)
42
43 w.show_all
44
45 Gtk.main