/*	DESKMENU.C		3/16/89	- 9/18/89	Derek Mui	*/
/*	Put o_select and x_select into menu_verify	7/3/90	D.Mui	*/
/*	Scan ascii '>' instead of whole scan code	7/12/90	D.Mui	*/
/*	Two new help menu		7/12/90		D.Mui		*/
/*	Display print screen if it is ST mode	7/31/90	D.Mui		*/ 
/*	Fix the alt drive table			8/27/90	D.Mui		*/
/*	Use m_cpu to determine cache or no cache	9/19/90	D.Mui	*/
/*	Handle all the window message and don't care if it is on top 	*/
/*	or not					5/16/91	D.Mui		*/
/*	Fix at read_inf to read file only	7/15/91	D.Mui		*/
/*	Changes to do_opt()		       07/07/92 C.Gee		*/
/*        - Call mv_desk() instead of av_desk()				*/
/*	  - Call mins_app() instead of ins_app()			*/
/*	  - Call mdesk_pref() instead of desk_pref()			*/
/*	  - Add set_video() to do_opt()					*/
/*	Changes to tb3[] - added VIDITEM object				*/
/*      Changes to hdkeybd() - added VIDITEM object			*/
/*	Convert to Lattice C 5.51		02/18/93 C.Gee		*/
/*	Changed 2 uses of WINICON to SMILEY     02/28/93 C.Gee		*/
/*	These two are TREES called by get_tree().			*/	
/*	Changed v_hardcopy() to d_v_hardcopy()  03/31/93 C.Gee		*/
/*	Replaced the hardcoded keyboard tables with BIOS calls 5/3/93 ERS */
/*	Add window iconifying.			05/04/93 H.Krober	*/
/*	Add "Iconify All" windows support	05/27/93 H.Krober	*/
/*	Add life to iconified windows		06/01/93 H.Krober	*/  
/************************************************************************/
/*	New Desktop for Atari ST/TT Computer				*/
/*	Atari Corp							*/
/*	Copyright 1989,1990 	All Rights Reserved			*/
/************************************************************************/

#include "portab.h"
#include "machine.h"
#include "obdefs.h"
#include "deskdefi.h"
#include "deskwin.h"
#include "message.h"
/*#include "gemdefs.h"*/
#include "mintbind.h"
#include "deskusa.h"
#include "osbind.h"
#include "extern.h"
#include "pdesk.h"
#include "pmisc.h"

/* #define DEBUGGING */
#ifdef DEBUGGING
#include "pdstruct.h"
EXTERN	PD	*currpd;
EXTERN	WORD	d_multi;
EXTERN VOID Debug(WORD, BYTE *);
#endif

EXTERN	LONG	gl_vdo;
EXTERN	WORD	q_change;
EXTERN	WORD	pref_save;
EXTERN	WORD	desk_id;
EXTERN	WORD	m_cpu;
EXTERN	WORD	s_defdir;
EXTERN	WORD	s_fullpath;
EXTERN	WORD	numicon;
EXTERN	WORD	x_status;
EXTERN	WORD	x_type;
EXTERN	BYTE	mkeys[];
EXTERN	BYTE	restable[];
EXTERN	WORD	ftab[];

EXTERN	WORD	st_keybd;
EXTERN	WORD	d_multi;

EXTERN	WORD	win_alliconified;

WORD	all_icontop;	/* "All Iconify" Window is top */
#ifdef OBSOLETE_CODE
WORD	icn_whandle;
#endif
WORD	d_exit;		/* desktop exit flag	*/
BYTE	mentable[MAXMENU];
/*	Arrow keys table	*/
WORD	arrowtab[] = { 0x4d36, 0x5032, 0x4838, 0x4b34, 0x4800, 0x5000, 0x4d00,
		       0x4b00, 0 };

/*	Arrow keys Message	*/
WORD	arrowimg[] = { 5, 1, 0, 4, 2, 3, 7, 6 };

WORD	tb1[] = { NEWFITEM, CLSFITEM, CLSWITEM, BOTTOP, EXTMENU, SELALL, 0 };
WORD	tb2[] = { REMVICON, SEAMENU, SHOWITEM, 0 };

WORD	xxxview[9] = { ICONITEM, TEXTITEM, 0, NAMEITEM, DATEITEM, SIZEITEM, 
		       TYPEITEM, NOSORT, 0 };

/* cjg - added VIDITEM - 07/07/92 */
WORD	tb3[MAXMENU] = { OPENITEM, SHOWITEM, SEAMENU,  DELMENU,  NEWFITEM, 
			 CLSFITEM, CLSWITEM, BOTTOP,   SELALL,   EXTMENU,  
			 FORMITEM, ICONITEM, TEXTITEM, NAMEITEM, DATEITEM, 
			 SIZEITEM, TYPEITEM, NOSORT,   SIZEFIT,  SCOLTYPE, 
			 IDSKITEM, IAPPITEM, INSDISK,  REMVICON, PREFITEM, 
			 READINF,  MEMMENU,  SAVEITEM, PRINTITE, BITBLT,
			 VIDITEM };

WORD	o_status;	/* for o_select	*/
WINDOW	*o_win;
WORD	o_type;
WORD	o_item;


/*	Change one individual key	*/

	VOID	
ch_key( i )
	WORD	i;
{
	OBJECT		*obj;
	REG WORD	l;
	REG BYTE	*str;

	obj = menu_addr;
	str = ( BYTE *)obj[tb3[i]].ob_spec;
	l = strlen( str );	  
	if ( mentable[i] )
	{
	  strcpy( "[ ]", &str[l-3] );
	  str[l-2] = mentable[i];
	}
	else
	  strcpy( "   ", &str[l-3] );
}


/*	Put keys into the menus	*/
	
	VOID
put_keys( VOID )
{
	REG WORD	i;

	for ( i = 0; i < MAXMENU; i++ )
	  ch_key( i );
}


/*	Loop to find matching array	*/

	WORD
