Permalink
Browse files

ligne 128 fonction scale

  • Loading branch information...
rayCh committed Dec 10, 2012
1 parent beaee16 commit a427ae7048bfae2b31c6a8668e49ca04ae0101bc
Showing with 3 additions and 1 deletion.
  1. +3 −1 ultra/ocr_gui.ml
View
@@ -124,7 +124,9 @@ let _ =
buffer#set_text (Main.ocrGui (get_contents (btn#filename))))
let _ =
btn#connect#selection_changed
- ~callback:( fun _ -> image#set_file(get_contents btn#filename))
+ ~callback:
+ ( fun _ -> ignore (*fonction de scale ici*);
+ ignore image#set_file(get_contents btn#filename))
let _ =
window#connect#destroy ~callback:GMain.quit
let _ =

0 comments on commit a427ae7

Please sign in to comment.