[Mldonkey-commits] Changes to mldonkey/src/gtk2/gui/guiWindow.ml

[mldonkey-commits]

Index: mldonkey/src/gtk2/gui/guiWindow.ml
diff -u mldonkey/src/gtk2/gui/guiWindow.ml:1.2 
mldonkey/src/gtk2/gui/guiWindow.ml:1.3
--- mldonkey/src/gtk2/gui/guiWindow.ml:1.2      Mon Apr  4 19:36:46 2005
+++ mldonkey/src/gtk2/gui/guiWindow.ml  Mon Oct 31 18:34:02 2005
@@ -144,10 +144,10 @@
 (*                                                                       *)
 (*************************************************************************)
 
-(* TODO *)
-
 let display_graph gui () =
   clean gui.vbox;
+  let graph = GuiGraph.graph_box gui in
+  gui.vbox#add graph;
   gui.current_page <- 8
 
 (*************************************************************************)
@@ -217,6 +217,12 @@
       ~icon:(A.get_icon ~icon:M.icon_menu_console ~size:A.LARGE ())
       ~f:(display_console gui) ()
   in
+  let bGraph = gui.wtool#add_toggle_button
+      ~style:!!O.gtk_look_toolbars_style
+      ~markup:!M.mW_lb_graph
+      ~icon:(A.get_icon ~icon:M.icon_menu_graph ~size:A.LARGE ())
+      ~f:(display_graph gui) ()
+  in
 (*
  * TODO : make a Graph tab + some stats
  *
@@ -250,9 +256,7 @@
       | 5 -> bRooms#set_active true
       | 6 -> bUploads#set_active true
       | 7 -> bConsole#set_active true
-(*
       | 8 -> bGraph#set_active true
-*)
       | _ -> bDownloads#set_active true
   );
   gui.update_current_page <- (fun _ ->
@@ -264,9 +268,7 @@
       | 5 -> display_rooms gui ()
       | 6 -> display_uploads gui ()
       | 7 -> display_console gui ()
-(*
       | 8 -> display_graph gui ()
-*)
       | _ -> display_downloads gui ()
   )
 
@@ -342,4 +344,4 @@
   vbox#pack ~expand:false ~fill:true statusbar;
 
   gui
-      
+