added eugtk examples

eugtk/examples/test47.ex

@@ -0,0 +1,54 @@
+
+-------------------------------------------------------------------------------
+--# GtkScrolledWindow
+-- container which holds an object larger than the space allocated, with scroll
+-- bars to allow seeing the entire object.
+-- Often used for lists, images, etc.
+-------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant win = create(GtkWindow,
+    "size=300x300,border_width=10,position=1,$destroy=Quit")
+  
+constant scrolwin = create(GtkScrolledWindow)
+    add(win,scrolwin)
+
+constant hadj = get(scrolwin,"hadjustment")
+ 
+constant scroller = create(GtkViewport)
+    add(scrolwin,scroller)
+
+constant panel = create(GtkBox,VERTICAL)
+    add(scroller,panel)
+
+constant img1 = create(GtkImage,"thumbnails/giraffe.jpg")
+    add(panel,img1)
+
+constant lbl = create(GtkLabel,{
+    {"markup","Various items in a <b><u>GtkScrolledWindow</u></b>"},
+    {"font","8"}})
+    add(panel,lbl)
+
+constant 
+    btnbox = create(GtkButtonBox),
+    btn1 = create(GtkButton,"gtk-quit","Quit"),
+    btn2 = create(GtkButton,"gtk-help",_("Foo"))
+    add(btnbox,{btn1,btn2})
+    pack(panel,-btnbox)
+
+show_all(win)
+set(hadj,"value",220)
+   
+main()
+
+------------------------------------------------------------------
+function Foo()
+------------------------------------------------------------------
+    Info(win,"Test47","<u>GtkScrolledWindow</u>",
+	"You can pack any kind of item into this\n\n" &
+	"<small><i>Note: the scrollbars appear only if the\n" &
+	"window is too small for the contents</i></small>")
+return 1
+end function
+