--- /dev/null
+
+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)
+