ezy_radio_button_test

/* EZY PROLOG. Copyright (C) 2002 EDMGROUP (Australia)

http://www.ezy-software.com

Code Automatically Generated by EZY Designer

*/

predicates

prolog_main

my_initialize_gui(WINDOW) - (i)

/* no declarations for control ["controls_test"] */

my_initialize_radio_buttons(WINDOW)

my_radio_button_ehandler: EHANDLER

clauses

prolog_main():-

ezy_form_open("ezy_radio_buttons_test.dcl",WINDOW),

my_initialize_gui(WINDOW),

!.

my_initialize_gui(WINDOW):-

write("GUI initialization started"),nl,

my_initialize_radio_buttons(WINDOW),

write("GUI Initialization completed"),nl,

!.

my_initialize_gui(_):-

write("GUI initialization failed"),nl,

!.

my_initialize_radio_buttons(WINDOW):-

RADIO_BUTTON_ADDR=["controls_test","Radio Button"],

ezy_get_object(WINDOW,RADIO_BUTTON_ADDR,RADIO_BUTTON_WINDOW),

ezy_object_handler(RADIO_BUTTON_WINDOW,my_radio_button_ehandler),

fail.

my_initialize_radio_buttons(_).

my_radio_button_ehandler(_,e_control(BUTTON_ID,_,BUTTON_OBJECT,STATE)):-

ezy_object_name(BUTTON_OBJECT,NAME),

FIRST_CONTROL="controls_test",

ezy_get_parent(BUTTON_OBJECT,FIRST_CONTROL,FIRST_WINDOW),

RADIO_ADDR=["controls_test","Radio Button"],

ezy_get_object(FIRST_WINDOW,RADIO_ADDR,RADIO_OBJECT),

ezy_radiobutton_value(RADIO_OBJECT,VALUE),

write("Radio Button(",BUTTON_ID,"), Control name: ",NAME,", Item (",VALUE,"), STATE=",STATE,"\n"),

!.

Copyright © 1997-2003 EDMGROUP (Australia)