/[mldonkey]/mldonkey/src/gtk2/gui/guiMisc.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiMisc.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by spiralvoice, Sat Nov 12 11:16:36 2005 UTC revision 1.13 by spiralvoice, Mon Nov 14 18:25:44 2005 UTC
# Line 824  let string_of_availability availability Line 824  let string_of_availability availability
824  let main_availability_of net availabilities  =  let main_availability_of net availabilities  =
825    try    try
826      List.assoc net availabilities      List.assoc net availabilities
827    with _ ->    with _ -> ""
     begin  
       match availabilities with  
           (_, availability)::_ ->  
              begin  
                let len = String.length availability in  
                String.make len (char_of_int 0)  
              end  
   
         | _ -> ""  
   
     end  
828    
829  let availability_bar availability chunks b =  let availability_bar availability chunks b =
830    if !!O.gtk_look_graphical_availability    if !!O.gtk_look_graphical_availability

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26