-----------------------------------------------------------------
--# GtkScale
-----------------------------------------------------------------

include GtkEngine.e

constant docs = `<u><b>GtkScale</b></u>
Try clicking with left, middle and right mouse buttons on 
the scale slider at various places to see what happens.
Also try mouse scroll wheel.
`
constant win = create(GtkWindow,"size=250x100,border=10,position=1,$destroy=Quit")

constant panel = create(GtkBox,"orientation=VERTICAL")
	add(win,panel)

constant scale = create(GtkScale,{
	{"orientation",HORIZONTAL},
	{"range",0,100},
	{"increments",12.5,25}, -- step, page
	{"digits",0},
	{"draw value",TRUE},
	{"value pos",GTK_POS_BOTTOM}})
	pack(panel,scale,TRUE,TRUE,10)

constant caps = {"Empty","One Quarter","One Half","Three Quarters","Full"}
for i = 0 to length(caps)-1 do
	set(scale,"add mark",i*25,GTK_POS_TOP,caps[i+1])
end for
	
constant lbl = create(GtkLabel)
	set(lbl,"markup",docs)
	add(panel,lbl)

show_all(win)
main()