class DEMO_LISTBOX |
---|
GUI_UTIL |
attr button: TK_BUTTON; |
---|
attr entry: TK_ENTRY; |
---|
attr listbox: TK_LISTBOX; |
---|
attr button: TK_BUTTON; |
---|
attr entry: TK_ENTRY; |
---|
attr listbox: TK_LISTBOX; |
---|
init |
---|
insert_item(i:TK_EVENT_INFO) |
---|
**** | insert the entry's content at the end of the list |
print_list |
---|
**** | print the content of the listbox to stdout two different ways should produce the same |