/* main.c for mentor */

#include <stdio.h>
#include <signal.h>
#include <X10/Xlib.h>
#include "MenuMgr.h"
#include "Mentor.h"

char * MM_GetDefault();
extern FontFamily 	mm_Fonts;
extern Defaults 	mm_Defs;

#define max(a,b)	((a) > (b) ? (a) : (b))

#include "menuicon.bitmap" /* pattern for mentor icon	M*/
#include "gray.bitmap"	/* pattern for screen background  M*/

static MenuBarPtr	menubar;
static MenuPtr		usermenu;
static Window		test, icon;
static FontInfo *	fi;

static char progname[64];
static int Done = 0;

main(argc,argv)

	int	argc;
	char *	argv[];
{
int	i;
char *	list;
char *	fontname = "helv12";
char	fn[64];
char *	iconname;
XEvent	event;
int	HandleName();
int	HandleMenu();
Bitmap	graybitmap;
Pixmap	graypixmap;
Bitmap	iconbitmap;
Pixmap	iconpixmap;
int	twidth, theight;
char *	display_name;
char *	getenv();
DefsPtr d = &mm_Defs;

	strcpy( progname, argv[0] );

	if( XOpenDisplay()==NULL )
	{
		if( display_name = getenv("DISPLAY") )
			fprintf(stderr,"%s: unable to open display < %s >.\n",
				argv[0],display_name);
		else
			fprintf(stderr,"%s: DISPLAY variable not set!\n",
				argv[0]);
		exit(1);			
	}

/*
	graybitmap = XStoreBitmap(gray_width,gray_height,gray_bits );
	graypixmap = XMakePixmap( graybitmap,BlackPixel,WhitePixel );
*/
	iconbitmap = XStoreBitmap(menuicon_width,menuicon_height,menuicon_bits );
	iconpixmap = XMakePixmap( iconbitmap,BlackPixel,WhitePixel );

	if( (fi = XOpenFont( fontname )) == NULL )
	{
		fprintf(stderr,"%s: couln't open font %s\n",argv[0],fontname);
		exit(-1);
	}

	mm_InitMenus(argv[0]);

	test = XCreateWindow( RootWindow, 0,0,DisplayWidth(),
		mm_MBarsHeight(d,mm_Fonts),
		0,BlackPixmap,WhitePixmap );

	sprintf(fn,"MENTOR");
	twidth = max( XStringWidth( fn, fi, 0, 0 ), menuicon_width ) + 10;
	theight = menuicon_height + fi->height + 15;
	icon = XCreateWindow( RootWindow, DisplayWidth()-(100+twidth),100,
		twidth, theight,
		2,BlackPixmap,WhitePixmap );

	XSetIconWindow( test, icon );
	XSelectInput( icon, ExposeWindow|ExposeRegion|ButtonPressed );
	XStoreName( icon, fn );

	menubar = mm_GetMenuBar( argv[0], 1, "MENTOR" );
	if( !menubar )
		exit(1);
	usermenu = mm_GetMenu( argv[0], M_USER, "User" );
	if( usermenu )
	{
		mm_InsertMenu( menubar, usermenu, 0 );	/* puts user stuff at end of menubar */	
	}

	mm_SetNameCallback( menubar, HandleName );
	mm_SetMenuCallback( menubar, HandleMenu );
	mm_AttachMenuBar( menubar, test );

	XSelectInput( test, mm_MBarParentEvents|ExposeWindow|ExposeRegion );
	XMapWindow(test);
	XMapSubwindows(test);

	DesktopInit();

	while(!Done)
	{
		XNextEvent(&event);
		mm_HandleEvent(&event);
		if( event.window == test && 
			(event.type == ExposeRegion 
			|| event.type == ExposeWindow) )
			XLowerWindow( test );
		else if( event.window == icon )
		{
			if( event.type == ExposeRegion
			|| event.type == ExposeWindow )
			{
				XPixmapPut( icon, 0,0,
				twidth/2 - menuicon_width/2,5,
				menuicon_width,menuicon_height,
				iconpixmap,GXcopy,AllPlanes);
				XFetchName( icon, &iconname );
				XTextMask( icon, 5,
					menuicon_height+10,
					fn,strlen(fn),
					fi->id,BlackPixel);
			}
			else if( event.type == ButtonPressed )
			{
				IconXlate( icon );
			}
		}
	}

	XDestroyWindow(test);
	XDestroyWindow(icon);
	XSync();
	XFlush();
}


