Discussion :

[pandora19]

Bonjour, j'ai le code suivant et j'ai une erreur de syntaxe que je n'arrive pas à corriger au niveau du if :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
let attend = wait_next_event [Mouse_motion; Button_down] in
let abscisse = attend.mouse_x and ordonnee = attend.mouse_y in abscisse, ordonnee;
wait_next_event [Button_up];
if (abscisse > (size_x()/3)) then (main true false true)
else (main true false false);;

Pouvez vous m'aider, merci.

[Cacophrene]

Bonjour,

Il y a un problème de syntaxe parce que ce code n'est pas bien organisé. Par exemple, dans let abscisse = ... and ordonnee = ... in abscisse, ordonnee, le couple final ne sert à rien ! Pourquoi pas tout simplement let abscisse, ordonnee = ... ? Il y a aussi quelques parenthèses inutiles. Pour ta fonction main, tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
let _ =
  ...
  let sx3 = size_x () / 3 in
  main true false (abscisse > sz3)

Cordialement,
Cacophrène

[gasche]

Cacophrène, il vaut mieux montrer "let () = ..." plutôt que "let _ = ..." aux débutants, c'est légèrement plus compréhensible et surtout ça type plus finement, donc ça attrape plus d'erreurs.

[Cacophrene]

Bonsoir,

Cacophrène, il vaut mieux montrer "let () = ..." plutôt que "let _ = ..." aux débutants, c'est légèrement plus compréhensible et surtout ça type plus finement, donc ça attrape plus d'erreurs.

Tu as raison. C'est un réflexe lié à LablGTK, où l'on a rarement un type unit à la fin.

Cordialement,
Cacophrène