/* FILE:  WINDOWS.C
 *==========================================================================
 * DATE:  February 8, 1990
 * DESCRIPTION:
 *
 * INCLUDE FILES:   WINDOWS.H
 */


/* INCLUDE FILES
 *==========================================================================
 */
#include <sys\gemskel.h>
#include <string.h>
#include <tos.h>

#include "country.h"
#include "xcontrol.h"

#include "cpxdata.h"				/* Keep these in order    */
#include "xstructs.h"
#include "cpxhandl.h"				/* Cpxhandl Prototypes    */
#include "slots.h"

#include "xconfig.h"
#include "xcontrl2.h"
#include "xform_do.h"

#include "timedate.h"

#include "text.h"



/* PROTOTYPES
 *==========================================================================
 */
BOOLEAN open_window( void );
void    do_redraw( OBJECT *tree, int object, GRECT *rect );
void	GrowShrinkBox( BOOLEAN flag );



/* DEFINES
 *==========================================================================
 */
#define NO_WINDOW 	( -1 )
#define WIND_HEIGHT	( 160 + 16 ) 
#define WIND_WIDTH	256
#define WKIND		( NAME | CLOSER | MOVER )

#define GROWBOX		0
#define SHRINKBOX	1



/* GLOBALS
 *==========================================================================
 */
	
WINFO	w;				/* w.r == outer area of window
					 * w.work == work area of window
				         * w.phy  == work area of config
					 * w.work is also the work area of
					 * the cpxs
					 */
					



/* FUNCTIONS
 *==========================================================================
 */


/* init_window()
 *==========================================================================
 * Initialize the window dimensions, parts and structures
 *
 * IN:  void
 * OUT: void
 *
 * GLOBAL:	WINFO w:	window structure
 */
void
init_window( void )
{
   w.kind     = WKIND;
   w.id       = NO_WINDOW;     
   strcpy( w.name, Wind_Text );
   w.wchar    = gl_wbox;
   w.hchar    = gl_hbox;
   w.work.g_x = desk.g_x;
   w.work.g_y = desk.g_y;
   w.work.g_w = WIND_WIDTH;
   w.work.g_h = WIND_HEIGHT;
   w.fulled   = FALSE;
}





/* Wm_Redraw()
 *==========================================================================
 * Handle main event_multi window redraw messages.
 * 
 * IN:  int *msg:	Event messages
 * OUT: void
 *
 * GLOBAL:     WINFO  w:       window structure
 *	       int xconfig:    The index of which config routine is active
 *			       -1 when none active
 */
void
Wm_Redraw( int *msg )
{
   OBJECT *tree = ( OBJECT *)rs_trindex[ XCONTROL ];
   GRECT  *rect;
   int    mainbase;

   if( msg[3] == w.id )
   {
      rect = (GRECT *)&msg[4];
      if( !IsCPXActive() )
      {
	 mainbase = ( ( !IsXconfigActive() ) ? ( ROOT ) : ( TIMEBASE ) );
	 time_handle();
         do_redraw( tree, mainbase, rect );
         w.phy = ObRect( XBASE );
         objc_offset( tree, XBASE, &w.phy.g_x, &w.phy.g_y );
         redraw_xconfig( rect, &w.phy );
      }
      Redraw_XForm_Do( rect );
      cpx_draw( rect );
   }      
}






/* Wm_Topped()
 *==========================================================================
 * Handle main event_multi window topped messages
 */
void
Wm_Topped( int *msg )
{
   if( msg[3] == w.id )
   {
         wind_set( w.id, WF_TOP );
         if( !IsCPXActive() )
             time_handle();
   }         
}





/* Wm_Closed()
 *==========================================================================
 * Handle main event_multi window close messages
 *
 * IN:   int *msg:		Event messages
 * OUT:  void
 *
 * GLOBAL:	WINFO w:	window structure messages
 *		_app:		TRUE- we ran as a PRG file
 */
void
Wm_Closed( int *msg )
{
   if( msg[3] == w.id )
   {

      close_xconfig( FALSE );
      clear_active_slot( FALSE );
      Close_Call_CPX( FALSE );
      Shut_CPX_Down( FALSE );

      wind_close( w.id );
      wind_delete( w.id );
      GrowShrinkBox( SHRINKBOX );
      w.id = NO_WINDOW;
      evnt_set( Event2_Mask, -1, -1, -1, NULL, NULL, -1L );

      if( _app )
  	  gem_exit( 0 );
   }
}






