----------------------------------------------------------------------
-- My Links
-- Puts a semi-transparent panel (if you are using compiz or similar)
-- on screen that gives quick access to your favorite websites without
-- having to run a  web browser in the background all the time.
-- On my computer, this program uses 7 megs, while a web browser 
-- (either Firefox or Google Chrome) uses 30+. 
-- If you use Chrome as your default browser, it will pop up almost
-- instantly. Firfox takes a bit longer...
----------------------------------------------------------------------
include GtkEngine.e
include std/filesys.e

constant win = create(GtkWindow)
 connect(win,"destroy",quit)
 set(win,"title","My Links")
 set(win,"border width",5)
 set(win,"decorated",FALSE)
 set(win,"stick")
 set(win,"skip pager hint",TRUE)
 set(win,"focus on map",FALSE)
 set(win,"opacity",.5)
 
constant panel = create(GtkVBox)
	add(win,panel)
	
integer max = 5
object btn = repeat(0,max), img = repeat(0,max)

img[1] = create(GtkImage,
	canonical_path("~/demos/thumbnails/euphoria.png"))
img[2] = create(GtkImage,
	canonical_path("~/demos/thumbnails/euphoria.png"))
img[3] = create(GtkImage,
	canonical_path("~/demos/thumbnails/gtk.png"))
img[4] = create(GtkImage,
	canonical_path("~/demos/thumbnails/gtk.png"))
img[5] = create(GtkImage,
	canonical_path("~/demos/thumbnails/gmail.jpg"))

btn[1] = create(GtkLinkButton,
	"http://oe.cowgar.com/forum/index.wc","Open Eu Forum")
	set(btn[1],"image",img[1])
	set(btn[1],"alignment",0,0)
			
btn[2] = create(GtkLinkButton,
	"http://rapideuphoria.com","RapidEuphoria")
	set(btn[2],"image",img[2])
	set(btn[2],"alignment",0,0)
		
btn[3] = create(GtkLinkButton,
	"http://etcwebspace.com/users/irvm","EuGTK")
	set(btn[3],"image",img[3])
	set(btn[3],"alignment",0,0)
	
btn[4] = create(GtkLinkButton,
	"http://gtk.org","GTK.org")
	set(btn[4],"image",img[4])
	set(btn[4],"alignment",0,0)
	
btn[5] = create(GtkLinkButton,
	"http://gmail.com","")
	set(btn[5],"image",img[5])
	set(btn[5],"alignment",0,0)
	
pack(panel,btn)
	
show_all(win)
main()