\ProvidesPackage{fix-fncychap}[2004/11/28 v1.0 Fix fncychap v1.3]
\PassOptionsToPackage{*}{fncychap}
\RequirePackageWithOptions{fncychap}

\newcommand\AlphaNo@fr{%
  \ifcase\number\theAlphaCnt
    \ifnum\c@chapter=0
      Z\'ERO\else{}\fi
    \or UN%
    \or DEUX%
    \or TROIS%
    \or QUATRE%
    \or CINQ%
    \or SIX%
    \or SEPT%
    \or HUIT%
    \or NEUF%
    \or DIX%
    \or ONZE%
    \or DOUZE%
    \or TREIZE%
    \or QUATORZE%
    \or QUINZE%
    \or SEIZE%
    \or DIX-SEPT%
    \or DIX-HUIT%
    \or DIX-NEUF%
    \fi
}
\newcommand\Et@Un{%
  \ifnum\c@AlphaCnt=1\relax
    ET
  \fi}
\newcommand\Et@Onze{%
  \ifnum\c@AlphaCnt=11\relax
    ET
  \fi}
\newcommand\AlphaDecNo@fr{%
  \c@AlphaDecCnt=\c@AlphaCnt\relax
  \divide\c@AlphaDecCnt by 10\relax
  \ifcase\c@AlphaDecCnt
  % 0x, rien.
  \or
  % 1x, rien,
  \or
    \advance\c@AlphaCnt by -20\relax
    VINGT \Et@Un
  \or
    \advance\c@AlphaCnt by -30\relax
    TRENTE \Et@Un
  \or
    \advance\c@AlphaCnt by -40\relax
    QUARANTE \Et@Un
  \or
    \advance\c@AlphaCnt by -50\relax
    CINQUANTE \Et@Un
  \or
    \advance\c@AlphaCnt by -60\relax
    SOIXANTE \Et@Un
  \or
    \advance\c@AlphaCnt by -60\relax
    SOIXANTE \Et@Onze
  \or
    \advance\c@AlphaCnt by -80\relax
    QUATRE-VINGT
  \or
    \advance\c@AlphaCnt by -80\relax
    QUATRE-VINGT
  \fi
}

\ifx\TheAlphaChapter\undefined\else
  \let\AlphaDecNo@en\AlphaDecNo
  \let\AlphaNo@en\AlphaNo
  \ifx\extrasfrench\undefined\else
    \addto\extrasfrench{%
      \let\AlphaDecNo\AlphaDecNo@fr
      \let\AlphaNo\AlphaNo@fr
    }%
  \fi
  \ifx\extrasenglish\undefined\else
    \addto\extrasenglish{%
      \let\AlphaDecNo\AlphaDecNo@en
      \let\AlphaNo\AlphaNo@en
    }%
  \fi
  \ifx\extrasUSenglish\undefined\else
    \addto\extrasUSenglish{%
      \let\AlphaDecNo\AlphaDecNo@en
      \let\AlphaNo\AlphaNo@en
    }%
  \fi
  \ifx\extrasUKenglish\undefined\else
    \addto\extrasUKenglish{%
      \let\AlphaDecNo\AlphaDecNo@en
      \let\AlphaNo\AlphaNo@en
    }%
  \fi
\fi

\endinput
