51 lines
1.5 KiB
Elixir
51 lines
1.5 KiB
Elixir
|
|
----------------------------------------------------------------------------------------------
|
|
--# GtkColorChooserWidget
|
|
----------------------------------------------------------------------------------------------
|
|
|
|
include GtkEngine.e
|
|
|
|
requires("3.04","GtkColorChooserWidget")
|
|
|
|
constant docs = `<u><b>Color Chooser Widget</b></u>
|
|
Select a color, hit the Select-Color button.
|
|
`
|
|
constant win = create(GtkWindow,"border=10,size=300x200,position=1,$destroy=Quit")
|
|
|
|
constant panel = create(GtkBox,"orientation=VERTICAL,spacing=10")
|
|
add(win,panel)
|
|
|
|
constant lbl = create(GtkLabel)
|
|
set(lbl,"markup",docs)
|
|
add(panel,lbl)
|
|
|
|
constant ccw = create(GtkColorChooserWidget,"rgba=LightGreen,show_editor=FALSE")
|
|
connect(ccw,"color-activated",_("ShowSelectedColor"))
|
|
add(panel,ccw)
|
|
|
|
constant
|
|
btn1 = create(GtkButton,"gtk-quit","Quit"),
|
|
btn2 = create(GtkCheckButton,"Editor",_("ToggleEditor")),
|
|
btn3 = create(GtkButton,"gtk-select-color",_("ShowSelectedColor")),
|
|
box = create(GtkButtonBox)
|
|
add(box,{btn1,btn2,btn3})
|
|
pack(panel,-box)
|
|
|
|
show_all(win)
|
|
main()
|
|
|
|
---------------------------------------
|
|
function ToggleEditor(atom ctl)
|
|
---------------------------------------
|
|
set(ccw,"show-editor",get(ctl,"active"))
|
|
return 1
|
|
end function
|
|
|
|
------------------------------------
|
|
function ShowSelectedColor()
|
|
------------------------------------
|
|
object x = get(ccw,"rgba",1)
|
|
set(lbl,"markup",sprintf("<b><u>Color Chooser Widget</u></b>\nColor selected: %s",{x}))
|
|
return 1
|
|
end function
|