ezy_check_box_test

http://www.ezy-software.com

Code Automatically Generated by EZY Designer

predicates

prolog_main

my_initialize_gui(WINDOW) - (i)

my_initialize_check_buttons(WINDOW)

my_check_button_ehandler: EHANDLER

clauses

prolog_main():-

ezy_form_open("ezy_check_box_test.dcl",WINDOW),

my_initialize_gui(WINDOW),

editor_text_editor_handler(WINDOW,EVENT):-

write("[editor_text_editor_handler](",WINDOW,",",EVENT),nl,

fail.

initialize_text_editor(WINDOW):-

TEXT_EDITOR_ADDR=["text editor"],

ezy_get_object(WINDOW,TEXT_EDITOR_ADDR,TEXT_EDITOR_WINDOW),

ezy_object_handler(TEXT_EDITOR_WINDOW,editor_text_editor_handler),

write("*** {text editor} Initialized"),

nl,

my_initialize_buttons(WINDOW):-

GET_CHECKBOX_ADDR=["controls_test","Get Checkbox"],

ezy_get_object(WINDOW,GET_CHECKBOX_ADDR,GET_CHECKBOX_WINDOW),

ezy_object_handler(GET_CHECKBOX_WINDOW,my_button_ehandler),

fail.

my_initialize_buttons(WINDOW):-

SET_CHECK_BOX_ADDR=["controls_test","Set Check Box"],

ezy_get_object(WINDOW,SET_CHECK_BOX_ADDR,SET_CHECK_BOX_WINDOW),

ezy_object_handler(SET_CHECK_BOX_WINDOW,my_button_ehandler),

fail.

my_initialize_buttons(_)

my_button_ehandler(_,e_control(_,_,CTRLWIN,ACTION)):-

ezy_object_address(CTRLWIN,CTRL_ADDRESS),

CTRL_ADDRESS=["controls_test","Get Checkbox"],

ezy_get_parent(CTRLWIN,"controls_test",FIRST_WINDOW),

CHECK_ADDR=["controls_test","Check box"],

ezy_get_object(FIRST_WINDOW,CHECK_ADDR,CHECK_OBJECT),

ezy_checkbox_value(CHECK_OBJECT,VALUE),

format(MSG,"Check Box pressed. Value %",VALUE),

dlg_note("EZY Prolog",MSG),

my_button_ehandler(_,e_control(_,_,CTRLWIN,ACTION)):-

ezy_object_address(CTRLWIN,CTRL_ADDRESS),

CTRL_ADDRESS=["controls_test","Set Check Box"],

ezy_get_parent(CTRLWIN,"controls_test",FIRST_WINDOW),

CHECK_ADDR=["controls_test","Check box"],

ezy_get_object(FIRST_WINDOW,CHECK_ADDR,CHECK_OBJECT),

ezy_checkbox_value(CHECK_OBJECT,1),

my_initialize_gui(WINDOW):-

write("GUI initialization started"),

nl,

my_initialize_check_buttons(WINDOW),

write("GUI Initialization completed"),

nl,

my_initialize_gui(_):-

write("GUI initialization failed"),

nl,

my_initialize_check_buttons(WINDOW):-

CHECK_BOX_ADDR=["check box"],

ezy_get_object(WINDOW,CHECK_BOX_ADDR,CHECK_BOX_WINDOW),

ezy_object_handler(CHECK_BOX_WINDOW,my_check_button_ehandler),

fail.

my_initialize_check_buttons(_)

my_check_button_ehandler(_,e_control(_,_,CHECK_OBJECT,STATE)):-

ezy_object_name(CHECK_OBJECT,NAME),

ezy_object_address(CHECK_OBJECT,ADDRESS),

ezy_checkbox_value(CHECK_OBJECT,VALUE),

write("Check Box ",ADDRESS,", state (",STATE,"), Value ",VALUE),

nl,