50 lines
1.3 KiB
Elixir
50 lines
1.3 KiB
Elixir
|
|
||
|
|
---------------------------------------------------------
|
||
|
|
--# Plug and Socket Demo <span color='red'><b>Run this one!</b></span> It will call plug.ex.
|
||
|
|
---------------------------------------------------------
|
||
|
|
-- Running this file will open a window and show a Socket ID.
|
||
|
|
-- sock.ex will then execute plug.ex, passing the Socket ID to it.
|
||
|
|
--
|
||
|
|
-- plug.ex will open a small window containing a
|
||
|
|
-- FileChooserButton. Use this to select images.
|
||
|
|
-- The selected image should be shown in the sock window.
|
||
|
|
----------------------------------------------------------
|
||
|
|
|
||
|
|
chdir(canonical_path("~/demos"))
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
constant win2 = create(GtkWindow,{
|
||
|
|
{"default size",520,520},
|
||
|
|
{"border width",10},
|
||
|
|
{"move",0,0},
|
||
|
|
{"icon","~/demos/thumbnails/applications-development.svg"},
|
||
|
|
{"connect","map-event","Go"},
|
||
|
|
{"connect","destroy","Quit"}})
|
||
|
|
|
||
|
|
constant panel = create(GtkBox,VERTICAL)
|
||
|
|
add(win2,panel)
|
||
|
|
|
||
|
|
constant lbl = create(GtkLabel)
|
||
|
|
add(panel,lbl)
|
||
|
|
|
||
|
|
constant sock = create(GtkSocket)
|
||
|
|
pack(panel,sock,1,1)
|
||
|
|
|
||
|
|
show_all(win2)
|
||
|
|
|
||
|
|
integer sock_id = get(sock,"id")
|
||
|
|
|
||
|
|
set(lbl,"text",sprintf("Socket ID %d",sock_id))
|
||
|
|
display("Socket ID []",sock_id)
|
||
|
|
|
||
|
|
main()
|
||
|
|
|
||
|
|
---------------------
|
||
|
|
global function Go()
|
||
|
|
---------------------
|
||
|
|
display(current_dir())
|
||
|
|
system(sprintf("eui plug.ex %d &",sock_id))
|
||
|
|
return 1
|
||
|
|
end function
|