other files missing in 20001129

[helm.git] / helm / DEVEL / lablgtk / lablgtk_20001129-0.1.0 / examples / combo.ml

diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml
new file mode 100644 (file)
index 0000000..9aff1b3
--- /dev/null
+++ b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/examples/combo.ml
@@ -0,0 +1,23 @@
+(* $Id$ *)
+
+open GMain
+
+let make_arrow_label combo ~label ~string =
+  let item = GList.list_item () in (* no packing here, it blocks GTK *)
+  let hbox = GPack.hbox ~spacing:3 ~packing:item#add () in
+  GMisc.arrow ~kind:`RIGHT ~shadow:`OUT ~packing:hbox#pack ();
+  GMisc.label ~text:label ~packing:hbox#pack ();
+  combo#set_item_string item string;
+  combo#list#add item;
+  item
+
+let main () =
+  let window = GWindow.window ~border_width:10 () in
+  window#connect#destroy ~callback:Main.quit;
+  let combo = GEdit.combo ~packing:window#add () in
+  make_arrow_label combo ~label:"First item" ~string:"1st item";
+  make_arrow_label combo ~label:"Second item" ~string:"2nd item";
+  window#show ();
+  Main.main ()
+  
+let _ = main ()