crans/scripts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[impression/wrapper_canon.ml] dernier ajustements

Browse source 
Ignore-this: 2312f1e990d0eeaa83120ece37ccd533

darcs-hash:20090601185348-bd074-1c34fa569415e36b0071a704e00e989f3ce577e4.gz
This commit is contained in:
Antoine Durand-Gasselin 2009-06-01 20:53:48 +02:00
parent 9648a17acf
commit 06011a1188
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
impression/wrapper_canon.ml
View file

@ -52,13 +52,13 @@ let _FitSize () = if !expand then "1" else "0"
let duplex = ref true let duplex = ref true
let binding_long_edge = ref true let binding_long_edge = ref true
let finition = ref "none"
let _DuplexType() = 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 finition = ref "none"
let _Sort() = match !finition with let _Sort() = match !finition with "none" -> "0" | _ -> "1"
"none" -> "0"
| _ -> "1"
let _StapleType () = List.assoc !finition let _StapleType () = List.assoc !finition
[ "TopLeft","5"; "TopRight","6"; "BottomLeft","7"; "BottomRight","8"; [ "TopLeft","5"; "TopRight","6"; "BottomLeft","7"; "BottomRight","8";