The unified diff between revisions [dfb1deed..] and [9af6e795..] is displayed below. It can also be downloaded as a raw diff.

#
#
# patch "Makefile"
#  from [cc524f60efa7e5797e956c0574071ff53188db89]
#    to [3b3e3b4bfb58ef51a1ca35a936147442ed7e5ab8]
#
# patch "autocolor.ml"
#  from [9d59f87e56d79aad8c632cff38b12fab557814df]
#    to [f65e7ff180df5254be893399fc6f2872e941c8fb]
#
# patch "ui.ml"
#  from [73769632d6dd3fd7afa9458c342556922970f780]
#    to [23854896070794486268e9f1dca07a782d2c7cc6]
#
# patch "view.ml"
#  from [3ea5a5c223697b104c3cd158ec06b89f510323ad]
#    to [1fd9c1202a2ea9a2dbbf928a1f1e29d3e061aa74]
#
============================================================
--- Makefile	cc524f60efa7e5797e956c0574071ff53188db89
+++ Makefile	3b3e3b4bfb58ef51a1ca35a936147442ed7e5ab8
@@ -99,7 +99,7 @@ gnomecanvas_hack.o       : CINCDIRS = -c
 endif
 crypto/ocaml-openssl.o   : CINCDIRS = -ccopt "$(CRYPTO_CFLAGS)"
 gnomecanvas_hack.o       : CINCDIRS = -ccopt "$(GNOMECANVAS_CFLAGS)"
-$(EXTLIB)/unzip.%        : MLFLAGS += -w y
+#$(EXTLIB)/unzip.%        : MLFLAGS += -w y

 REVISION_FILE := $(shell test -r _MTN/revision && echo _MTN/revision)
 REVISION_ID    = $(shell mtn automate get_base_revision_id || ( test -r _MTN/revision && cat _MTN/revision ))
============================================================
--- autocolor.ml	9d59f87e56d79aad8c632cff38b12fab557814df
+++ autocolor.ml	f65e7ff180df5254be893399fc6f2872e941c8fb
@@ -31,11 +31,11 @@ let autocolor_hash s =
   let hash = Crypto.sha1 s in
   let f_of_hash p = float (Char.code hash.[p]) /. 256. in
   (* take 8 bits for hue *)
-  let hue = f_of_hash 0 in
+  let hue = f_of_hash 5 in
   (* take 8 bits for lightness  and map to [75% .. 90%] *)
-  let li  = f_of_hash 1 *. 0.15 +. 0.75 in
+  let li  = f_of_hash 1 *. 0.15 +. 0.55 in
   (* take 8 bits for saturation and map to [50% .. 80%]*)
-  let sat = f_of_hash 2 *. 0.3 +. 0.5 in
+  let sat = f_of_hash 2 *. 0.5 +. 0.5 in
   let (r, g, b) as triplet = hls_to_rgb hue li sat in
   if Viz_misc.debug "color"
   then
============================================================
--- ui.ml	73769632d6dd3fd7afa9458c342556922970f780
+++ ui.ml	23854896070794486268e9f1dca07a782d2c7cc6
@@ -451,6 +451,9 @@ let make () =
   m#insert_action_group g_popup 3 ;
   m#insert_action_group g_view  4 ;
   ignore (m#add_ui_from_string ui_info) ;
+  let tb = new GButton.toolbar (GtkButton.Toolbar.cast (get_obj m "/toolbar")) in
+  tb#set_style `ICONS ;
+  tb#set_icon_size `SMALL_TOOLBAR ;
   let menubar = m#get_widget "/menubar" in
   let toolbar = m#get_widget "/toolbar" in
   { manager = m ;
============================================================
--- view.ml	3ea5a5c223697b104c3cd158ec06b89f510323ad
+++ view.ml	1fd9c1202a2ea9a2dbbf928a1f1e29d3e061aa74
@@ -932,7 +932,7 @@ module Canvas = struct
     }

   let make ~aa ~packing =
-    let sw = GBin.scrolled_window ~width:700 ~height:400 ~packing () in
+    let sw = GBin.scrolled_window ~width:1024 ~height:400 ~packing () in
     let canvas = GnoCanvas.canvas ~aa ~packing:sw#add () in
     let selection_rect = GnoCanvas.rect ~fill_color:"tomato" canvas#root in
     selection_rect#hide () ;