Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-02 05:17:03 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

[ocaml] turn off search in non editable xml tree views

Browse Source 
should fix #995
This commit is contained in:
Felix Ruess
2015-01-03 13:11:20 +01:00
parent 8ee493f409
commit dea80645de
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/xmlEdit.ml
+1 -1
View File
@@ -181,7 +181,7 @@ let set_bg_color = fun renderer (model:GTree.model) iter ->
renderer#set_properties [`CELL_BACKGROUND bg] renderer#set_properties [`CELL_BACKGROUND bg]
let tree_view = fun format_attribs ?(edit=true) (model:GTree.tree_store) window -> let tree_view = fun format_attribs ?(edit=true) (model:GTree.tree_store) window ->
let view = GTree.view ~model ~reorderable:edit ~packing:window#add () in let view = GTree.view ~model ~enable_search:edit ~reorderable:edit ~packing:window#add () in
let r = GTree.cell_renderer_text [] in let r = GTree.cell_renderer_text [] in
let col = GTree.view_column ~title:"Tag" () ~renderer:(r, ["text",tag_col]) in let col = GTree.view_column ~title:"Tag" () ~renderer:(r, ["text",tag_col]) in
col#set_cell_data_func r (set_bg_color r); col#set_cell_data_func r (set_bg_color r);