/* appmenu.c- application defined menu
 *
 *  Window Maker window manager
 * 
 *  Copyright (c) 1997, 1998 Alfredo K. Kojima
 * 
 *  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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, 
 *  USA.
 */

#include "wconfig.h"

#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <X11/Xproto.h>
#include <X11/Xatom.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <unistd.h>

#include "WindowMaker.h"
#include "wcore.h"
#include "menu.h"
#include "actions.h"
#include "funcs.h"

#include "framewin.h"


/******** Global Variables **********/
extern Atom _XA_WINDOWMAKER_MENU;
extern Atom _XA_WINDOWMAKER_WM_PROTOCOLS;
extern Time LastTimestamp;

extern WPreferences wPreferences;

typedef struct {
    short code;
    short tag;
    Window window;
} WAppMenuData;



enum {
    wmBeginMenu = 1,
      wmEndMenu = 2,
      wmNormalItem = 10,
      wmDoubleItem = 11,
      wmSubmenuItem = 12
};

enum {
    wmSelectItem = 1
};


static void
sendMessage(Window window, int what, int tag)
{
    XEvent event;

    event.xclient.type = ClientMessage;
    event.xclient.message_type = _XA_WINDOWMAKER_MENU;
    event.xclient.format = 32;
    event.xclient.display = dpy;
    event.xclient.window = window;
    event.xclient.data.l[0] = LastTimestamp;
    event.xclient.data.l[1] = what;
    event.xclient.data.l[2] = tag;
    event.xclient.data.l[3] = 0;
    XSendEvent(dpy, window, False, NoEventMask, &event);
    XFlush(dpy);
}


static void 
notifyClient(WMenu *menu, WMenuEntry *entry)
{
    WAppMenuData *data = entry->clientdata;
    
    sendMessage(data->window, wmSelectItem, data->tag);
}



static WMenu*
parseMenuCommand(WScreen *scr, Window win, char **slist, int count, int *index)
{
    WMenu *menu;
    int command;
    int code, pos;
    char title[300];
    char rtext[300];

    if (strlen(slist[*index])>300) {
	wwarning("appmenu: menu command size exceeded in window %x", win);
	return NULL;
    }
    if (sscanf(slist[*index], "%i %i %n", &command, &code, &pos)<2
	|| command!=wmBeginMenu) {
	wwarning("appmenu: bad menu entry \"%s\" in window %x",
		 slist[*index], win);
	return NULL;
    }
    strcpy(title, &slist[*index][pos]);
    menu = wMenuCreateForApp(scr, title, *index==1);
    if (!menu)
      return NULL;
    *index += 1;
    while (*index<count) {
	int ecode, etag, enab;

	if (sscanf(slist[*index], "%i", &command)!=1) {
	    wMenuDestroy(menu, True);
	    wwarning("appmenu: bad menu entry \"%s\" in window %x", 
		     slist[*index], win);
	    return NULL;
	}
	
	if (command==wmEndMenu) {
	    *index += 1;
	    break;
	    
	} else if (command==wmNormalItem
		   || command==wmDoubleItem) {
	    WAppMenuData *data;
	    WMenuEntry *entry;

	    if (command == wmNormalItem) {
		if (sscanf(slist[*index], "%i %i %i %i %n",
			   &command, &ecode, &etag, &enab, &pos)!=4
		    || ecode!=code) {
		    wMenuDestroy(menu, True);
		    wwarning("appmenu: bad menu entry \"%s\" in window %x", 
			     slist[*index], win);
		    return NULL;
		}
		strcpy(title, &slist[*index][pos]);
		rtext[0] = 0;
	    } else {
		if (sscanf(slist[*index], "%i %i %i %i %s %n",
			   &command, &ecode, &etag, &enab, rtext, &pos)!=5
		    || ecode!=code) {
		    wMenuDestroy(menu, True);
		    wwarning("appmenu: bad menu entry \"%s\" in window %x", 
			     slist[*index], win);
		    return NULL;
		}
		strcpy(title, &slist[*index][pos]);
	    }
	    if (!(data = malloc(sizeof(WAppMenuData)))) {
		wwarning("appmenu: out of memory making menu for window %x",
			 win);
		wMenuDestroy(menu, True);
		return NULL;
	    }
	    data->code = code;
	    data->tag = etag;
	    data->window = win;
	    entry = wMenuAddCallback(menu, title, notifyClient, data);
	    if (!entry) {
		wMenuDestroy(menu, True);
		wwarning("appmenu: out of memory creating menu for window %x",
			 slist[*index], win);
		wfree(data);
		return NULL;
	    }
	    if (rtext[0]!=0)
	      entry->rtext = wstrdup(rtext);
	    else
	      entry->rtext = NULL;
	    entry->free_cdata = free;
	    *index += 1;

	} else if (command==wmSubmenuItem) {
	    int ncode;
	    WMenuEntry *entry;
	    WMenu *submenu;

	    if (sscanf(slist[*index], "%i %i %i %i %i %n",
		       &command, &ecode, &etag, &enab, &ncode, &pos)!=5
		|| ecode!=code) {
		wMenuDestroy(menu, True);
		wwarning("appmenu: bad menu entry \"%s\" in window %x", 
			 slist[*index], win);

		return NULL;
	    }
	    strcpy(title, &slist[*index][pos]);
	    *index += 1;

	    submenu = parseMenuCommand(scr, win, slist, count, index);

	    entry = wMenuAddCallback(menu, title, NULL, NULL);
	    
	    if (!entry) {
		wMenuDestroy(menu, True);
		wMenuDestroy(submenu, True);
		wwarning("appmenu: out of memory creating menu for window %x",
			 slist[*index], win);
		return NULL;
	    }

	    wMenuEntrySetCascade(menu, entry, submenu);
	    
	} else {
	    wMenuDestroy(menu, True);
	    wwarning("appmenu: bad menu entry \"%s\" in window %x", 
		     slist[*index], win);
	    return NULL;
	}
    }    

    return menu;
}


