Add WRAP_WIDTH, WRAP_MODE tags to cell_properties_text, supported sin…

…ce gtk 2.8 (#146)
garrigue · Dec 18, 2021 · 8db82bb · 8db82bb
1 parent 3a15011
commit 8db82bb
Show file tree

Hide file tree

Showing 9 changed files with 1,400 additions and 1,695 deletions.
diff --git a/CHANGES b/CHANGES
@@ -1,5 +1,9 @@
 LablGTK changes log
 
+2021.12.18 [Jacques]
+  * Add WRAP_WIDTH, WRAP_MODE tags to cell_properties_text (#146)
+   [Nathan Guermond]
+
 2021.12.03 [Jacques]
   * Fix #141: lablgtk2 runs OCaml code inside blocking section
     (#142) [Bart Jacobs]

diff --git a/examples/tree.ml b/examples/tree.ml
@@ -35,8 +35,12 @@ let main () =
   let window = GWindow.window () in
   window#connect#destroy ~callback:GMain.quit;
   let view = GTree.view ~model ~packing:window#add () in
+  (* Allow wrapping for title field *)
   let col = GTree.view_column ~title:"Title" ()
-      ~renderer:(GTree.cell_renderer_text[], ["text",title]) in
+              ~renderer:(GTree.cell_renderer_text[`WRAP_WIDTH 150;
+                                                  `WRAP_MODE `WORD_CHAR],
+                         ["text",title]) in
+  col#set_resizable true;
   view#append_column col;
   let col = GTree.view_column ~title:"Author" ()
       ~renderer:(GTree.cell_renderer_text[], ["text",author]) in