Problem with width in printer class

[driessen]

Antonio,

A few versions ago I asked you a solution to make the width work in the CmSay or InchSay instructions.

This were the changes you told me to do :

You asked me to replace these lines

Code: Select all  Expand view  RUN

  METHOD CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad );
      INLINE ;
      (::Cmtr2Pix(@nRow, @nCol ),;
       ::Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ))

  METHOD InchSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad );
      INLINE ;
      (::Inch2Pix(@nRow, @nCol),;
       ::Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad ) )


by

Code: Select all  Expand view  RUN

  METHOD CmSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A );
      INLINE ;
      (::Cmtr2Pix( @nRow, @nCol ),;
       If( nWidth # Nil, ( ::Cmtr2Pix( 0, @nWidth ), nWidth += ::nYOffset ), Nil ),;
       ::Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ))

  METHOD InchSay( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A );
      INLINE ;
      (::Inch2Pix( @nRow, @nCol ),;
       If( nWidth # Nil, ( ::Inch2Pix( 0, @nWidth ), nWidth += ::nYOffset ), Nil ),;
       ::Say( nRow, nCol, cText, oFont, nWidth, nClrText, nBkMode, nPad, lO2A ))

Why aren't these changes in the latest FWH build ?

Thanks.

[Antonio Linares]

Michel,

If we haven't include them yet is because we are not totally sure if it may break backwards compatibility in working applications.

[driessen]

Antonio,

Thanks for you answer.

I shall do the change in the printer class myself until I notice the change in a future version.

But I can tell you that it's working fine.