/*
 *  checklist.c -- implements the checklist box
 *
 *  AUTHOR: Savio Lam (lam836@cs.cuhk.hk)
 *     Stuart Herbert - S.Herbert@sheffield.ac.uk: radiolist extension
 *     Alessandro Rubini - rubini@ipvvis.unipv.it: merged the two
 *
 *  This program is free software; you can redistribute it and/or
 *  modify it under the terms of the GNU General Public License
 *  as published by the Free Software Foundation; either version 2
 *  of the License, or (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

#include "dialog.h"

static GtkCList *cl;
static int format;

static void cancelled(GtkWidget *w, gpointer *d)
{
	exit(-1);
}

static void err_outputter(gpointer d, GtkCList *cl)
{
	/*
	GtkCListRow *r=(GtkCListRow *)d;
	*/
	/*
	 *	Should output the string, or the strings quoted ("")
	 *	for choice
	 */
	char *p;
	
	gtk_clist_get_text(cl,GPOINTER_TO_INT(d),0,&p);
	
	if(format==0)
	{
		write(2, p, strlen(p));
		write(2, "\n", 1);
	}
	else
	{
		if(format++>1)
			write(2," \"", 2);
		else
			write(2, "\"", 1);
		write(2, p, strlen(p));
		write(2, "\"", 1);
	}
}

static void okayed(GtkWidget *w, int button, gpointer *d)
{
	if(button==0)
	{
		GList *l=GTK_CLIST(cl)->selection;
		g_list_foreach(l, (GFunc)err_outputter, GTK_CLIST(cl));
		if(format!=0)
			write(2,"\n",1);
	}
	exit(button);
}


static int list_width, check_x, item_x, checkflag;

/*
 * Print list item
 */
static void print_item(WINDOW * win, const char *tag, const char *item, int status,
		       int choice, int selected)
{
	int i;

	/* Clear 'residue' of last item */
	wattrset(win, menubox_attr);
	wmove(win, choice, 0);
	for (i = 0; i < list_width; i++)
		waddch(win, ' ');
	wmove(win, choice, check_x);
	wattrset(win, selected ? check_selected_attr : check_attr);
	if (checkflag == FLAG_CHECK)
		wprintw(win, "[%c]", status ? 'X' : ' ');
	else
		wprintw(win, "(%c)", status ? 'X' : ' ');
	wattrset(win, menubox_attr);
	waddch(win, ' ');
	wattrset(win, selected ? tag_key_selected_attr : tag_key_attr);
	waddch(win, tag[0]);
	wattrset(win, selected ? tag_selected_attr : tag_attr);
	waddstr(win, tag + 1);
	wmove(win, choice, item_x);
	wattrset(win, selected ? item_selected_attr : item_attr);
	waddstr(win, item);
}


static gint lwidth=0 , rwidth=0;

static void clist_add(GtkCList *cl, char *l, char *r)
{
	GdkFont * font = gtk_widget_get_style(GTK_WIDGET(cl))->font; 
	gchar *data[2];
	
	data[0]=l;
	data[1]=r;
	gtk_clist_append(cl, (gchar **)data);
	
	lwidth = MAX(lwidth, gdk_string_width(font, l));	
	rwidth = MAX(rwidth, gdk_string_width(font, r));	
}

/*
 * Display a dialog box with a list of options that can be turned on or off
 * The `flag' parameter is used to select between radiolist and checklist.
 */
