-----------------------------------------
-- Notebook 
-----------------------------------------
include GtkEngine.e
include std/dll.e

constant txt1 = "<b><u>A GTK Notebook</u></b>\n\n" 
	& "Notebooks will not be visible until at least one\n" 
	& "page has been added.\n\n" 
	& "Almost any GTK widget can be added to a notebook page.\n"

constant lbl1 = create(GtkLabel)
	set(lbl1,"markup",txt1)

constant txt2 = "\nNotebook tabs are automatically named 'Page 1',\n"
	& "'Page 2', etc. but can be renamed or replaced with images."

constant lbl2 = create(GtkLabel)
	set(lbl2,"markup",txt2)

constant
	label1 = create(GtkLabel,"Name:"),
	field1 = create(GtkEntry),
	label2 = create(GtkLabel,"Addr:"),
	field2 = create(GtkEntry),
	label3 = create(GtkLabel,"City,ST,zip"),
	field3 = create(GtkEntry)

constant infoform = {label1,field1,label2,field2,label3,field3}

constant win = create(GtkWindow)
	connect(win,"destroy",quit)
	set(win,"default size",300,200)
	set(win,"position",GTK_WIN_POS_CENTER)

constant panel = create(GtkVBox)
	add(win,panel)

constant notebook = create(GtkNotebook),
	page1 = create(GtkVBox),
	page2 = create(GtkVBox),
	page3 = create(GtkImage,"mike.jpg"),
	page4 = create(GtkHBox),
	page5 = create(GtkVBox)

	set(page1,"border width",10)
	pack(page1,lbl1)
	pack(page1,create(GtkImage,"tweety.gif"))
	pack(page1,lbl2)

	set(page2,"border width",20)
	pack(page2,infoform)
	pack(page5,create(GtkImage,"tux.jpg"))

	pack(page4,create(GtkImage,"jls.jpg"))

	set(notebook,"append page",page1)
	set(notebook,"append page",page2)
	set(notebook,"append page menu",page3,,,create(GtkLabel,"Menu"))
	set(notebook,"append page",page4,create(GtkLabel,"Tab 4"))
	set(notebook,"append page",page5,create(GtkImage,"tuxtab.xpm"))
	set(notebook,"popup enable")

	add(panel,notebook)

show_all(win)
main()

---------------------------------------------------------------
-- Copyright 2009 by Irv Mullins - code released under the LGPL
---------------------------------------------------------------