int
DesktopInit()
{
	system("/usr/bin/X10/xclock -digital =-0+0 &");
	system("/usr/bin/X10/xload -scale 3 =350x75-0-0 &");
	system("/usr/bin/X10/emacs -i -w =80x25-0+50 &");
}

int
HandleName( mbp )

	MenuBarPtr	mbp;
{
/*	printf("Hit NameBar of menubar <%s>\n",mbp->mbarName); */
	IconXlate( test );
	return 0;
}

int
HandleMenu( mp, item )

	MenuPtr		mp;
	int		item;
{
  int i;
  ItemPtr ip;
  char *myname;
  char *mycmd;
  char search[128];
  char *p;	/* start of string */
  char *q;	/* ptr to ';' */
  char *index();

  ip = mm_GetItemHandle( mp, item );
  if( ip )
	myname = mm_GetItemLabel(ip);

	sprintf(search,"Menu.%d.%s.Cmd.%d",mp->menuID,mp->menuTitle,item);
	mycmd = MM_GetDefault( progname, search);
	if( mycmd )
	{
		printf("raw shell command is <%s>\n",mycmd);
		p = mycmd;
		while( p && *p )
		{
			q = index(p,';');

			if( q )		/* other cmds to exec */
			{
				*q = 0;
				system( p );
				p = q+1;
			}
			else		/* no more to exec */
			{
				if( system( p ) )
				{
					printf("command failed.\n");
					return -1;
				}
				else
					return 0;
			}
		}
		return 0;
	}

  printf("Select in Menu <%s>: item is %d, <%s>\n",
	mp->menuTitle,item,myname);

  switch(mp->menuID)	{    /* which menu was selected? 	M*/
     case M_LOGOUT:  
	XFlush();
    /*  Call_Dialog_Box("This selection will kill all your windows and
	 log you out.\nDo you really want to do this?","Cancel","Logout"); M*/
	XFlush();
	Done = 1;
	break;

     case M_HELP: 
       switch (item) {  /*  Choice in programs menu */
       case 1:
        system("/mit/StaffTools/bin/xmore =80x25+50+150 /mit/visual/tools/mentor/mentor.txt &");
 	        break;

       case 2:
		printf("Sorry, no Desktop Help available yet.\n");
		break;

       case 3:
/*		system("/mit/visual/tools/bin/vcman &");  */
		printf("Sorry, no Desktop Help available yet.\n");
		break;

       case 4:
		system("/mit/StaffTools/bin/xman &");
		break;

        default:
	       printf("No valid choice taken.\n");
	       break;
	}  /* switch item (M_HELP)	M*/    
	break;
        
      case M_SYSTEM:
       switch (item) {  /*  Choice in programs menu */
       case 1:
	        system("/usr/bin/X10/xterm =80x25+0+50 &");
		break;

       case 2:
		system("/usr/bin/X10/emacs -i -w =80x25-0+50 &");
	       break;

       case 3:
		 system("/bin/csh /mit/visual/tools/mentor/browse &");
	       break;

       case 4:
		 system("/mit/visual/tools/toolbox/toolbox &");
	       break;

       case 5:
	       /* Appl_SubMenu();  */
		printf("Sorry, there is no Applications Submenu yet.\n");
		break;

        default:
	       printf("No valid choice taken.\n");
	       break;
	}  /* switch item (M_HELP)	M*/    
	break;
        
     case M_USER: 
       switch (item) {  /*  Choice in programs menu */
       case 1:
/*
			system("/site/mrose/edd &");
*/
		break;

       case 2:
/*
			system("/site/mrose/jas &");
*/
		break;

       case 3:
/*
system("/usr/bin/X10/xterm =50x25-0+0 -ft oldeng -n ToDo_List -e /usr/new/jove /site/mrose/projX/todo.txt &");
*/
		break;

       case 4:
/*
	system("/usr/bin/X10/xterm =50x25+0-0 -n What's Happening? -e /usr/ucb/vi /site/mrose/MyCal &");
*/
		break;

       case 5:
/*
			system("/site/mrose/bin/squeek &");
*/
		break;

        default:
	       printf("No valid choice taken.\n");
	       break;
	}  /* switch item (M_HELP)	M*/    
	break;
        
      case M_COURSEW:
       switch (item) {  /*  Choice in programs menu */
       case 1:
		printf("Selection is %s\n",mp->menuTitle);
		break;

       case 2:
		printf("Selection is %s\n",mp->menuTitle);
		break;

       case 3:
		printf("Selection is %s\n",mp->menuTitle);
		break;

       case 4:
/*
		printf("Selection is %s\n",mp->menuTitle);
		system("attach neuro");
		system("cd /mit/neuro/X");
		system("neuro");
		printf("Invoking Neuroanatomy courseware; it will take a moment to load...\n");
*/
		break;

       case 5:
		printf("Selection is %s\n",mp->menuTitle);
		break;

       case 6:
/*
		printf("Selection is %s\n",mp->menuTitle);
		system("attach 1.38");
		system("/mit/visual/tools/mentor/gepse/gepse &");
*/
		break;

        default:
	       printf("No valid choice taken.\n");
	       break;
	}  /* switch item (M_COURSEW)	M*/    
	break;
        
     default:  XFeep(1);
	       printf("Not implemented, be patient.\n");
	       break;
     }      /* switch choice[0] */

  return 0;
}

