From 06011a1188382a52e42da2b6531b5129f0789efc Mon Sep 17 00:00:00 2001 From: Antoine Durand-Gasselin Date: Mon, 1 Jun 2009 20:53:48 +0200 Subject: [PATCH] [impression/wrapper_canon.ml] dernier ajustements Ignore-this: 2312f1e990d0eeaa83120ece37ccd533 darcs-hash:20090601185348-bd074-1c34fa569415e36b0071a704e00e989f3ce577e4.gz --- impression/wrapper_canon.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/impression/wrapper_canon.ml b/impression/wrapper_canon.ml index 62999070..7d5e69a4 100644 --- a/impression/wrapper_canon.ml +++ b/impression/wrapper_canon.ml @@ -52,13 +52,13 @@ let _FitSize () = if !expand then "1" else "0" let duplex = ref true let binding_long_edge = ref true +let finition = ref "none" let _DuplexType() = - if !duplex then if !binding_long_edge then "2" else "1" else "0" + if !finition = "book" or not !duplex then "0" + else if !binding_long_edge then "2" else "1" let finition = ref "none" -let _Sort() = match !finition with - "none" -> "0" - | _ -> "1" +let _Sort() = match !finition with "none" -> "0" | _ -> "1" let _StapleType () = List.assoc !finition [ "TopLeft","5"; "TopRight","6"; "BottomLeft","7"; "BottomRight","8";