added eugtk examples

eugtk/examples/test112.ex

@@ -0,0 +1,56 @@
+
+--------------------------------------------------------------
+--# Multiple text buffers
+--------------------------------------------------------------
+
+include GtkEngine.e
+
+constant win = create(GtkWindow,"size=480x300,position=1,border_width=10,$destroy=Quit")
+
+constant panel = create(GtkBox,"orientation=VERTICAL,spacing=10")
+    add(win,panel)
+
+constant scroller = create(GtkScrolledWindow)
+    pack(panel,scroller,TRUE,TRUE)
+
+constant tv = create(GtkTextView,"editable=TRUE,left_margin=5,right_margin=5")
+    add(scroller,tv)
+
+constant buff1 = create(GtkTextBuffer)
+    set(buff1,"text",`
+_____Here is text for buffer #1
+
+    Now is the time for all good men to come
+    to the aid of the party...
+
+    You should copy/paste or type something 
+    more here. You can copy/paste between 
+    buffers, too.`)
+
+constant buff2 = create(GtkTextBuffer)
+	set(buff2,"text",`
+____________And here is the text for buffer #2:
+` & LGPL)
+
+constant btnbox = create(GtkButtonBox)
+	set(btnbox,"layout",GTK_BUTTONBOX_SPREAD)
+	pack(panel,-btnbox)
+
+constant 
+    btn1 = create(GtkButton,"edit-paste#Buffer _1",_("Paste"),buff1),
+    btn2 = create(GtkButton,"edit-paste#Buffer _2",_("Paste"),buff2),
+    btn3 = create(GtkButton,"gtk-quit","Quit")
+    set(btn1,"tooltip markup","Paste text from <b>Buffer #1</b>")
+    set(btn2,"tooltip markup","Paste text from <b>Buffer #2</b>")
+    add(btnbox,{btn3,btn1,btn2})
+
+show_all(win)
+main()
+
+------------------------------------------------------------------------
+function Paste(atom ctl, atom whichbuffer)
+------------------------------------------------------------------------
+    set(tv,"buffer",whichbuffer)
+return 1
+end function
+