loop_find( input, table, index )
	WORD	input;
	WORD	table[];
	WORD	*index;
{
	REG WORD	i;

	i = 0;

	while( table[i] )
	{ 
	  if ( input == table[i] )
	  {
	    *index = i;
	    return( TRUE );
	  }
	  else
	    i++;
	}

	return( FALSE );  
}

/* find the control or alternate key corresponding
 * to the given VDI keycode. Puts the capital letter
 * version of the key into *index, and returns
 *   0 -- if no alt or control key is found
 *   1 -- if a control key was found
 *   2 -- if an alt key was found
 * E.g. if the VDI keycode corresponds to ALT-A,
 * then *index is set to 'A', and 2 is returned.
 * Only ALT+letter and CONTROL+letter combinations are
 * checked for here.
 */
	WORD
key_find( keycode, index )
	WORD keycode;
	WORD *index;
{
	BYTE *capstab;
	WORD scancode;
	BYTE letter;

/* get the Caps Lock table from the BIOS */
 	capstab = *( ((char **)Keytbl(-1L, -1L, -1L)) + 2 );
	scancode = (keycode & 0x7f00) >> 8;
	letter = capstab[scancode];
	if (letter < 'A' || letter > 'Z')
	  return 0; /* not a letter at all */
	if ((keycode & 0x00ff) == (letter & 0x1f))
	{
	  *index = letter;
	  return 1;		/* control+letter */
	}
	if ((keycode & 0x00ff) == 0)
	{
	  *index = letter;
	  return 2;		/* alt+letter */
	}
	return 0;
}

	VOID
men_ienable( obj, which, enable )
	OBJECT	*obj;
	WORD	which,enable;
{
	if ( enable )
	  obj[which].ob_state &= ~DISABLED;
	else
	  obj[which].ob_state |= DISABLED;
}


/*	Enable or disable the menu item according to current status	*/

	VOID
menu_verify( VOID )
{
	WORD	enable;
	REG 	WORD	i;
	WORD	type;
	BYTE	*str;
	WINDOW	*wp;

			/* If there is a window opened/closed	*/

        o_select();	/* check to see if there is anything selected */
	x_select();

	enable = ( winhead->w_id == -1 ) ? FALSE : TRUE;	

	if (enable) {
		wp = get_top();
		if (wp && wp->w_iconified == TRUE)
			enable = FALSE;
		if (all_icontop)
			enable = FALSE;
	}

	i = 0;	
	while( tb1[i] )
 	  men_ienable( menu_addr, tb1[i++], enable );

	i = 0;

	if ( x_status )
	{
	  enable = TRUE;
	  if ( x_type == WINICON )
	    i = 1;
	}
	else
	  enable = FALSE;		

	while( tb2[i] )
 	  men_ienable( menu_addr, tb2[i++], enable );

	enable = x_first( &str, &type );

 	men_ienable( menu_addr, DELMENU, enable );
 	men_ienable( menu_addr, IAPPITEM, enable );

	enable = FALSE;

	if (!all_icontop && w_gfirst() )
	{
	  if ( w_gnext() )
	    enable = TRUE;

	  men_ienable( menu_addr, CLSWITEM, TRUE ); /* +++ 5/5/93 HMK */
 	  men_ienable( menu_addr, SEAMENU, TRUE );
 	  men_ienable( menu_addr, SHOWITEM, TRUE );
	  men_ienable( menu_addr, SELALL, TRUE ); /* +++ 6/2/93 HMK */
	}

 	men_ienable( menu_addr, BOTTOP, enable );
	ch_cache( FALSE );
 	men_ienable( menu_addr, PRINTITE, ( pref_save <= 3 ) ? TRUE : FALSE );
}


/*	Select all objects inside the window	*/

	VOID
sel_all( VOID )
{
	REG WINDOW	*win;
	REG DIR		*dir;
	REG WORD	i, items;
	BYTE		buffer[14];

	if ( (win = w_gfirst()) != 0 /* && !win->w_iconified*/)
	{
	  clr_dicons( );
	  if (win->w_iconified) {
		dir = &win->w_icndir;
		items = 1;
	  } else {
	          dir = ( DIR *)win->w_memory;
		  items = win->w_items;
	  }
	  strcpy( g_name( win->w_path ), buffer );
	  for ( i = 0; i < items; i++ )
	  {
	    if ( wildcmp( buffer, dir[i].d_name ) )
	      dir[i].d_state = SELECTED; 	    
	  }

	  up_2( win );	   
	}
}


/*	Handle the keyboard	*/

	VOID
