Download The demexp Book - Linux

Function connect question view connects the backend to the view displaying the list of
questions. It also adds the three graphical columns (“id”, “descriptor” and “public”) in the view.
134
hclsf.ml 129i+≡
/ 133 135a .
let connect_question_view client cookie cache
backends user_msg ˜view ˜backend =
(* public column *)
let renderer = GTree.cell_renderer_toggle [] in
ignore(renderer#connect#toggled
˜callback:(public_toggled client cookie cache backends user_msg
˜model:backend#store
˜column:backend#col_public));
let col = GTree.view_column ˜title:(s_ "public")
˜renderer:(renderer, ["active", backend#col_public]) () in
col#set_sort_column_id backend#col_public.GTree.index;
col#set_sort_indicator true;
ignore(view#append_column col);
(* id column *)
let col = GTree.view_column ˜title:(s_ "id")
˜renderer:(GTree.cell_renderer_text [], ["text",
backend#col_id]) () in
col#set_sort_column_id backend#col_id.GTree.index;
col#set_sort_indicator true;
ignore(view#append_column col);
(* descriptor column *)
let col = GTree.view_column ˜title:(s_ "descriptor")
˜renderer:(GTree.cell_renderer_text [], ["text",
backend#col_desc]) () in
col#set_sort_column_id backend#col_desc.GTree.index;
col#set_sort_indicator true;
ignore(view#append_column col);
view#set_rules_hint true;
view#selection#set_mode ‘SINGLE;
view#set_model (Some backend#store#coerce)
134