42 lines
1.1 KiB
Elixir
42 lines
1.1 KiB
Elixir
|
|
---------------------------------------------------------------------------------
|
|
--# Label with mnemonic (hot key) which is displayed when alt is depressed.
|
|
---------------------------------------------------------------------------------
|
|
|
|
include GtkEngine.e
|
|
|
|
constant win = create(GtkWindow,"size=200x100,border_width=10,position=1,$destroy=Quit")
|
|
|
|
constant panel = create(GtkBox,VERTICAL)
|
|
add(win,panel)
|
|
|
|
constant lbl = create(GtkLabel,"font=Ubuntu mono 18,markup with mnemonic=Try alt-t to _test")
|
|
add(panel,lbl)
|
|
|
|
constant
|
|
btn1 = create(GtkButton,"gtk-quit","Quit"),
|
|
btn2 = create(GtkButton,"gtk-ok","Foo"),
|
|
box = create(GtkButtonBox)
|
|
add(box,{btn1,btn2})
|
|
pack(panel,-box)
|
|
|
|
show_all(win) -- everything but inv1 button, created below;
|
|
|
|
constant inv1 = create(GtkButton) -- button with no caption, not shown!
|
|
connect(inv1,"clicked","Foo")
|
|
set(lbl,"mnemonic widget",inv1)
|
|
add(panel,inv1)
|
|
|
|
main()
|
|
|
|
------------------------------------
|
|
global function Foo(atom ctl)
|
|
------------------------------------
|
|
if ctl = btn2 then
|
|
Info(win,,"OK button pressed")
|
|
else
|
|
Info(win,,"Alt-t pressed")
|
|
end if
|
|
return 1
|
|
end function
|