hd_keybd( key, keystate )
	UWORD	key,keystate;
{
	OBJECT		*obj;
	REG WINDOW	*win;
	REG WORD	item;
	WORD		msgbuff[8];
	BYTE		buffer[14];
	WORD		i, ctrl;
	APP		*app;
#ifdef OBSOLETE_CODE
	WORD		x,y,w,h;
	ICONBLK		*iblk;
#endif
	if ( app = app_key( key ) )
	{
	  exec_file( app->a_name, (WINDOW*)0, 0, Nostr );
	  return;
	}

	win = get_top();

	item = toupper( key );

	for ( i = 0; i < MAXMENU; i++ )
	{
	  if ( !mentable[i] )
	    continue;

	  if ( ( item == toupper( mentable[i] ) ) )
	  {
	    switch ( i )
	    {
	      case 0:			/* Open item	*/
	      case 1:			/* Show	item	*/
	      case 2:			/* Search	*/
	      case 3:			/* Delete	*/
	      case 4: 			/* Folder making	*/
	      case 5:			/* Close directory	*/
	      case 6:			/* Close top window	*/
	      case 7:			/* Bottom to top	*/
	      case 8:			/* Select all		*/
	      case 9:			/* Set Extension	*/
	      case 10:			/* Format Disk		*/
	    	do_file( tb3[i] );
	    	return;
	
	      case 11:			/* Icon mode		*/
	      case 12:			/* Text mode		*/
	      case 13:			/* Sort by Name		*/
	      case 14:			/* Sort by Date		*/
	      case 15:			/* Sort by Size		*/
	      case 16:			/* Sort by Type		*/
	      case 17:			/* No Sort		*/
	      case 18:			/* Size to fit		*/
	      case 19:			/* Window Style		*/
	    	do_view( tb3[i] );
	    	return;
		
	      case 20:			/* Install disk icon	*/
	      case 21:			/* Install application	*/
	      case 22:			/* Install Device	*/
	      case 23:			/* Remove icons		*/
	      case 24:			/* Desktop Preference	*/
	      case 25:			/* read inf file	*/
	      case 26: 			/* desktop config	*/
	      case 27:			/* save desktop.inf	*/	    
	      case 28:			/* print screen		*/
	      case 29:			/* set blt		*/
	      case 30:			/* cjg - 06/19/92  Set Video	*/
	    	do_opt( tb3[i] );
	    	return;

	    }/* switch */

	    break;
	  }
	}

	ctrl = key_find( key, &i );
	if ( ctrl == 2 )	/* ALT+key pressed */
	{
	  if ( win )
	    clr_xwin( win, TRUE );
hx_1:	  strcpy( wildext, buffer );
	  buffer[0] = i;	
	  open_disk( 0, buffer, TRUE );
	  return;
	}

	if ( ctrl == 1 )	/* control key pressed */
	{
	  if ( ch_drive( i ) )
	  {
	    if ( win )	/* replace top window	*/
	    {		
	      strcpy( win->w_path, win->w_buf );
	      strcpy( g_name( win->w_path ), buffer );
	      strcpy( wildext, win->w_path );
	      win->w_path[0] = i;
	      rep_path( buffer, win->w_path );	
	      if ( !up_win( win, FALSE ) )
	        strcpy( win->w_buf, win->w_path );
	      if (win->w_iconified) {	/* +++ HMK 5/5/93   */	
		set_wiconname(win); 	/* change icon name */
		do_redraw( win->w_id, &win->w_work, 0 );
	      }
	      return;
	    }
	    else	/* open a window	*/	
	      goto hx_1;
	  }
	}

	if ( win && !win->w_iconified)		/* there is a window	*/
	{
	  if ( loop_find( key, arrowtab, &i ) )
	  {
	     msgbuff[0] = WM_ARROWED;
	     msgbuff[3] = win->w_id;
	     msgbuff[4] = arrowimg[i];
	     do_scroll( msgbuff );
	     return;	      
	  }
	}          

	if ( item == 0x3e )		/* >	*/
	{
	  pri_win();
	  return;
	}

	if ( key == 0x4700 )		/* clr home	*/
	{
	  form_dial( 3, 0, 0, 0, 0, full.g_x, full.g_y, full.g_w, full.g_h );	 
	  return;
	}


	if ( key == 0x6200 )		/* help		*/
	{
	   if ( fmdodraw( HELP1, -1 ) == MOREHELP )
	     fmdodraw( HELP2, -1 );
	   return;
	}

	if ( item == 0x0D )		/* return		*/
	{
	  clr_allwin();			/* deselect all items	*/	
	  clr_dicons();
	}

	if ( item == 0x1B )		/* escape		*/
	{
	  if ( win )			/* update top window	*/
	    up_win( win, TRUE );
	}

#ifdef OBSOLETE_CODE
	if ( key == 0x071e )		/* control 6	*/
	{
	  icn_whandle = wind_create( MOVE|CLOSE|NAME, 50, 50, 32, 32 );
	  if ( icn_whandle != -1 )
	  {	   	
	    if ( save_inf( FALSE, (BYTE *) 0L ) )	/* save the current environment */
	    {
	      obj = get_tree( SMILEY );
	      iblk = (ICONBLK*)obj[1].ob_spec;
	      wind_calc( 0, MOVE|CLOSE, 2, full.g_y, iblk->ib_wtext, 
			 iblk->ib_hicon + iblk->ib_htext, &x, &y, &w, &h );
/*	      wind_set( icn_whandle, WF_NAME, "NEWDESK", (BYTE*)0 );	*/
	      wind_set( icn_whandle, WF_BEVENT, 0x1, 0, 0, 0 );	  

	      free_windows();		/* free all the window		*/
	      wind_open( icn_whandle, x, y, w, h ); 	
	      wind_set( icn_whandle, WF_BOTTOM, 0, 0, 0, 0 );
	      wind_get( icn_whandle, WF_WORKXYWH, &obj->ob_x, &obj->ob_y, &obj->ob_width,
		        &obj->ob_height );
/*      form_dial( 2, obj->ob_x, obj->ob_y, 1, 1, full.g_x, full.g_y, full.g_w,
			 full.g_h );*/
	      shel_write( 11, 0, 0, 0L, 0L );
	      return; 	
	    }
	  }

	  form_alert( 1, "[1][ Failed to put newdesk | to sleep! ][ OK ]" ); 	
	}
#endif /* OBSOLETE_CODE */
}


/*	Set file option		*/

	VOID
foption( win )
	REG WINDOW	*win;
{
	REG OBJECT	*obj;
	BYTE		buffer[14];
	BYTE		buf2[14];
	BYTE		buf1[14];

	obj = get_tree( FILEOPTI );
	save_ext( win->w_path, buf2 );
	strcpy( buf2, buf1 );
	xinf_sset( obj, OPTNAME, buf2 );
	if ( fmdodraw( FILEOPTI, 0 ) == OPTOK )
	{
	  inf_sget( (LONG) obj, OPTNAME, buffer );
	  unfmt_str( buffer, buf2 );
	  if ( !buf2[0] )
	    strcpy( getall, buf2 );

	  if ( !strcmp( buf1, buf2 ) )
	  {
	    rep_path( buf2, win->w_path );
	    up_win( win, FALSE ); 
	  }
	}
}


/*	Scroll window up down left right	*/

	VOID
