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