int dialog_checklist(const char *title, const char *prompt, int height, int width,
	int list_height, int item_no, const char *const *items, int flag,
		     int separate_output)
{
	int i, x, y, cur_x, cur_y, box_x, box_y;
	int key = 0, button = 0, choice = 0, scroll = 0, max_choice,
	*status;
	WINDOW *dialog, *list;

	if (gnome_mode) {
		GtkWidget *w = gnome_dialog_new(title,
					GNOME_STOCK_BUTTON_OK,
					GNOME_STOCK_BUTTON_CANCEL, NULL);
		GtkWidget *hbox, *vbox, *sw;

		gnome_dialog_set_default(GNOME_DIALOG(w), 0);
		gnome_dialog_set_close(GNOME_DIALOG(w), TRUE);
		gtk_window_set_title(GTK_WINDOW(w), title);

		hbox = gtk_hbox_new(FALSE, 0);
		vbox = gtk_vbox_new(FALSE, 0);

		label_autowrap(vbox, prompt, width);

		sw=gtk_scrolled_window_new (NULL, NULL);
		cl=GTK_CLIST(gtk_clist_new(2));
		gtk_container_add (GTK_CONTAINER (sw), GTK_WIDGET (cl));
		
		if(flag!=FLAG_CHECK)
		{
			format=0;
			gtk_clist_set_selection_mode(cl, GTK_SELECTION_BROWSE);
		}
		else
		{
			format=1;
			gtk_clist_set_selection_mode(cl, GTK_SELECTION_MULTIPLE);
		}
		gtk_scrolled_window_set_policy (
			GTK_SCROLLED_WINDOW (sw),
			GTK_POLICY_AUTOMATIC, GTK_POLICY_AUTOMATIC);
		gtk_clist_freeze(cl);
		gtk_clist_set_shadow_type(cl, GTK_SHADOW_IN);		

		for (i = 0; i < item_no; i++) {
			char *x = (char *)items[3 * i];
			char *y = (char *)items[3 * i + 1];
			clist_add(cl, x, y);
			if(strcasecmp(items[3*i+2],"on")==0)
			{
				gtk_clist_select_row(cl, i, -1);
			}
		}

		gtk_clist_set_column_width(cl, 0, lwidth + 10);
		gtk_clist_set_column_width(cl, 1, rwidth);  		
		gtk_clist_thaw(cl);
		gtk_widget_set_usize(GTK_WIDGET(cl), lwidth+rwidth+30, 8*list_height+40);

		gtk_box_pack_start(GTK_BOX(vbox), GTK_WIDGET(sw), TRUE, TRUE, 0);
		gtk_box_pack_start(GTK_BOX(hbox), vbox, TRUE, TRUE, 0);

		gtk_box_pack_start(GTK_BOX(GNOME_DIALOG(w)->vbox),
				   hbox,
				   TRUE, TRUE, GNOME_PAD);
		gtk_window_position(GTK_WINDOW(w), GTK_WIN_POS_CENTER);
		gtk_signal_connect(GTK_OBJECT(w), "destroy",
			GTK_SIGNAL_FUNC(cancelled), NULL);
		gtk_signal_connect(GTK_OBJECT(w), "clicked",
			GTK_SIGNAL_FUNC(okayed), NULL);
		gtk_widget_show_all(w);
		gtk_main();
		return 0;
	}
	checkflag = flag;

	/* Allocate space for storing item on/off status */
	if ((status = malloc(sizeof(int) * item_no)) == NULL) {
		if(!gnome_mode) endwin();
		fprintf(stderr,
		     "\nCan't allocate memory in dialog_checklist().\n");
		exit(-1);
	}
	/* Initializes status */
	for (i = 0; i < item_no; i++)
		status[i] = !strcasecmp(items[i * 3 + 2], "on");

	max_choice = MIN(list_height, item_no);

	/* center dialog box on screen */
	x = (COLS - width) / 2;
	y = (LINES - height) / 2;

#ifndef NO_COLOR_CURSES
	if (use_shadow)
		draw_shadow(stdscr, y, x, height, width);
#endif
	dialog = newwin(height, width, y, x);
#ifdef WITH_GPM
	mouse_setbase(x, y);
#endif
	keypad(dialog, TRUE);

	draw_box(dialog, 0, 0, height, width, dialog_attr, border_attr);
	wattrset(dialog, border_attr);
	wmove(dialog, height - 3, 0);
	waddch(dialog, ACS_LTEE);
	for (i = 0; i < width - 2; i++)
		waddch(dialog, ACS_HLINE);
	wattrset(dialog, dialog_attr);
	waddch(dialog, ACS_RTEE);
	wmove(dialog, height - 2, 1);
	for (i = 0; i < width - 2; i++)
		waddch(dialog, ' ');

	if (title != NULL) {
		wattrset(dialog, title_attr);
		wmove(dialog, 0, (width - strlen(title)) / 2 - 1);
		waddch(dialog, ' ');
		waddstr(dialog, title);
		waddch(dialog, ' ');
	}
	wattrset(dialog, dialog_attr);
	print_autowrap(dialog, prompt, width - 2, 1, 3);

	list_width = width - 6;
	getyx(dialog, cur_y, cur_x);
	box_y = cur_y + 1;
	box_x = (width - list_width) / 2 - 1;

	/* create new window for the list */
	list = subwin(dialog, list_height, list_width,
		      y + box_y + 1, x + box_x + 1);
	keypad(list, TRUE);

	/* draw a box around the list items */
	draw_box(dialog, box_y, box_x, list_height + 2, list_width + 2,
		 menubox_border_attr, menubox_attr);

	check_x = 0;
	item_x = 0;
	/* Find length of longest item in order to center checklist */
	for (i = 0; i < item_no; i++) {
		check_x = MAX(check_x, strlen(items[i * 3])
			      + strlen(items[i * 3 + 1]) + 6);
		item_x = MAX(item_x, strlen(items[i * 3]));
	}
	check_x = (list_width - check_x) / 2;
	item_x = check_x + item_x + 6;

	/* Print the list */
	for (i = 0; i < max_choice; i++)
		print_item(list, items[i * 3], items[i * 3 + 1],
			   status[i], i, i == choice);
	wnoutrefresh(list);

	/* register the new window, along with its borders */
#ifdef WITH_GPM
	mouse_mkbigregion(box_y, box_x, list_height + 2, list_width + 2,
		  item_no, item_x /* the threshold */ , 0 /* normal */ );
#endif

	if (list_height < item_no) {
		wattrset(dialog, darrow_attr);
		wmove(dialog, box_y + list_height + 1, box_x + check_x + 5);
		waddch(dialog, ACS_DARROW);
		wmove(dialog, box_y + list_height + 1, box_x + check_x + 6);
		waddstr(dialog, "(+)");
	}
	x = width / 2 - 11;
	y = height - 2;
	print_button(dialog, "Cancel", y, x + 14, FALSE);
	print_button(dialog, "  OK  ", y, x, TRUE);
	wrefresh(dialog);

	while (key != ESC) {
		key = mouse_wgetch(dialog);
		/* Check if key pressed matches first character of
		   any item tag in list */
		for (i = 0; i < max_choice; i++)
			if (toupper(key) ==
			    toupper(items[(scroll + i) * 3][0]))
				break;

		if (i < max_choice ||
		    (key >= '1' && key <= MIN('9', '0' + max_choice)) ||
		    key == KEY_UP || key == KEY_DOWN || key == ' ' ||
		    key == '+' || key == '-' ||
		    (key >= M_EVENT && key - M_EVENT < ' ')) {
			if (key >= '1' && key <= MIN('9', '0' + max_choice))
				i = key - '1';
			else if (key == KEY_UP || key == '-') {
				if (!choice) {
					if (!scroll)
						continue;
					/* Scroll list down */
					getyx(dialog, cur_y, cur_x);
					if (list_height > 1) {
						/* De-highlight current first item */
						print_item(list, items[scroll * 3],
							   items[scroll * 3 + 1], status[scroll],
							   0, FALSE);
						scrollok(list, TRUE);
						wscrl(list, -1);
						scrollok(list, FALSE);
					}
					scroll--;
					print_item(list, items[scroll * 3],
						   items[scroll * 3 + 1],
						status[scroll], 0, TRUE);
					wnoutrefresh(list);

					/* print the up/down arrows */
					wmove(dialog, box_y, box_x + check_x + 5);
					wattrset(dialog, scroll ? uarrow_attr : menubox_attr);
					waddch(dialog, scroll ? ACS_UARROW : ACS_HLINE);
					wmove(dialog, box_y, box_x + check_x + 6);
					waddch(dialog, scroll ? '(' : ACS_HLINE);
					wmove(dialog, box_y, box_x + check_x + 7);
					waddch(dialog, scroll ? '-' : ACS_HLINE);
					wmove(dialog, box_y, box_x + check_x + 8);
					waddch(dialog, scroll ? ')' : ACS_HLINE);
					wattrset(dialog, darrow_attr);
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 5);
					waddch(dialog, ACS_DARROW);
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 6);
					waddch(dialog, '(');
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 7);
					waddch(dialog, '+');
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 8);
					waddch(dialog, ')');
					wmove(dialog, cur_y, cur_x);
					wrefresh(dialog);
					continue;	/* wait for another key press */
				} else
					i = choice - 1;
			} else if (key == KEY_DOWN || key == '+') {
				if (choice == max_choice - 1) {
					if (scroll + choice >= item_no - 1)
						continue;
					/* Scroll list up */
					getyx(dialog, cur_y, cur_x);
					if (list_height > 1) {
						/* De-highlight current last item before scrolling up */
						print_item(list, items[(scroll + max_choice - 1) * 3],
							   items[(scroll + max_choice - 1) * 3 + 1],
							   status[scroll + max_choice - 1],
						  max_choice - 1, FALSE);
						scrollok(list, TRUE);
						wscrl(list,1);
						scrollok(list, FALSE);
					}
					scroll++;
					print_item(list, items[(scroll + max_choice - 1) * 3],
						   items[(scroll + max_choice - 1) * 3 + 1],
					 status[scroll + max_choice - 1],
						   max_choice - 1, TRUE);
					wnoutrefresh(list);

					/* print the up/down arrows */
					wattrset(dialog, uarrow_attr);
					wmove(dialog, box_y, box_x + check_x + 5);
					waddch(dialog, ACS_UARROW);
					wmove(dialog, box_y, box_x + check_x + 6);
					waddstr(dialog, "(-)");
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 5);
					wattrset(dialog, scroll + choice < item_no - 1 ?
						 darrow_attr : menubox_border_attr);
					waddch(dialog, scroll + choice < item_no - 1 ?
					       ACS_DARROW : ACS_HLINE);
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 6);
					waddch(dialog, scroll + choice < item_no - 1 ?
					       '(' : ACS_HLINE);
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 7);
					waddch(dialog, scroll + choice < item_no - 1 ?
					       '+' : ACS_HLINE);
					wmove(dialog, box_y + list_height + 1,
					      box_x + check_x + 8);
					waddch(dialog, scroll + choice < item_no - 1 ?
					       ')' : ACS_HLINE);
					wmove(dialog, cur_y, cur_x);
					wrefresh(dialog);
					continue;	/* wait for another key press */
				} else
					i = choice + 1;
			} else if (key == ' ') {	/* Toggle item status */
				if (flag == FLAG_CHECK) {
					status[scroll + choice] = !status[scroll + choice];
					getyx(dialog, cur_y, cur_x);
					wmove(list, choice, check_x);
					wattrset(list, check_selected_attr);
					wprintw(list, "[%c]", status[scroll + choice] ? 'X' : ' ');
				} else {
					if (!status[scroll + choice]) {
						for (i = 0; i < item_no; i++)
							status[i] = 0;
						status[scroll + choice] = 1;
						getyx(dialog, cur_y, cur_x);
						for (i = 0; i < max_choice; i++)
							print_item(list, items[(scroll + i) * 3],
								   items[(scroll + i) * 3 + 1],
								   status[scroll + i], i, i == choice);
					}
				}
				wnoutrefresh(list);
				wmove(dialog, cur_y, cur_x);
				wrefresh(dialog);
				continue;	/* wait for another key press */
			}
			if (i != choice) {
				/* De-highlight current item */
				getyx(dialog, cur_y, cur_x);
				print_item(list, items[(scroll + choice) * 3],
					items[(scroll + choice) * 3 + 1],
				 status[scroll + choice], choice, FALSE);
				/* Highlight new item */
				choice = i;
				print_item(list, items[(scroll + choice) * 3],
					items[(scroll + choice) * 3 + 1],
				  status[scroll + choice], choice, TRUE);
				wnoutrefresh(list);
				wmove(dialog, cur_y, cur_x);
				wrefresh(dialog);
			}
			continue;	/* wait for another key press */
		}
		switch (key) {
		case 'O':
		case 'o':
		case M_EVENT + 'O':
			delwin(dialog);
			for (i = 0; i < item_no; i++)
				if (status[i]) {
					if (flag == FLAG_CHECK) {
						if (separate_output) {
							fprintf(stderr, "%s\n", items[i * 3]);
						} else {
							fprintf(stderr, "\"%s\" ", items[i * 3]);
						}
					} else {
						fprintf(stderr, "%s", items[i * 3]);
					}

				}
			free(status);
			return 0;
		case 'C':
		case 'c':
		case M_EVENT + 'C':
			delwin(dialog);
			free(status);
			return 1;
			return 1;
		case M_EVENT + 'o':	/* mouse enter... */
		case M_EVENT + 'c':	/* use the code for toggling */
			button = (key == M_EVENT + 'o');
		case TAB:
		case KEY_LEFT:
		case KEY_RIGHT:
			if (!button) {
				button = 1;	/* "Cancel" button selected */
				print_button(dialog, "  OK  ", y, x, FALSE);
				print_button(dialog, "Cancel", y, x + 14, TRUE);
			} else {
				button = 0;	/* "OK" button selected */
				print_button(dialog, "Cancel", y, x + 14, FALSE);
				print_button(dialog, "  OK  ", y, x, TRUE);
			}
			wrefresh(dialog);
			break;
		case ' ':
		case '\n':
			delwin(dialog);
			if (!button)
				for (i = 0; i < item_no; i++)
					if (status[i]) {
						if (flag == FLAG_CHECK) {
							if (separate_output) {
								fprintf(stderr, "%s\n", items[i * 3]);
							} else {
								fprintf(stderr, "\"%s\" ", items[i * 3]);
							}
						} else {
							fprintf(stderr, "%s", items[i * 3]);
						}

					}
			free(status);
			return button;
		case ESC:
			break;
		}
	}

	delwin(dialog);
	free(status);
	return -1;		/* ESC pressed */
}