do_scroll( msgbuff )
	WORD	msgbuff[];
{
	REG WORD	act;
	REG WINDOW	*win;
	WORD		bdown,x,y;

	act = msgbuff[4];
	
	if ( win = get_win( msgbuff[3] ) )
	{
	  switch( act )
	  {
	    case 1:			/* page down		*/
	    case 0:			/* page up		*/
	      srl_row( win, win->w_xrow, ( act == 1 ) ? SDOWN : SUP );
	      break;

	    case 3:			/* arrow down		*/
	    case 2:			/* arrow up		*/
	        srl_row( win, 1, ( act == 2 ) ? SUP : SDOWN );
		break;
	      do
	      {
	        srl_row( win, 1, ( act == 2 ) ? SUP : SDOWN );
		graf_mkstate( &x, &y, &bdown, &x );
	      }while( bdown );

	      break;

	    case 5:			/* page left or right	*/
	    case 4:
	      srl_col( win, win->w_xcol, ( act == 4 ) ? SRIGHT : SLEFT );
	      break;

	    case 7:
	    case 6:			/* scroll left		*/
	        srl_col( win, 1, ( act == 6 ) ? SRIGHT : SLEFT );
		break;
	      do
	      {
	        srl_col( win, 1, ( act == 6 ) ? SRIGHT : SLEFT );
		graf_mkstate( &x, &y, &bdown, &x );
	      }while( bdown );

	      break;
	  } 
	}
}



/*	Do the option menu	*/

	VOID
do_opt( msgbuff )
	WORD	msgbuff;
{
	WORD		ret,button,handle;
	BYTE		buffer[16];
	BYTE		*str;
	BYTE		*afile;

	ret = 0;	/* cjg 03/03/93 */

	switch( msgbuff )
	{
	  case IDSKITEM:			/* install disk icon	*/
	    if ( x_status )
	    {
	      if ( x_type == DESKICON )
	        goto opt1;
	      else
		goto opt2;
	    }

	    ret = do1_alert( ICONTYPE );
	    if ( ret == 2 )
opt2:	      ins_wicons();
	    if ( ret == 1 )
opt1:	      ins_icons();

	    break;

	  case IAPPITEM:
	    if ( x_first( &str, &button ) )
	      mins_app();		/* cjg - 07/07/92 */
/*	      ins_app();	*/
	    break;

	  case INSDISK:
	    ins_drive();
	    return;
	
	  case REMVICON:		/* remove icon		*/
	    rm_icons();
	    break;

	  case PREFITEM:		/* desktop preference	*/
	    mdesk_pref();		/* cjg 07/07/92 */
/*	    desk_pref();	*/
	    break;

	  case READINF:
	    strcpy( "C:\\*.INF", path1 );
	    path1[0] = ( isdrive() & 0x04 ) ? 'C' : 'A';
	    strcpy( &infpath[3], buffer );
 	
	    fsel_exinput( (LONG)path1,(LONG)buffer, &button, get_fstring( SINF) );

	    if ( button )
	    {
	      desk_mice( HOURGLASS );
	      rep_path( buffer, path1 );
	      handle = ( WORD )Fopen( path1, 0x00 );
	      if ( handle > 0 )
	      {
		Fsetdta( &dtabuf );
		Fsfirst( path1, 0x31 );
		if ( afile = malloc( dtabuf.dirfile.d_size ) )
		{
	          Fread( handle, dtabuf.dirfile.d_size, afile ); 	

		  if ( ( afile[0] == '#' ) && ( afile[1] == 'a' ) )
		  {			/* copy to the aes buffer */
	            shel_put( afile, (UWORD)(dtabuf.dirfile.d_size) );	
	    	    d_exit = L_READINF;
		    wait_msg( -1, (OBJECT *) 0L );
		    strcpy( path1, inf_path );	/* new inf path	*/
		  }
		  else
		    do1_alert( ILLMAT );

		  free( afile );
		}

		Fclose( handle );
	      }
	      else
		fill_string( path1, FNOTFIND );

	      desk_mice( ARROW );
	    }

	    break;
	
	  case MEMMENU:
	    mv_desk();			/* cjg - 07/07/92 */
/*	    av_desk();	*/
	    break;


	  case SAVEITEM:		/* save desktop		*/
	    strcpy( "C:\\*.INF", path1 );
	    path1[0] = ( isdrive() & 0x04 ) ? 'C' : 'A';
	    strcpy( &infpath[3], buffer );
 	
	    fsel_exinput((LONG)path1,(LONG)buffer, &button, get_fstring( SAVEINF ) );

	    if ( button )
	    {
	      rep_path( buffer, path1 );
	      save_inf( TRUE, path1 );		
	    }
	
	    break;

	  case PRINTITE:		/* print screen		*/
	    if ( !( menu_addr[PRINTITE].ob_state & DISABLED ) )
	    {
	      if ( do1_alert( PRINTTOP ) == 1 )
	      {
	        desk_mice( HOURGLASS );
	        d_v_hardcopy();
	        desk_mice( ARROW );
	      }
	    }

	    break;

	  case BITBLT:
	    if ( m_cpu != 30 )
	      cbit_save = !cbit_save;
	    else
	      s_cache = !s_cache;

	    ch_cache( TRUE );
	    break;

	  case VIDITEM: 
	    if ( set_video() )
	      d_exit = L_CHGRES;
	    break;		  	
	}
}


/*	Do the sorting menu	*/

	VOID
do_view( msgbuff )
	WORD	msgbuff;
{
	WORD		mode,i;

	switch( msgbuff )
	{
	  case SCOLTYPE:
	    col_pa_pref( );
	    return;

	  case SIZEFIT:			/* size to fit	*/
	    s_stofit = !s_stofit;
	    sort_show( 0, TRUE );
	    goto v_4;

	  case ICONITEM:		/* show as icon	*/
	    mode = S_ICON;
	    goto v_1;
 
	  case TEXTITEM:		/* show as text	*/
	    mode = S_TEXT;

v_1:	    i = 0;	    
	
	    if ( mode == s_view )	/* No change	*/
	      break;

	    s_view = mode;
	    sort_show( FALSE, TRUE );
	    break;

	  case NAMEITEM:
	    mode = S_NAME;
	    goto v_2;
	
	  case DATEITEM:
	    mode = S_DATE;
	    goto v_2;

	  case SIZEITEM:
	    mode = S_SIZE;
	    goto v_2;

          case TYPEITEM:
            mode = S_TYPE;
	    goto v_2;

	  case NOSORT:
	    mode = S_NO;
	
v_2:	  
	  i = 3;	
  	  if ( mode == s_sort )		/* No change	*/
	    break;
	  s_sort = mode;
	  sort_show( s_sort, FALSE );
	  break;
	}

v_3:	while( xxxview[i] )
	  menu_icheck( menu_addr, xxxview[i++], 0 );
	
	menu_icheck( menu_addr, msgbuff, 1 );
v_4:
	menu_icheck( menu_addr, SIZEFIT, s_stofit );
}


