#!/usr/bin/env ruby
#
# glaunch.rb
#   -- appication launcher for X
#   NISHI Takao <zophos@koka-in.org>
#
# $Id: glaunch.rb,v 1.2 2002/01/09 09:59:50 zophos Exp $
#

require 'thread'
require 'gtk'

class PixButton<Gtk::Button
    def initialize(parent,icon,workdir,*path)
	super()
	
	(pix,mask)=Gdk::Pixmap.create_from_xpm(parent.window,nil,icon)
	@pm=Gtk::Pixmap.new(pix,mask)
	@pm.show
	self.add(@pm)

	self.signal_connect('clicked'){
	    pid=fork{
		unless(workdir.nil?)
		    Dir::chdir(workdir)
		end
		exec(*path)
	    }
	    Thread.new{
		Process::waitpid(pid,Process::WUNTRACED)
	    }
	}
	self.show
    end
end

class MainWindow<Gtk::Window
    def initialize
	super(Gtk::WINDOW_TOPLEVEL)
	self.realize
	self.signal_connect('destroy'){
	    Gtk.main_quit
	}
	
	layout
    end

    def layout
	@buttons=[]
	@buttons.push(
	     PixButton.new(self,
			   '/usr/share/WindowMaker/Icons/GNUkterm.xpm',
			   nil,
			   '/usr/X11R6/bin/kterm',
			   '-fg','wheat',
			   '-cr','orange',
			   '-ms','wheat',
			   '-bg','#002700')
		      )

	@buttons.push(
	     PixButton.new(self,
			   '/usr/share/WindowMaker/Icons/ColorGNU.xpm',
			   nil,
			   '/home/zophos/bin/mule.sh')
		      )

	@buttons.push(
	     PixButton.new(self,
			   '/usr/share/WindowMaker/Icons/Netscape.xpm',
			   nil,
			   '/usr/bin/netscape')
		      )

	box=Gtk::HBox.new(true,0)
	@buttons.each{|b|
	    b.set_usize(64,64)
	    box.pack_start(b,false,false,0)
	}
	box.set_usize(64*@buttons.size,64)
	box.show

	self.add(box)
	self.set_usize(64*@buttons.size,64)
	self.set_title("login")
	#self.set_position(Gtk::POS_LEFT+Gtk::POS_BOTTOM)
	self.show
    end
end

window=MainWindow.new
Gtk.main