/* Wm_Moved()
 *==========================================================================
 * Handle main event_multi window moved messages.
 *
 * IN:   int *msg:	Event messages
 * OUT:  void
 *
 * GLOBAL:    WINFO w:  window structure
 */
void
Wm_Moved( int *msg )
{
   OBJECT *tree = ( OBJECT *)rs_trindex[ XCONTROL ];
   GRECT  *rect;

   if( msg[3] == w.id )
   {
     rect = (GRECT *)&msg[4];
     w.r  = *rect;
     Wind_set( w.id, WF_CURRXYWH, ( WARGS *)&w.r );
     Wind_get( w.id, WF_WORKXYWH, ( WARGS *)&w.work );
     ObX( XCONTROL ) = w.work.g_x;
     ObY( XCONTROL ) = w.work.g_y;
     objc_offset( tree, XBASE, &w.phy.g_x, &w.phy.g_y );

     move_xconfig( &w.phy );
     Move_XForm_Do( &w.work );
     cpx_move( &w.work );  
     
   }
}





/* open_window()
 *==========================================================================
 * Open the Xcontrol window
 *
 * IN:  VOID
 * OUT: BOOLEAN:	TRUE if window opening was success
 *
 * GLOBAL:  WINFO w:	window structure
 */
BOOLEAN
open_window( void )
{
    OBJECT *tree = ( OBJECT *)rs_trindex[ XCONTROL ];
    
    clear_xconfig();
    if( (w.id = Wind_create( w.kind, &desk )) < 0 )
    {
    	w.id = NO_WINDOW;
    	return( FALSE );
    }
    
    wind_set( w.id, WF_NAME, w.name );
    Wind_calc( 0, w.kind, &w.work, &w.r );
    w.r.g_x = max( desk.g_x, (desk.g_w - w.r.g_w )/2 );
    w.r.g_y = max( desk.g_y, (desk.g_h - w.r.g_h )/2 );
    Wind_calc( 1, w.kind, &w.r, &w.work );
    
    ObX( XCONTROL ) = w.work.g_x;
    ObY( XCONTROL ) = w.work.g_y;
    
    objc_offset( tree, XBASE, &w.phy.g_x, &w.phy.g_y );
    GrowShrinkBox( GROWBOX );    
    Wind_open( w.id, &w.r );  
    return( TRUE );
    
}




/* do_redraw()
 *==========================================================================
 * Standard object tree redraw routine for handling object trees
 *
 * IN:  OBJECT *tree:    	object tree
 *      int    object:		object to redraw
 *	GRECT  *prect:		GRECT of dirtied area
 *
 * OUT: void
 *
 * GLOBAL:  WINFO  w:		window structure
 */
void
do_redraw( OBJECT *tree, int object, GRECT *prect )
{
   GRECT rect;
   
   Wind_get( w.id, WF_FIRSTXYWH, ( WARGS *)&rect );
   while( !rc_empty( &rect ) )
   {
       if( rc_intersect( prect, &rect ))
       {
       	  Vsync();
 	  Objc_draw( tree, object, MAX_DEPTH, &rect );
       }
       Wind_get( w.id, WF_NEXTXYWH, ( WARGS *)&rect );
   }
}






/* GrowShrinkBox()
 *==========================================================================
 * Perform a Grow or Shrink Box animation
 *
 * IN:   BOOLEAN flag:		Flag for grow or shrink
 * OUT:  void
 *
 * GLOBAL:   WINFO w:		Window structure
 */
void
GrowShrinkBox( BOOLEAN flag )
{
    GRECT rect;

    rect      = w.r;
    rect.g_x += rect.g_w / 2;
    rect.g_y += rect.g_h / 2;

    if( !flag )
    {
       rect.g_w = gl_wbox * 2;
       rect.g_h = gl_hbox * 2;
       Graf_growbox( &rect, &w.r );
    }
    else
    {
       rect.g_w = gl_wbox;
       rect.g_h = gl_hbox;
       Graf_shrinkbox( &rect, &w.r );
    }
}



/* Send_Redraw()
 *==========================================================================
 * Force the sending of a redraw message.
 * IN: GRECT *rect:	The GRECT of the dirty area
 * OUT: void
 */
void
Send_Redraw( GRECT *rect )
{
     int msg_buff[8];
     
     msg_buff[0] = WM_REDRAW;
     msg_buff[1] = gl_apid;
     msg_buff[2] = 0;
     msg_buff[3] = (int)w.id;
     msg_buff[4] = rect->g_x;
     msg_buff[5] = rect->g_y;
     msg_buff[6] = rect->g_w;
     msg_buff[7] = rect->g_h;
     appl_write( gl_apid, 16, msg_buff );
}