2 let new_class_list (* :
4 (name:string -> ?listprop:string list ->
5 parent_tree:GTree2.tree -> pos:int ->
8 TiBase.window_and_tree0 -> TiBase.tiwidget0)) list *)
10 "window", TiWindow.new_tiwindow;
11 "hbox", TiPack.new_tihbox;
12 "vbox", TiPack.new_tivbox;
13 "hbutton_box", TiPack.new_tihbutton_box;
14 "vbutton_box", TiPack.new_tivbutton_box;
15 "fixed", TiPack.new_tifixed;
16 "notebook", TiPack.new_tinotebook;
17 "button", TiButton.new_tibutton;
18 "check_button", TiButton.new_ticheck_button;
19 "toggle_button", TiButton.new_titoggle_button;
20 "radio_button", TiButton.new_tiradio_button;
21 "toolbar", TiButton.new_toolbar;
22 "hseparator", TiMisc.new_tihseparator;
23 "vseparator", TiMisc.new_tivseparator;
24 "statusbar", TiMisc.new_tistatusbar;
25 "label", TiMisc.new_tilabel;
26 "color_selection", TiMisc.new_ticolor_selection;
27 "pixmap", TiMisc.new_tipixmap;
28 "frame", TiBin.new_tiframe;
29 "aspect_frame", TiBin.new_tiaspect_frame;
30 "handle_box", TiBin.new_handle_box;
31 "viewport", TiBin.new_viewport;
32 "event_box", TiBin.new_event_box;
33 "scrolled_window", TiBin.new_tiscrolled_window;
34 "entry", TiEdit.new_tientry;
35 "spin_button", TiEdit.new_tispin_button;
36 "combo", TiEdit.new_ticombo;
37 "clist", TiList.new_clist
41 TiBase.new_tiwidget :=
42 (fun ~classe ?(pos = -1) ~name ~parent_tree ?insert_evbox ?(listprop = []) -> (List.assoc classe new_class_list) ~pos ~name ~parent_tree ?insert_evbox ~listprop)