I have big problem with variables in new version 3.1.5..
All variables in sub procedures are not defined (variable test), but variables in main procedure is OK. In 3.0.46 works perfect.
See the code:
Code: Select all
#include "hmg.ch"
PROCEDURE Main
SET LANGUAGE TO SLOVENIAN
REQUEST HB_CODEPAGE_SLWIN
HB_CDPSELECT("SLWIN")
test1="Q"
DEFINE WINDOW Win_1 AT 0,0 WIDTH 540 HEIGHT 460 MAIN
ON KEY ESCAPE ACTION Win_1.Release
Define Button Button_4
Row 300
Col 80
Caption 'Test'
Action test()
End Button
END WINDOW
Win_1.Center
Win_1.Activate
RETURN
procedure test
test="W"
DEFINE WINDOW Win_2 AT 0,0 WIDTH 540 HEIGHT 460 MODAL
ON KEY ESCAPE ACTION Win_2.Release
Define Button Button_4
Row 300
Col 80
Caption 'Test Variable'
Action test1()
End Button
END WINDOW
Win_2.Center
Win_2.Activate
RETURN
procedure test1()
msginfo(test1)
msginfo(test)
return
br Rado