WMenu*
wAppMenuGet(WScreen *scr, Window window)
{
    XTextProperty text_prop;
    int count, i;
    char **slist;
    WMenu *menu;
    
    if (!XGetTextProperty(dpy, window, &text_prop, _XA_WINDOWMAKER_MENU)) {
	return NULL;
    }
    if (!XTextPropertyToStringList(&text_prop, &slist, &count) || count<1) {
	XFree(text_prop.value);
	return NULL;
    }
    XFree(text_prop.value);
    if (strcmp(slist[0], "WMMenu 0")!=0) {
	wwarning("appmenu: unknown version of WMMenu in window %x: %s",
		 window,  slist[0]);
	XFreeStringList(slist);
	return NULL;
    }

    i = 1;
    menu = parseMenuCommand(scr, window, slist, count, &i);
    if (menu)
      menu->parent = NULL;
    
    XFreeStringList(slist);

    return menu;
}

void
wAppMenuDestroy(WMenu *menu) 
{
    if (menu)
      wMenuDestroy(menu, True);
}


static void
mapmenus(WMenu *menu)
{
    int i;

    if (menu->flags.mapped)
      XMapWindow(dpy, menu->frame->core->window);
    if (menu->brother->flags.mapped)
      XMapWindow(dpy, menu->brother->frame->core->window);
    for (i=0; i<menu->cascade_no; i++) {
	if (menu->cascades[i])
	  mapmenus(menu->cascades[i]);
    }
}


void
wAppMenuMap(WMenu *menu, WWindow *wwin)
{

    if (!menu)
      return;
    
    if (!menu->flags.mapped) {
	wMenuMap(menu);
    }
    if(wwin && (wPreferences.focus_mode!=WKF_CLICK)) {
	int x, min;

        min = 20; /* Keep at least 20 pixels visible */
	if( wwin->frame_x > min ) {
	    x = wwin->frame_x - menu->frame->core->width;
	}
	else {
	    x = min - menu->frame->core->width;
	}
	wMenuMove(menu, x, wwin->frame_y, True);
    }
    mapmenus(menu);
    
}


static void
unmapmenus(WMenu *menu)
{
    int i;
    
    if (menu->flags.mapped)
      XUnmapWindow(dpy, menu->frame->core->window);
    if (menu->brother->flags.mapped)
      XUnmapWindow(dpy, menu->brother->frame->core->window);
    for (i=0; i<menu->cascade_no; i++) {
	if (menu->cascades[i])
	  unmapmenus(menu->cascades[i]);
    }
}

void
wAppMenuUnmap(WMenu *menu)
{
    if (menu)
      unmapmenus(menu);
}