/[mldonkey]/mldonkey/src/utils/cdk/gd.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/gd.ml

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

revision 1.2 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC revision 1.3 by spiralvoice, Wed Aug 31 23:54:02 2005 UTC
# Line 164  external do_draw_stru: t -> font -> int Line 164  external do_draw_stru: t -> font -> int
164    
165  external png_version : unit -> int32 = "ml_image_pngversion"  external png_version : unit -> int32 = "ml_image_pngversion"
166    
 let png_version_num () =  
   begin  
     try  
       let s = Int32.to_string(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  
   
167  module Font =  module Font =
168  struct  struct
169    let tiny = do_get_font 0    let tiny = do_get_font 0

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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