added eugtk examples

eugtk/examples/sock.ex

@@ -0,0 +1,49 @@
+
+---------------------------------------------------------
+--# 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