/*	Do the file menu	*/

	VOID
do_file( msgbuff )
	WORD	msgbuff;
{
	OBJECT		*obj;
	WORD		ret,type;
	REG WINDOW	*win;
	BYTE		buffer[14];
	BYTE		buf2[14];
	BYTE		*str;
	BYTE		*str1;
	WORD		topwicon;

	win = get_top();

	if (win)			/* is top window iconified? */
	  topwicon = win->w_iconified;	/* +++ HMK 5/5/93 */

	switch( msgbuff )
	{
	  case OPENITEM:
	    if ( o_status )
	      open_item( o_item, o_type, o_win );
	    else
	      launch_pref();

	    break;

	  case SHOWITEM:
	    if (!all_icontop)
		    show_item( );
	    break;

	  case SEAMENU:		/* search file menu	*/
	    if (!all_icontop && ( ( x_status ) || ( w_gfirst() ) ))
	    {
	      obj = get_tree( SEAFILE );
	      inf_sset( (LONG)obj, SFILE, Nostr );
	      if ( fmdodraw( SEAFILE, SFILE ) == SEAOK )
	      {
	        inf_sget( (LONG)obj, SFILE, buffer );
	        unfmt_str( buffer, buf2 );
	        if ( buf2[0] )
	          sea_file( buf2 );
	      }
	    }
		
	    break;

	  case DELMENU:
	    if ( !( menu_addr[DELMENU].ob_state & DISABLED ) )
	    {
	      if ( x_status )
	      {
	        if ( x_type == DESKICON )	/* desktop icons	*/
	        {
	          ret = do1_alert( DELITEM );
	          if ( ret == 1 )		/* remove		*/
	          {
		    rm_icons();
		    break;
		  }

	          if ( ret == 3 )		/* cancel		*/
		    break;
		}
	        file_op( Nostr, OP_DELETE );
	      }	
	    }

	    break;

	  case NEWFITEM:
	    if ( win && !topwicon && !all_icontop)
	      newfolder( win );	  	
	    break;
		
	  case CLSFITEM:
	    if ( win && !topwicon && !all_icontop)
	      close_path( win );	/* close one path	*/
	    break;
		
	  case CLSWITEM:		/* close the top window	*/
	    if (!all_icontop)
	    	close_top();
	    break;

	  case BOTTOP:			/* bring bot win to top	*/
	    if (!all_icontop)
		    bottop();
	    break;

	  case SELALL:
	    if (!all_icontop)
		    sel_all();
	    break;

	  case EXTMENU:
	    if ( win && !topwicon && !all_icontop)
	      foption( win );

	    break;

	  case FORMITEM:
	    str = "A";

	    if ( ( x_status ) && ( x_type == DESKICON ) )
	    {
	      ret = x_first( &str1, &type );
	      while ( ret )
	      {
		if ( type == DISK )
		{
	          if ( ( *str1 == 'A' ) || ( *str1 == 'B' ) )
		  {
		    str = str1;
		    break;
		  }
		}
	        ret = x_next( &str1, &type );	
	      }
	    }
/*	    wind_update(1);	*/
	    fc_start( str, CMD_FORMAT );
/*	    wind_update(0);	*/
	    clr_dicons( );
	    break;
	}
}	


/*	Handle Menu	*/

	VOID
hd_menu( msgbuff )
	REG WORD	msgbuff[];
{

	switch( msgbuff[3] )
	{
	  case DESKMENU:
	    fmdodraw( ADDINFO, 0 );
	    break;
	
	  case FILEMENU:
	    do_file( msgbuff[4] );
	    break;

	  case VIEWMENU:
	    wind_update(1);
	    do_view( msgbuff[4] );
	    wind_update(0);
	    break;

	  case OPTNMENU:
	    wind_update(1);
	    do_opt( msgbuff[4] );
	    wind_update(0);
	    break; 	
	}

	menu_tnormal( (LONG)menu_addr, msgbuff[3], 1 );
}


#ifdef OBSOLETE_CODE
/*	Handle the special sleep window	*/ 

	VOID
hd_wicon( msgbuff )
	WORD	msgbuff[];
{
	OBJECT	*obj;

	obj = get_tree( SMILEY );

	switch( msgbuff[0] )
	{
	  case WM_REDRAW:
	    draw_loop( msgbuff[3], obj, 0, 8, msgbuff[4], msgbuff[5],
		       msgbuff[6], msgbuff[7] ); 		
	    break;
	
	  case WM_TOPPED:
	    shel_write( 11, 1, 0, 0L, 0L );
	    wind_close( msgbuff[3] );
	    wind_delete( msgbuff[3] );	
	    icn_whandle = -1;	
	    d_exit = L_WAKEUP;
	    break;
	
	  case WM_CLOSE:
	    d_exit = L_EXIT;
	    break;

	  case WM_MOVED:		/* set the current x,y,w,h	*/
	    wind_set( msgbuff[3], WF_CURRXYWH, msgbuff[4], msgbuff[5], 
		      msgbuff[6], msgbuff[7] );
	    wind_get( icn_whandle, WF_WORKXYWH, &obj->ob_x, &obj->ob_y, &obj->ob_width,
		      &obj->ob_height );   	
	}
}
#endif /* OBSOLETE_CODE */



/*	Handle all the different message	*/

	VOID