int
IconXlate( w )

	Window	w;
{
WindowInfo	wi1, wi2;
int		steps = 20;
int		xs,ys,ws,hs,i,j;

	XQueryWindow( w, &wi1 );
	if( !wi1.assoc_wind )
	{
		fprintf(stderr,"IconXlate: window has no associate\n");
		return -1;
	}

	XQueryWindow( wi1.assoc_wind, &wi2 );
	XUnmapWindow( w );
	XFlush();

	for( j=0, i=0; i<steps; i++ )
	{
		xs = (wi2.x - wi1.x)/steps;
		ys = (wi2.y - wi1.y)/steps;
		ws = (wi2.width - wi1.width)/steps;
		hs = (wi2.height - wi1.height)/steps;

		DrawBox( RootWindow,
			wi1.x + (i*xs),
			wi1.y + (i*ys),
			wi1.width + (i*ws),
			wi1.height + (i*hs),
			2,
			BlackPixel,
			GXinvert,
			AllPlanes );

		if( i>2 )
		{
		DrawBox( RootWindow,
			wi1.x + (j*xs),
			wi1.y + (j*ys),
			wi1.width + (j*ws),
			wi1.height + (j*hs),
			2,
			BlackPixel,
			GXinvert,
			AllPlanes );
		j++;
		}

		XFlush();
		mpause(20);
	}

	for( ; j<steps; j++ )
		DrawBox( RootWindow,
			wi1.x + (j*xs),
			wi1.y + (j*ys),
			wi1.width + (j*ws),
			wi1.height + (j*hs),
			2,
			BlackPixel,
			GXinvert,
			AllPlanes );
	
	XMapWindow( wi1.assoc_wind );
	return 0;
}

int
DrawBox( win, x,y, w,h, thickness, pixel, func, planes )

	Window 	win;
	int	x,y,w,h,thickness,pixel,func,planes;
{
static Vertex	vlist[5];

	vlist[0].x = x;
	vlist[0].y = y;
	vlist[1].x = (x+w)-1;
	vlist[1].y = y;
	vlist[2].x = (x+w)-1;
	vlist[2].y = (y+h)-1;
	vlist[3].x = x;
	vlist[3].y = (y+h)-1;
	vlist[4].x = x;
	vlist[4].y = y;
	XDraw( win, vlist, 5, thickness, thickness, pixel, func, planes );
	return 0;
}