/[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.1 by spiralvoice, Sun Apr 24 16:24:49 2005 UTC revision 1.2 by spiralvoice, Mon Aug 1 20:09:13 2005 UTC
# Line 162  external do_draw_str: t -> font -> int - Line 162  external do_draw_str: t -> font -> int -
162  external do_draw_stru: t -> font -> int -> int -> string -> int -> unit  external do_draw_stru: t -> font -> int -> int -> string -> int -> unit
163      = "ml_image_stru" "ml_image_stru_native"      = "ml_image_stru" "ml_image_stru_native"
164    
165    external png_version : unit -> int32 = "ml_image_pngversion"
166    
167    let png_version_num () =
168      begin
169        try
170          let s = Int32.to_string(png_version ()) in
171            let len = String.length s in
172            let major_version = String.sub s 0 1 in
173            let minor_version = String.sub s 1 2 in
174            let release_version = String.sub s 3 (len-3) in
175              Printf.sprintf "%ld.%ld.%ld"
176                (Int32.of_string(major_version))
177                (Int32.of_string(minor_version))
178                (Int32.of_string(release_version))
179        with e -> ""
180      end
181    
182  module Font =  module Font =
183  struct  struct
184    let tiny = do_get_font 0    let tiny = do_get_font 0

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

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