hd_window( msgbuff )
	REG WORD	msgbuff[];
{
	REG WORD	handle;
	REG WINDOW	*win, *win2;	
	REG OBJECT	*obj;
	WORD		shrink,x,dodraw;
	GRECT		pt,px;
	GRECT		*pc;

#ifdef OBSOLETE_CODE
	if ( ( icn_whandle != -1 ) && ( msgbuff[3] == icn_whandle ) )
	{
	  hd_wicon( msgbuff );
	  return;
	}
#endif /* OBSOLETE_CODE */

	if ( msgbuff[0] != AP_DRAGNDROP && !( win = get_win( msgbuff[3] ) ) )
	    return;		/* illegal window handle */

	if (win)
	  obj = win->w_obj;
	else
	  obj = 0;
	handle = msgbuff[3];
	pc = ( GRECT *)&msgbuff[4];	/* pc == msgbuff[4,5,6,7]	*/

	wind_update(1);

	switch( msgbuff[0] )
	{
 	    case WM_REDRAW:
	    case WM_USER:
	      do_redraw( handle, pc, 0 );
	      break;

	    case WM_UNTOPPED:
	      break;
 
	    case WM_TOPPED:
	      if ( winhead != win )	/* if not already on top in my list */
	        clr_allwin();
	      wind_set( handle, WF_TOP, 0, 0, 0, 0 );
	      if (handle == winpd[MAXWIN].w_id)
			all_icontop = TRUE;
	      else {
			all_icontop = FALSE;
		      	make_top( win );
	      }
	      /* fall through */
	    case WM_ONTOP:
	      desk_mice( M_ON );
	      desk_mice( ARROW );
	      v_show_c( 0 );	/* really make sure the mouse is on */
	      break;

	    case WM_BOTTOMED:
	      clr_allwin();
	      wind_set( handle, WF_BOTTOM, 0, 0, 0, 0);
	      win2 = w_gfirst();
	      if (win2 == win)
	      {
		win = w_gnext();
		if (win)
			make_top(win);
		else if (win_alliconified)
			all_icontop = TRUE;
	      }
	      break;
	      
	    case WM_CLOSE:		/* close one path	*/
	      close_path( win );
              break;

	    case WM_ARROWED:
	      do_scroll( msgbuff );			
	      break;
	
            case WM_HSLID:
	      srl_hzbar( win, msgbuff[4] );
	      break;
	
	    case WM_VSLID:
	      srl_verbar( win, msgbuff[4] );
	      break;

	    case WM_MOVED:		/* set the current x,y,w,h	*/
	      if (!win->w_iconified) {
		      do_xyfix( (GRECT *)&msgbuff[4] );
		      wind_set( handle, WF_CURRXYWH, msgbuff[4], msgbuff[5], 
				msgbuff[6], msgbuff[7] );

					/* set the position offset	*/
		      obj[0].ob_x += msgbuff[4] - win->w_sizes.g_x;
		      obj[0].ob_y += msgbuff[5] - win->w_sizes.g_y;

		      rc_copy( (WORD *)pc, (WORD *)&win->w_sizes );
		      rc_copy( (WORD *)pc, (WORD *)&win->w_normsizes );

		      wind_get( handle, WF_WORKXYWH, &msgbuff[4], &msgbuff[5], 
				&msgbuff[6], &msgbuff[7] );

	      	     rc_copy( (WORD *)pc, (WORD *)&win->w_work );
	      } else { /* when window is iconified, we do other stuff */
		       /* since now win->w_icnobj is drawn instead of */
		       /* win->w_obj.				      */
		      wind_set( handle, WF_CURRXYWH, msgbuff[4], msgbuff[5], 
				msgbuff[6], msgbuff[7] );
		      rc_copy( (WORD *)pc, (WORD *)&win->w_sizes );
	     	      	
		      wind_get( handle, WF_WORKXYWH, &msgbuff[4], &msgbuff[5], 
				&msgbuff[6], &msgbuff[7] );

	      	      rc_copy( (WORD *)pc, (WORD *)&win->w_work );
		      win->w_icnobj[0].ob_x = msgbuff[4];
		      win->w_icnobj[0].ob_y = msgbuff[5];

	      }
	      break;

	    case WM_ICONIFIED:		/* make icon window */
	      iconify_window(handle, pc);
	      break;
		
	    case WM_UNICONIFIED: /* bring window back to its original state */
	      if (handle == winpd[MAXWIN].w_id)
		      alluniconify_windows(handle, pc);
	      else
		      uniconify_window(handle, pc);
	      break;

	    case WM_ICONIFYALL:		/* iconify all windows */
	      alliconify_windows(handle, pc);
	      break;

	    case WM_FULLED:
	      wind_get( handle, WF_CURRXYWH, &msgbuff[4], &msgbuff[5],
	                &msgbuff[6], &msgbuff[7] );

					/* already in full size		*/
	      if ( rc_equal( (WORD *)&msgbuff[4], (WORD *)&full ) )
	      {				/* so shrink it			*/
	        wind_get( handle, WF_PREVXYWH, &msgbuff[4], &msgbuff[5],
	                &msgbuff[6], &msgbuff[7] );
		form_dial( 2, pc->g_x, pc->g_y, pc->g_w, pc->g_h,
			      full.g_x, full.g_y, full.g_w, full.g_h );	 
	      }
	      else
	      {
	        rc_copy( (WORD *)&full,(WORD *)pc );	/* calculate the center point	*/
		rc_copy( (WORD *)&win->w_sizes,(WORD *) &pt );
	        rc_center( &pt, &pt );	
					/* form grow box		*/
		form_dial( 1, pt.g_x, pt.g_y, pt.g_w, pt.g_h, pc->g_x,
			 pc->g_y, pc->g_w, pc->g_h );	 
	      }
	
            case WM_SIZED:
	      do_xyfix( (GRECT *)&msgbuff[4] );
	      wind_set( handle, WF_CURRXYWH, msgbuff[4], msgbuff[5], 
			msgbuff[6], msgbuff[7] );

	      wind_get( handle, WF_PREVXYWH, &px.g_x, &px.g_y, &px.g_w,
		 &px.g_h );	      	
		
	      dodraw = FALSE;
				/* if same x and y the AES will not	*/
				/* send redraw message 			*/
				/* so we have to do it our own		*/		
	      if ( ( msgbuff[4] == px.g_x ) && ( msgbuff[5] == px.g_y ) )
		dodraw = TRUE;

	      rc_copy( (WORD *)pc, (WORD *)&win->w_sizes );
	      rc_copy( (WORD *)pc, (WORD *)&win->w_normsizes );

      	      wind_get( handle, WF_WORKXYWH, &obj->ob_x, &obj->ob_y,
			&obj->ob_width, &obj->ob_height );

	      shrink = FALSE;

	      if ( ( obj->ob_width < win->w_work.g_w ) &&
		   ( obj->ob_height <= win->w_work.g_h ) )
		shrink = TRUE;

	      if ( ( obj->ob_height < win->w_work.g_h ) &&
		   ( obj->ob_width <= win->w_work.g_w ) )
		shrink = TRUE;
 
	      rc_copy( (WORD *)&obj->ob_x, (WORD *)&win->w_work );	

	      ch_path( win );

	      if ( shrink )
	        x = win->w_xcol;
	 
	      if ( s_stofit )		/* size to fit		*/
	        view_fixmode( win );

	      view_adjust( win );	/* adjust parameter	*/

	      if ( s_stofit && shrink )
	      {
		if ( ( x != win->w_xcol ) && ( dodraw ) )
	          do_redraw( win->w_id, &full, 0 );
	      }
					
	      break;
			  	
	    case AP_DRAGNDROP:
	      wind_update(0);
	      rec_ddmsg( msgbuff );
	      break;

	    default:
	      break;
	}

	wind_update(0);
}


	VOID
