Copyright ® (1997-2005) EDMGROUP Pty Ltd - EZY Prolog Reference

ezy_list_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)

my_initialize_list_boxes(WINDOW)

my_list_box_ehandler: EHANDLER

clauses

prolog_main():-

ezy_form_open("ezy_list_test.dcl",WINDOW),

my_initialize_gui(WINDOW),

!.

my_initialize_gui(WINDOW):-

write("GUI initialization started"),nl,

my_initialize_list_boxes(WINDOW),

write("GUI Initialization completed"),nl,

!.

my_initialize_gui(_):-

write("GUI initialization failed"),nl,

!.

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,

!.

 

Copyright © 1997-2003 EDMGROUP (Australia)