added eugtk examples

eugtk/examples/test91.ex

@@ -0,0 +1,57 @@
+
+--------------------------------------------------------------------------------
+--# GtkClipboard paste text
+-------------------------------------------------------------------------------- 
+
+include GtkEngine.e	
+
+constant docs = `<b><u>Clipboard</u></b>
+Click the Paste button to add text 
+to the clipboard, or copy some from 
+an editor or web browser.
+`
+constant win = create(GtkWindow,"size=300x200,border_width=5,position=1,$destroy=Quit")
+
+constant panel = create(GtkBox,GTK_ORIENTATION_VERTICAL)
+    add(win,panel)
+
+constant pix = create(GtkImage,"thumbnails/clipper.png")
+    add(panel,pix)
+
+constant lbl = create(GtkLabel)
+    set(lbl,"markup",docs)
+    add(panel,lbl)
+
+constant txt = "Now is the time for all good men\nto come to the aid of the party."
+
+constant cb = create(GtkClipboard)
+
+constant 
+    btn1 = create(GtkButton,"gtk-quit","Quit"),
+    btn2 = create(GtkButton,"gtk-clear","Clear"),
+    btn3 = create(GtkButton,"gtk-paste","Paste"),
+    box = create(GtkButtonBox)
+    pack(panel,-box)
+    add(box,{btn1,btn2,btn3})
+
+show_all(win)
+main()
+
+------------------------
+global function Paste()
+------------------------
+    set(cb,"text",txt,length(txt))
+return 1
+end function
+
+-----------------------
+global function Clear()
+-----------------------
+    set(cb,"text","\n",1)
+return 1
+end function
+
+
+
+
+