added eugtk examples

eugtk/examples/test208.ex

@@ -0,0 +1,95 @@
+
+------------------------------------------------------------------------------------
+--# GtkHeaderBar -- a 'new look' for windows
+------------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+-- inline css;
+constant css = create(GtkCssProvider,"""
+/***************
+ * Header Bars *
+ ***************/
+ 
+.header-bar {
+    padding: 2px;
+    border-style: solid;
+    border-width: 2px 2px 2px 2px;
+    border-radius: 6px 6px 0 0;
+    border-color: gray90;
+    background-color: transparent;
+    background-image: 
+	linear-gradient(to bottom,
+	    cornsilk,
+	    cornflowerblue);                       
+    box-shadow: 1px 1px alpha(black, 0.5);                            
+}
+""")
+
+constant group = create(GtkAccelGroup)
+ 
+constant hdr = create(GtkHeaderBar,{
+    {"title","Header Bar"},
+    {"show close button",TRUE}})
+
+constant menu = create(GtkMenu),
+    fopen = create(GtkMenuItem,"gtk-open"),
+    fclose = create(GtkMenuItem,"gtk-close"),
+    fabout = create(GtkMenuItem,"gtk-about","About"),
+    fsep = create(GtkSeparatorMenuItem),
+    fexit = create(GtkMenuItem,"gtk-quit","Quit")
+    
+    set(fopen,"sensitive",FALSE)
+    set(fclose,"sensitive",FALSE)
+    set(menu,{
+	{"append",{fopen,fclose,fabout,fsep,fexit}},
+	{"title","Popup menu"},
+	{"show all",menu}})
+
+constant img = create(GtkImage,create(GdkPixbuf,"system-run",20,20,1))
+
+constant mb = create(GtkMenuButton,{
+    {"popup",menu},
+    {"add",img}})
+    set(hdr,"pack start",mb)
+
+constant win = create(GtkWindow,{
+    {"titlebar",hdr},
+    {"border=10"},
+    {"add accel group",group},
+    {"position",GTK_WIN_POS_CENTER},
+    {"default size",400,340},
+    {"connect","destroy","Quit"}})
+ 
+constant panel = create(GtkBox,VERTICAL)
+    add(win,panel)
+
+constant lbl = create(GtkLabel)
+    set(lbl,"markup","Click on the button at top left on the bar.")
+    add(panel,lbl)
+
+show_all(win)
+main()
+
+------------------------
+global function About()
+------------------------
+return Info(,,
+"GtkHeaderBar",
+`This is similar to a horizontal GtkBox. 
+ It allows children to be placed at the start 
+ or the end. In addition, it allows a title and 
+ subtitle to be displayed. The title will be 
+ centered with respect to the width of the box, 
+ even if the children at either side take up different 
+ amounts of space. The height of the titlebar will be 
+ set to provide sufficient space for the subtitle, even 
+ if none is currently set. If a subtitle is not needed, 
+ the space reservation can be turned off with 
+ gtk_header_bar_set_has_subtitle().
+
+ GtkHeaderBar can add typical window frame controls, 
+ such as minimize, maximize and close buttons, or the 
+ window icon.`,,"gtk-about")
+ end function
+