[Mldonkey-commits] mldonkey distrib/ChangeLog src/gtk2/gui/guiServ...

[mldonkey-commits]

CVSROOT:        /sources/mldonkey
Module name:    mldonkey
Changes by:     spiralvoice <spiralvoice>       10/03/20 13:25:22

Modified files:
        distrib        : ChangeLog 
        src/gtk2/gui   : guiServers.ml 

Log message:
        patch #6968

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/mldonkey/distrib/ChangeLog?cvsroot=mldonkey&r1=1.1404&r2=1.1405
http://cvs.savannah.gnu.org/viewcvs/mldonkey/src/gtk2/gui/guiServers.ml?cvsroot=mldonkey&r1=1.5&r2=1.6

Patches:
Index: distrib/ChangeLog
===================================================================
RCS file: /sources/mldonkey/mldonkey/distrib/ChangeLog,v
retrieving revision 1.1404
retrieving revision 1.1405
diff -u -b -r1.1404 -r1.1405
--- distrib/ChangeLog   23 Oct 2009 05:54:35 -0000      1.1404
+++ distrib/ChangeLog   20 Mar 2010 13:25:22 -0000      1.1405
@@ -14,6 +14,9 @@
 ChangeLog
 =========
 
+2010/03/20
+6968: GTK2 GUI: Fix switching server preferred status (dcoppa)
+-------------------------------------------------------------------------------
 2009/10/23: version 3.0.1 = tag release-3-0-1
 6961: BT: Fix torrent parsing when announce-list is empty
 

Index: src/gtk2/gui/guiServers.ml
===================================================================
RCS file: /sources/mldonkey/mldonkey/src/gtk2/gui/guiServers.ml,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- src/gtk2/gui/guiServers.ml  3 Nov 2007 22:04:51 -0000       1.5
+++ src/gtk2/gui/guiServers.ml  20 Mar 2010 13:25:22 -0000      1.6
@@ -356,7 +356,7 @@
              (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