#!/usr/bin/env exu
----------------------------------------
-- HScale Aug.4, 2008
----------------------------------------
include GtkEngine.e
include GtkEnums.e
include GtkRoutines.e
include dll.e

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

function Foo(atom ctl, atom input)
return Info(win,"Results",sprintf("You entered: %d",{get(input,"value")}))
end function
constant foo = call_back(routine_id("Foo"))

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

constant slider = create(GtkHScale,0,100,1)
pack(panel,slider)

constant btnbox = create(GtkHButtonBox)
pack(panel,-btnbox)

constant btn1 = create(GtkButton,"gtk-quit")
connect(btn1,"clicked",quit)

constant btn2 = create(GtkButton,"gtk-ok")
connect(btn2,"clicked",foo,slider)

add(btnbox,{btn1,btn2})

show_all(win)
main()

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