]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml
other files missing in 20001129
[helm.git] / helm / DEVEL / lablgtk / lablgtk_20001129-0.1.0 / applications / radtest / tiWidget.ml
diff --git a/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml b/helm/DEVEL/lablgtk/lablgtk_20001129-0.1.0/applications/radtest/tiWidget.ml
new file mode 100644 (file)
index 0000000..5a6e3ac
--- /dev/null
@@ -0,0 +1,43 @@
+
+let new_class_list (* :
+  (string *
+  (name:string -> ?listprop:string list ->
+   parent_tree:GTree2.tree -> pos:int ->
+   ?insert_evbox:bool ->
+   
+   TiBase.window_and_tree0 -> TiBase.tiwidget0)) list *)
+= [
+  "window",          TiWindow.new_tiwindow;
+  "hbox",            TiPack.new_tihbox;
+  "vbox",            TiPack.new_tivbox;
+  "hbutton_box",     TiPack.new_tihbutton_box;
+  "vbutton_box",     TiPack.new_tivbutton_box;
+  "fixed",           TiPack.new_tifixed;
+  "notebook",        TiPack.new_tinotebook;
+  "button",          TiButton.new_tibutton;
+  "check_button",    TiButton.new_ticheck_button;
+  "toggle_button",   TiButton.new_titoggle_button;
+  "radio_button",    TiButton.new_tiradio_button;
+  "toolbar",         TiButton.new_toolbar;
+  "hseparator",      TiMisc.new_tihseparator;
+  "vseparator",      TiMisc.new_tivseparator;
+  "statusbar",       TiMisc.new_tistatusbar;
+  "label",           TiMisc.new_tilabel;
+  "color_selection", TiMisc.new_ticolor_selection;
+  "pixmap",          TiMisc.new_tipixmap;
+  "frame",           TiBin.new_tiframe;
+  "aspect_frame",    TiBin.new_tiaspect_frame;
+  "handle_box",      TiBin.new_handle_box;
+  "viewport",        TiBin.new_viewport;
+  "event_box",       TiBin.new_event_box;
+  "scrolled_window", TiBin.new_tiscrolled_window;
+  "entry",           TiEdit.new_tientry;
+  "spin_button",     TiEdit.new_tispin_button;
+  "combo",           TiEdit.new_ticombo;
+  "clist",           TiList.new_clist
+]
+
+let _ =
+  TiBase.new_tiwidget :=
+    (fun ~classe ?(pos = -1) ~name ~parent_tree ?insert_evbox ?(listprop = []) -> (List.assoc classe new_class_list) ~pos ~name ~parent_tree ?insert_evbox ~listprop)
+