added eugtk examples

eugtk/examples/test75.ex

@@ -0,0 +1,62 @@
+
+-----------------------------------------------------------------
+--# Mouse coordinates (global)
+--
+-- Why all this just to get the mouse xy location?
+-- Because GTK can handle multiple pointers - 
+-- for example, besides the mouse (or mice), you
+-- might also have a Wacom graphics tablet, 
+-- Synaptics TouchPad, or touchscreen, etc.
+-- for which you want the coordinates,
+-- no matter where on the screen they take place.
+
+-- If you only are interested in the mouse pointer location
+-- *within* your program's window, use the simpler
+-- get(win,"pointer") call. See test76.
+
+------------------------------------------------------------------
+
+include GtkEngine.e	
+
+constant docs = `
+<u><b>Pointer</b></u> location
+Move the mouse anywhere on the 
+display, and press Alt-O or &lt;enter&gt;
+(do not click the mouse buttons)
+`
+atom disp = create(GdkDisplay)
+atom mgr = get(disp,"device manager")
+atom pointer = get(mgr,"client pointer") 
+
+constant win = create(GtkWindow,"size=200x100,border_width=10,position=1,$destroy=Quit")
+
+constant panel = create(GtkBox,VERTICAL)
+    add(win,panel)
+
+constant img = create(GtkImage,"thumbnails/input-mouse.png")
+    add(panel,img)
+    
+constant lbl = create(GtkLabel)
+    set(lbl,"markup",docs)
+    add(panel,lbl)
+
+constant
+    btn1 = create(GtkButton,"gtk-quit","Quit"),
+    btn2 = create(GtkButton,"~/demos/thumbnails/input-mouse.png#Mouse","Foo"),
+    btnbox = create(GtkButtonBox,"margin top=5")
+    add(btnbox,{btn2,btn1})
+    pack(panel,-btnbox)
+   
+show_all(win)
+main()
+
+------------------------------------------------------------------------
+global function Foo()
+------------------------------------------------------------------------
+object xy = get(pointer,"position") 
+    Info(win,"Screen Position:",
+	format("Mouse Pointer:\nx=[2], y=[3]",xy),
+	"Press &lt;enter&gt; or &lt;escape&gt; to close this message box",
+	GTK_BUTTONS_CLOSE)
+return 1
+end function