Code: Select all
#include "Fivewin.ch"
Function Main()
Define Window ownd from 0,0 to 200,200 pixel
@ 10,10 Button oBtn Prompt "Hello" size 60,20 pixel of ownd action Change(oBtn)
Activate window oWnd
Return Nil
Function Change(oBtn)
oBtn:cCaption := "Bye"
oBtn:Refresh()
Return nil
Rafael