|
Copyright ® (1997-2005) EDMGROUP Pty Ltd - EZY Prolog Reference |
/* 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)
my_initialize_list_boxes(WINDOW)
my_list_box_ehandler: EHANDLER
my_initialize_buttons(WINDOW)
my_button_ehandler: EHANDLER
clauses
prolog_main():-
ezy_form_open("ezy_button_test.dcl",WINDOW),
my_initialize_gui(WINDOW),
!.
my_initialize_gui(WINDOW):-
write("GUI initialization started"),nl,
my_initialize_list_boxes(WINDOW),
my_initialize_buttons(WINDOW),
write("GUI Initialization completed"),nl,
!.
my_initialize_gui(_):-
write("GUI initialization failed"),nl,
!.
my_initialize_buttons(WINDOW):-
TOP_BUTTON_ADDR=["main_frame","top frame","Top Button"],
ezy_get_object(WINDOW,TOP_BUTTON_ADDR,TOP_BUTTON_WINDOW),
ezy_object_handler(TOP_BUTTON_WINDOW,my_button_ehandler),
fail.
my_initialize_buttons(WINDOW):-
BOTTOM_BUTTON_ADDR=["main_frame","bottom_frame","Bottom Button"],
ezy_get_object(WINDOW,BOTTOM_BUTTON_ADDR,BOTTOM_BUTTON_WINDOW),
ezy_object_handler(BOTTOM_BUTTON_WINDOW,my_button_ehandler),
fail.
my_initialize_buttons(_).
my_initialize_list_boxes(WINDOW):-
LISTBOX_ADDR=["main","listbox"],
ezy_get_object(WINDOW,LISTBOX_ADDR,LISTBOX_WINDOW),
ezy_object_handler(LISTBOX_WINDOW,my_list_box_ehandler),
fail.
my_initialize_list_boxes(WINDOW):-
LIST_EDIT_ADDR=["main","list edit"],
ezy_get_object(WINDOW,LIST_EDIT_ADDR,LIST_EDIT_WINDOW),
ezy_object_handler(LIST_EDIT_WINDOW,my_list_box_ehandler),
fail.
my_initialize_list_boxes(_)
my_list_box_ehandler(_,e_control(_,_,LISTBOX_WINDOW,ACTION)):-
ezy_object_address(LISTBOX_WINDOW,ADDRESS),
write("Listbox ",ADDRESS,", event=",ACTION),nl,
!.
my_list_box_ehandler(_,e_control(_,_,LISTBOX_WINDOW,ACTION)):-
ezy_object_address(LISTBOX_WINDOW,ADDRESS),
write("Listbox ",ADDRESS,", event=",ACTION),nl,
!.
my_button_ehandler(_,e_control(_,_,CTRLWIN,ACTION)):-
ezy_object_address(CTRLWIN,CTRL_ADDRESS),
CTRL_ADDRESS=["main_frame","top frame","Top Button"],
write("Button(",CTRL_ADDRESS,") Action:",ACTION),nl,
dlg_note("Button Pressed","Button:[main_frame.top frame.Top Button]"),
!.
my_button_ehandler(_,e_control(_,_,CTRLWIN,ACTION)):-
ezy_object_address(CTRLWIN,CTRL_ADDRESS),
CTRL_ADDRESS=["main_frame","bottom_frame","Bottom Button"],
write("Button(",CTRL_ADDRESS,") Action:",ACTION),nl,
dlg_note("Button Pressed","Button:[main_frame.bottom_frame.Bottom Button]"),
!.
Copyright © 1997-2003 EDMGROUP (Australia)