class and dynamic button's event

kartikeya.sharm

New Member
hi all,

please suggest for apply dynamic button's event using class(oop)...

CLASS tableMain:
DEFINE PRIVATE VARIABLE hButton AS HANDLE NO-UNDO.

CONSTRUCTOR PUBLIC tableMain (INPUT cTableName AS CHARACTER,
INPUT hWidget AS HANDLE,
INPUT hWin AS HANDLE):
CREATE BUTTON hButton
ASSIGN
FRAME = hWidget
LABEL = "&First"
SENSITIVE = TRUE
VISIBLE = TRUE
TRIGGERS:
ON CHOOSE DO:
getFirst(). /* How to call a method which are define in same class. please not suggest run persistent internal procedure */
END.
END TRIGGERS.

END CONSTRUCTOR.

METHOD PUBLIC VOID getFirst ():
qh:GET-FIRST() NO-ERROR.
END METHOD.

END CLASS.


Thanks....
 
This should be same as is done for any other dynamic button.
on choose of <handle-name>
run .......


the way I see it is:
You have to instantiate the class run a method that creates the button and return the handle of the button.

now in calling program (or class) you can attach trigger to it, by simply saying
on choose....

-Parul.
 
Back
Top