MicroAPL Support forum for APLX

The following function (TEST_EVENT):

TEST_EVENT;Form;Button;sink
 
Form ← '.Net' ⎕NEW 'Form'
Form.Size ← '.Net' ⎕NEW 'Size' 220 90
Form.Text ← 'Click Event Test'
 
Button ← '.Net' ⎕NEW 'Button'
Button.Text ← 'Click Me'
Button.Click ← "'Button was Clicked'"
 
Form.Controls.Add Button
 
Form.Show
 
:While Form.Visible
  sink ← ⎕WE 0.1
:EndWhile

...will generate the following Window:



when you click on the button I would expect that the phrase 'Button was Clicked' to be written in the Workspace but it's not. However, if the Click event is calling a function, and the function write 'Button was Clicked' it will work fine. Is this a limitation of .Net event or I am doing something wrong ?

Regards,

Pierre Gilbert

Using: Windows XP and APLX v5 Beta

For event handlers within ⎕WE, the expression is evaluated and any result is thrown away.

So to output the text to the session window, you need something like:

Button.Click ← "⎕←'Button was Clicked'"

Thanks for your answer, indeed it is working now with your suggestion.

Thanks again,

Pierre Gilbert