Fix for net/mldonkey/stable

[David Coppa]

Hi,

This patch fixes a bug in the GTK+2 gui for mldonkey.

See http://savannah.nongnu.org/patch/?6968

Please, commit.
cheers
-dav


Index: Makefile
===================================================================
RCS file: /cvs/ports/net/mldonkey/stable/Makefile,v
retrieving revision 1.27
diff -N -u -p Makefile
--- Makefile 29 Oct 2009 08:28:09 -0000 1.27
+++ Makefile 6 Nov 2009 08:43:54 -0000
@@ -2,6 +2,7 @@
 
 COMMENT = e-donkey client
 DISTNAME = mldonkey-3.0.1
+PKGNAME = ${DISTNAME}p0
 CATEGORIES = net
 
 HOMEPAGE = http://mldonkey.sourceforge.net/Main_Page
Index: patches/patch-src_gtk2_gui_guiServers_ml
===================================================================
RCS file: patches/patch-src_gtk2_gui_guiServers_ml
diff -N -u -p patches/patch-src_gtk2_gui_guiServers_ml
--- /dev/null 6 Nov 2009 08:43:55 -0000
+++ patches/patch-src_gtk2_gui_guiServers_ml 6 Nov 2009 08:43:54 -0000
@@ -0,0 +1,15 @@
+$OpenBSD$
+
+fix switching server preferred status in gtk2 gui
+
+--- src/gtk2/gui/guiServers.ml.orig Sat Nov  3 16:04:51 2007
++++ src/gtk2/gui/guiServers.ml Fri Nov  6 03:35:12 2009
+@@ -356,7 +356,7 @@ class g_server () =
+              (fun path ->
+                 try
+                   let iter = self#get_iter path in
+-                  let k = self#find_key iter in
++                  let k = self#find_model_key iter in
+                   let s = server_of_key k in
+                   GuiCom.send (ServerSetPreferred (server_num k, not s.server_preferred));
+                   let row = self#convert_iter_to_child_iter iter in