kolibrios-fun/programs/cmm/examples/menu.c

#define MEMSIZE 4096*10

#include "../lib/io.h"
#include "../lib/list_box.h"
#include "../lib/gui.h"
#include "../lib/fs.h"

struct _object
{
	int x,y,w,h,id;
};

_object butv = { 20, 20, 100, 20, 10};
_object buta = {150, 20, 100, 20, 20};

char vegetables[] = 
"Onion    
Melon
Tomato
Squash
Salad";

char animals[] =
"Cat    
Dog
Pig
Cow
Goat
Rabbit";



void main()
{
	dword menu_id=0, click_id;
	proc_info Form;
	byte current_animal=1, current_veg=3;
	int id;

	loop() switch(WaitEvent())
	{
	 case evButton:
		id=GetButtonID();               
		if (id==1) ExitProcess();
		if (id==butv.id) {
			menu_id = butv.id;
			open_lmenu(Form.left+3 + butv.x, Form.top+skin_height + butv.y + butv.h, 
				MENU_ALIGN_TOP_LEFT, current_veg, #vegetables);
		}
		if (id==buta.id) {
			menu_id = buta.id;
			open_lmenu(Form.left+5 + buta.x + buta.w, Form.top+skin_height + buta.y + buta.h, 
				MENU_ALIGN_TOP_RIGHT, current_animal, #animals);
		}
		break;

	case evKey:
		GetKeys();
		break;
	 
	 case evReDraw:
		if (click_id = get_menu_click()) {
			if (menu_id == butv.id) current_veg = click_id;
			if (menu_id == buta.id) current_animal = click_id;
			menu_id = 0;
		}
		DefineAndDrawWindow(215,100,350,300,0x34,0xFFFFFF,"Window header",0);
		GetProcessInfo(#Form, SelfInfo);
		WriteText(10,110,0x80,0,#param);
		DrawCaptButton(butv.x, butv.y, butv.w, butv.h, butv.id, 0xCCCccc, 0x000000, "Vegetables");
		DrawCaptButton(buta.x, buta.y, buta.w, buta.h, buta.id, 0xCCCccc, 0x000000, "Aminal");
		break;
	}
}