Bug in Fivewin.ch (TWindow)

[Enrico Maria Giordano]

In the following sample we should get a TWindow while what we get is a TMdiFrame:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd

    DEFINE WINDOW oWnd;
           PIXEL

    ACTIVATE WINDOW oWnd;
             ON CLICK MSGINFO( oWnd:ClassName )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

This fix in FiveWin.ch lines: 1346-1349 seems to solve it

Code: Select all  Expand view

#xcommand DEFINE WINDOW <oWnd> ;
             [ FROM <nTop>, <nLeft> TO <nBottom>, <nRight> ] ;
             [<pixel: PIXEL>] ;
             [ TITLE <cTitle> ] ;
 

Thanks!

[Enrico Maria Giordano]

Thank you, Master!

EMG