/[mldonkey]/mldonkey/src/daemon/common/commonGraphics.gd.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonGraphics.gd.ml

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

revision 1.5 by spiralvoice, Wed Jul 20 21:44:53 2005 UTC revision 1.6 by spiralvoice, Wed Aug 31 23:54:02 2005 UTC
# Line 735  let really_remove_files () = Line 735  let really_remove_files () =
735    
736  let remove_files () =  let remove_files () =
737    if !!html_mods_vd_gfx_remove then really_remove_files ()    if !!html_mods_vd_gfx_remove then really_remove_files ()
738    
739    let png_version_num () =
740      begin
741        try
742          let s = Int32.to_string(Gd.png_version ()) in
743            let len = String.length s in
744            let major_version = String.sub s 0 1 in
745            let minor_version = String.sub s 1 2 in
746            let release_version = String.sub s 3 (len-3) in
747              Printf.sprintf "%ld.%ld.%ld"
748                (Int32.of_string(major_version))
749                (Int32.of_string(minor_version))
750                (Int32.of_string(release_version))
751        with e -> ""
752      end

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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