[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonGraphics.gd.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonGraphics.gd.ml
diff -u mldonkey/src/daemon/common/commonGraphics.gd.ml:1.5 
mldonkey/src/daemon/common/commonGraphics.gd.ml:1.6
--- mldonkey/src/daemon/common/commonGraphics.gd.ml:1.5 Wed Jul 20 21:44:53 2005
+++ mldonkey/src/daemon/common/commonGraphics.gd.ml     Wed Aug 31 23:54:02 2005
@@ -735,3 +735,18 @@
 
 let remove_files () =
   if !!html_mods_vd_gfx_remove then really_remove_files ()
+
+let png_version_num () =
+  begin
+    try
+      let s = Int32.to_string(Gd.png_version ()) in
+        let len = String.length s in
+        let major_version = String.sub s 0 1 in
+       let minor_version = String.sub s 1 2 in
+       let release_version = String.sub s 3 (len-3) in
+         Printf.sprintf "%ld.%ld.%ld"
+           (Int32.of_string(major_version))
+           (Int32.of_string(minor_version))
+           (Int32.of_string(release_version))
+    with e -> ""
+  end