# 
# patch "query.ml"
#  from [4fd07dbfdaf0d7269f249ccc1df6acf01fd6368c]
#    to [5270f57a5b635185afdd82cc3c3a4c95f5e6fe4a]
# 
# patch "unidiff.ml"
#  from [c91173ccdf199cfe6a93689b234f7864c7353110]
#    to [6446132389b142a377ad1922e73e7104241c88a6]
# 
========================================================================
--- query.ml	4fd07dbfdaf0d7269f249ccc1df6acf01fd6368c
+++ query.ml	5270f57a5b635185afdd82cc3c3a4c95f5e6fe4a
@@ -228,6 +228,7 @@
   let w = GWindow.dialog
       ~title:"Monotone-viz Query"
       ~screen:ctrl#get_toplevel#screen
+      ~icon:(Lazy.force Icon.monotone)
       ~type_hint:`NORMAL
       ~border_width:8  () in
 
========================================================================
--- unidiff.ml	c91173ccdf199cfe6a93689b234f7864c7353110
+++ unidiff.ml	6446132389b142a377ad1922e73e7104241c88a6
@@ -88,6 +88,7 @@
   let s = GWindow.file_chooser_dialog 
       ~action:`SAVE ~parent 
       ~destroy_with_parent:true
+      ~icon:(Lazy.force Icon.monotone)
       ~title:"Save monotone diff output" () in
   s#add_button_stock `CANCEL `CANCEL ;
   s#add_select_button_stock `SAVE `SAVE ;