hd_msg( msgbuff )
	WORD	msgbuff[];
{
	BYTE	buffer[2];
	WORD	i;

	switch( msgbuff[0] )
	{
	  case MN_SELECTED:
	    hd_menu( msgbuff );
	    break;

	  case SHUT_COMPLETED:
	    if ( msgbuff[3] )
	      d_exit = L_EXIT;
	    else
	      do1_alert( NOSHUT ); /* ++ERS 12/15/92 */
	    break;

	  case AP_TERM:
	    d_exit = L_EXIT;
	    break;

	  case RESCH_COMPLETED:
	    if ( msgbuff[3] )
	      d_exit = L_CHGRES;
	    else
	      do1_alert( NORESCHG ); /* ++ERS 12/15/92 */
	    break;
#if 0
	  case DK_INFLOAD:	/* read inf file */
	    msgbuff[3] = OPTNMENU;
	    msgbuff[4] = READINF;
	    hd_menu( msgbuff );
	    break; 	
#endif
	  case SH_WDRAW:
	    buffer[1] = 0;
	    if ( msgbuff[3] >= 0 && msgbuff[3] < 32 )
	    {
	        buffer[0] = msgbuff[3] + 'A';
		up_2allwin( buffer );
	    }
	    else
	    {
	        for ( i = 0; i < 32; i++ )
	        {
	          buffer[0] = i + 'A';
	          up_2allwin( buffer );
		}
	    }
	    break;
	  default:
	    hd_window( msgbuff );
	}
}



	
/*	Handle all the events		*/

	VOID
actions( VOID )
{
	WORD	event,kstate,kreturn,button,clicks;
	WORD	mx,my;
	WORD	msgbuff[8];	

	d_exit = L_NOEXIT;

	while( d_exit == L_NOEXIT )
	{
	  menu_verify();		
	  q_write();		/* update inf file	*/
	
	  event = evnt_multi( MU_MESAG|MU_BUTTON|MU_KEYBD,2,1,1,
			      0,0,0,0,0,
			      0,0,0,0,0,
			      (LONG)msgbuff,	/* mesaage buffer	*/
			      0,0,	/* timer counter	*/
			      &mx,&my,
			      &button,
			      &kstate,
			      &kreturn,
			      &clicks );

	/* Don't change the following order, the wind_update call is selective */

	  if ( event & MU_MESAG )
	  {
	    wind_update(1);
	    hd_msg( msgbuff );
	    wind_update(0);
	  }

	  if ( event & MU_BUTTON )
	  {
#ifdef OBSOLETE_CODE
	    if ( ( icn_whandle != -1 ) && ( clicks > 1 ) )
	    {	
	      msgbuff[0] = WM_TOPPED;
	      msgbuff[3] = icn_whandle;	 	
	      hd_wicon( msgbuff );	
	    }
	    else {
	      Debug1("NEWDESK: actions: button event\r\n");
	      hd_button( clicks, kstate, mx, my );
	    }
#else
	      hd_button( clicks, kstate, mx, my );
#endif
	  }

	  if ( event & MU_KEYBD )
	  {
	    wind_update(1);
	    hd_keybd( kreturn, kstate );
	    wind_update(0);
	  }

	}/* while */
}


/*	Find out available memory	*/

	LONG
av_mem( VOID )
{
  if (!d_multi) {
	BYTE		*start;
	REG BYTE	*addr;
	REG BYTE	**new;
	LONG		total,size;
	
	total = 0L;
	start = (BYTE*)0;
	new = &start;

	while( TRUE )
	{
	  size = Mxalloc( 0xFFFFFFFFL, 3 );
	  if ( size >= 4L )
	  {
	    addr = (BYTE *)Mxalloc( size, 3 );
	    total += size;
	    *new = addr;

	    new = (BYTE **)addr;
	  }
	  else
	  {
	    if ( start )
	      *new = (BYTE*)0;
	    break;
	  }
	}

	if ( start )
	{
	  new = (BYTE **)start;

	  while( new )
	  {
	    addr = *new;
	    Mfree( new );
	    new = (BYTE **)addr;	
	  }
	}

	return( total );
  } else {
  	/* do this the polite way under MultiTOS, i.e. ask U:\PROC how much
	 * memory is free
	 */
	LONG meminfo[4];
	BYTE oldpath[128];
	WORD olddrv;

	olddrv = Dgetdrv();	/* save current drive */
	Dsetdrv('U'-'A');	/* change to drive U: */
	Dgetpath(oldpath, 0);	/* save current path for U: */
	if (oldpath[0] == 0) {
	  oldpath[0] = '\\'; oldpath[1] = 0;
	}
	Dsetpath("\\PROC");	/* change to U:\PROC */
	Dfree(meminfo, 0);	/* get mem statistics */
	Dsetpath(oldpath);	/* restore old path for U: */
	Dsetdrv(olddrv);	/* restore old drive */
	return meminfo[0] * meminfo[2];
  }
}

