Parent Directory | Revision Log | Patch
revision 1.3 by mldonkey, Mon Feb 2 19:55:20 2004 UTC | revision 1.4 by spiralvoice, Tue Jun 28 23:17:07 2005 UTC | |
---|---|---|
# | Line 101 let retrieve_net_box name box = | Line 101 let retrieve_net_box name box = |
101 | | "Fasttrack" -> (box#box_ftt, 2) | | "Fasttrack" -> (box#box_ftt, 2) |
102 | | "Donkey" -> (box#box_ed2k, 3) | | "Donkey" -> (box#box_ed2k, 3) |
103 | | "Gnutella" -> (box#box_gnut, 4) | | "Gnutella" -> (box#box_gnut, 4) |
104 | | "Open Napster" -> (box#box_nap, 5) | | "OpenNapster" -> (box#box_nap, 5) |
105 | | "Soulseek" -> (box#box_slsk, 6) | | "Soulseek" -> (box#box_slsk, 6) |
106 | | _ -> raise Not_found | | _ -> raise Not_found |
107 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |