Error in code

[sajith]

can someone help me to correct the error.
Error:= oMenu:Action( oWnd:End()) why my oWnd(Object) becomes nil.I doent want oWnd to declare static



#include "FiveWin.ch"

*-------------------------------------------------------------------*
FUNCTION main()
*-------------------------------------------------------------------*

LOCAL oWnd

DEFINE Window oWnd;
Title "ListBox";
Menu BuildMenu(oWnd)

Activate Window oWnd

RETURN nil

*-------------------------------------------------------------------*
FUNCTION BuildMenu(oWnd)
*-------------------------------------------------------------------*
LOCAL oMenu

Menu oMenu

MenuItem "File"
Menu
MenuItem "CreateList"

separator

MenuItem "Exit"

IF oWnd !=nil
oMenu:Action( oWnd:End())//ERROR//
ENDif

ENDMenu


ENDMenu

RETURN oMenu

[anserkk]

Dear Sajith,

Instead of oWnd:End() Try WndMain():End(). I don't know why it is so.

Code: Select all  Expand view

#include "FiveWin.ch"
*-------------------------------------------------------------------*
FUNCTION main()
*-------------------------------------------------------------------*
LOCAL oWnd

DEFINE Window oWnd;
       Title "ListBox" ;
       Menu BuildMenu()

Activate Window oWnd
RETURN nil

*-------------------------------------------------------------------*
FUNCTION BuildMenu()
*-------------------------------------------------------------------*
LOCAL oMenu,oWnd:=WndMain()

MENU oMenu
   MenuItem "File"
   MENU
     MenuItem "CreateList"
     separator
     MenuItem "Exit" ACTION WndMain():End(.T.) // I don't know why oWnd:End() doesn't work here

   ENDMENU

ENDMENU

RETURN oMenu

Regards

Anser

[Antonio Linares]

Sajith, Anser,

> ... Menu BuildMenu(oWnd)

When BuildMenu( oWnd ) is called, oWnd has not been created yet

thats why it does not work.

[anserkk]

Dear Mr.Antonio,

Thankyou for the info. I guessed this could be the reason.

Regards

Anser