#if 0
/*	Find out available memory	*/
	VOID
av_desk( VOID )
{
	REG OBJECT	*obj;
	REG LONG	f;
	REG WORD	fi,i,menui,which;
	REG APP		*app;
	WORD		len;
	APP		*xapp;
	BYTE		*str;
	BYTE		temp[MAXMENU];
	OBJECT		*obj1;
	BYTE		buf[2];


	obj = get_tree( SSYSTEM );
	obj1 = menu_addr;

	for ( i = 0; i < MAXMENU; i++ )	/* save a copy	*/
	  temp[i] = mentable[i];	

	(TEDINFO*)(obj[MKSTR].ob_spec)->te_ptext = obj1[tb3[0]].ob_spec;
	buf[1] = 0;
	buf[0] = mentable[0];
	inf_sset( obj, MKKEY, buf );
	menui = 0;

	obj[AP1].ob_state = NORMAL;
	obj[WI1].ob_state = NORMAL;
	obj[DEFFULL].ob_state = NORMAL;
	obj[DEFFILE].ob_state = NORMAL;

	if ( s_defdir )				/* set the full path	*/ 
	  obj[AP1].ob_state = SELECTED;		/* application		*/
	else
	  obj[WI1].ob_state = SELECTED;		/* application		*/

	if ( s_fullpath )
	  obj[DEFFULL].ob_state = SELECTED;
	else
	  obj[DEFFILE].ob_state = SELECTED;

	f_str( obj, SDMEMORY, av_mem() );
	*(BYTE*)((TEDINFO*)(obj[SDKEY].ob_spec)->te_ptext) = 0;

				/* save the original pointer	*/
	str = (TEDINFO*)(obj[SDFILE].ob_spec)->te_ptext;
	len = strlen( str );	
	*str = 0;

	app = (APP*)0;
	which = SDDOWN;

 	f = 0L;
	dr_dial_w( SSYSTEM, FALSE );		/* save the string	*/
	goto ad_2;

	while( TRUE )
	{
ad_5:	  which = xform_do( obj, MKKEY );

	  if ( ( which == MKUP ) || ( which == MKDOWN ) || ( which == SDOK ) )
	  {
	      inf_sget( obj, MKKEY, buf );
	      buf[0] = toupper( buf[0] );
	      if ( buf[0] )
	      {
	        for ( i = 0; i < MAXMENU; i++ )
	        {
	           if ( i == menui )
		     continue;

	          if ( mentable[i] == buf[0] )
	      	  {
		    if ( do1_alert( KEYUSED ) == 1 ) /* Overwrite */
		    {
		      mentable[i] = 0;	
		      continue;
		    }

		    if ( which == SDOK )
	  	      draw_fld( obj, SDOK );

		    goto p_2;
	          }
	        }		  	
	      }
	
	      mentable[menui] = buf[0];
	  }	
	
ad_2:	  switch( which )
	  {
	    case CLRKEYS:
	      for ( i = 0; i < MAXMENU; i++ )
		mentable[i] = 0;

	      put_keys();
	      goto p_11;

	    case MKUP:		/* check for keys	*/
	      if ( menui )
	      {
	 	menui--;
		goto p_11;
	      }

	      break;

	    case MKDOWN:
	      if ( ( menui + 1 ) < MAXMENU )
	      {
		menui++;
p_11:
	        ch_key( menui );
	        (TEDINFO*)(obj[MKSTR].ob_spec)->te_ptext = obj1[tb3[menui]].ob_spec;
	        draw_fld( obj, MKSTR );
p_2:	
	        buf[1] = 0;
	        buf[0] = mentable[menui];
	        inf_sset( obj, MKKEY, buf );
	        draw_fld( obj, MKKEY );		
	      }
	
	      break;

	    case SDCANCEL:		/* restore the menu key table */
	      for ( i = 0; i < MAXMENU; i++ )
	        mentable[i] = temp[i];			

	       goto ad_1;

	    case SDOK:
	      s_defdir = ( obj[AP1].ob_state & SELECTED ) ? TRUE : FALSE;
	      s_fullpath = ( obj[DEFFULL].ob_state & SELECTED ) ? TRUE : FALSE;

	      goto ad_1;	 

	    case SDUP:
	      f--;
	      if ( f )
	        goto ad_3;  	
	      else
		f++;
	
	      break;
	    
	    case SDDOWN:
	      f++;
	      if ( f <= 20 )
	      {
ad_3:	        if ( !( xapp = app_key( ftab[f] ) ) )
		  goto ad_2;
	        else
	        {
		  app = xapp;
		  fi = 0;
		  (TEDINFO*)(obj[SDFILE].ob_spec)->te_ptext = app->a_name;
		  draw_fld( obj, SDFILE );
		  f_str( obj, SDKEY, f );
		  draw_fld( obj, SDKEY );
	        }		
	      }
	      else
		f--;

	      break;

	    case SDLEFT:		
	    case SDRIGHT:
	      if ( !app )
		continue;
		
	      if ( which == SDLEFT )
	      {
	        if ( fi > 0 )
		  fi--;
	        else
		  continue;
	      }
	      else
	      {
	        fi++;
	        if ( strlen( &app->a_name[fi] ) < len )
	        {
		  fi--;
		  continue;
	        }
	      }
ad_4:
	      (TEDINFO*)(obj[SDFILE].ob_spec)->te_ptext = &app->a_name[fi];
	      draw_fld( obj, SDFILE );
	      goto ad_5;

	  }/* switch */

	  cl_delay();
	}

ad_1:				/* restore the pointer	*/
	put_keys();
	(TEDINFO*)(obj[SDFILE].ob_spec)->te_ptext = str;
	*str = 1;		
	do_finish( SSYSTEM );
}
#endif