ocamlviz-svn/no-icon.patch

   1 --- a/src/gui.ml
   2 +++ b/src/gui.ml
   3 @@ -160,7 +160,7 @@
   4  (* Detaches a page from the notebook and makes a new window from it *)
   5  let detach_from_nb (nb:GPack.notebook) (hb:GPack.box) (hb2:GPack.box) name =
   6    let w = GWindow.window ~title:name ~width:450 ~height:300 ~position:`MOUSE
   7 -    ~icon:(GdkPixbuf.from_file "/usr/share/pixmaps/ocaml.xpm") () in
   8 +    () in
   9    let a_g = GtkData.AccelGroup.create () in
  10    w#add_accel_group a_g;
  11    let parent = hb#misc#parent in
  12 @@ -1076,7 +1076,6 @@
  13  let start () =
  14    let window = GWindow.window
  15      ~title:"Ocamlviz" ~position:`CENTER
  16 -    ~icon:(GdkPixbuf.from_file "/usr/share/pixmaps/ocaml.xpm")
  17      () in
  18    main_window := Some window;
  19