/*

  $Id$

  Copyright 1989-2016 MINES ParisTech

  This file is part of PIPS.

  PIPS 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 3 of the License, or
  any later version.

  PIPS 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 PIPS.  If not, see <http://www.gnu.org/licenses/>.

*/
#ifdef HAVE_CONFIG_H
    #include "pips_config.h"
#endif
#include <stdio.h>

#include <sys/time.h>
#include <sys/resource.h>
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/defaults.h>

#include "genC.h"
#include "misc.h"
#include "wpips.h"
#include "xv_sizes.h"

#define BOUND(x,lb,ub) \
    ((x)<(lb)) ? (lb) :\
    ((x)>(ub)) ? (ub) : (x)
/*#define MAX(a, b) ((a)>(b) ? (a) : (b))*/

static int display_width, display_height;


void
event_procedure(Xv_Window window, Event *event, Notify_arg arg)
{
   debug_on("WPIPS_EVENT_DEBUG_LEVEL");
   debug(2, "event_procedure",
         "Event_id %d, event_action %d\n",
         event_id(event), event_action(event));
   switch (event_id(event)) {
     case LOC_WINENTER :
       win_set_kbd_focus(window, xv_get(window, XV_XID));
       debug(2, "event_procedure", "LOC_WINENTER\n");
       break;
   }
   debug_off();
}


void
install_event_procedure(Xv_Window window)
{
  xv_set(window,
	 WIN_EVENT_PROC, event_procedure,
	 WIN_CONSUME_EVENTS, LOC_WINENTER, NULL,
	 NULL);
}


void place_frame(frame, l, t)
Frame frame;
int l, t;
{
    Rect rect;

    frame_get_rect(frame, &rect);

		/* We need to estimate the size of the decor added by the widow
			manager, Y_WM_DECOR_SIZE & X_WM_DECOR_SIZE. RK, 9/10/1993. */
    rect.r_top = BOUND(t, 0, MAX(0,display_height-rect.r_height-Y_WM_DECOR_SIZE));
    rect.r_left = BOUND(l, 0, MAX(0,display_width-rect.r_width-X_WM_DECOR_SIZE));

    frame_set_rect(frame, &rect);
}

void create_frames()
{
  int i;
  Display *dpy;
  Xv_Screen screen;
  int screen_no,display_width,display_height;

  main_frame = xv_create(NULL, FRAME, 
			 FRAME_LABEL, "Wpips", 
			 /*			   XV_WIDTH, WPIPS_WIDTH, 
						   XV_HEIGHT, WPIPS_HEIGHT,
						   */		   NULL);
  install_event_procedure(main_frame);


  /* get the display dimensions */
  dpy = (Display *)xv_get(main_frame, XV_DISPLAY);
  screen = (Xv_Screen)xv_get(main_frame, XV_SCREEN);
  screen_no = (int)xv_get(screen, SCREEN_NUMBER);

  display_width = DisplayWidth(dpy, screen_no);
  display_height = DisplayHeight(dpy, screen_no);

  log_frame = xv_create(main_frame, FRAME, 
			XV_SHOW, FALSE,
			FRAME_DONE_PROC, close_log_subwindow,
			XV_WIDTH, defaults_get_integer(WPIPS_LOG_WINDOW_WIDTH_RESSOURCE_NAME, WPIPS_LOG_WINDOW_WIDTH_RESSOURCE_CLASS, WPIPS_LOG_WINDOW_WIDTH_DEFAULT), 
			XV_HEIGHT, defaults_get_integer(WPIPS_LOG_WINDOW_HEIGHT_RESSOURCE_NAME, WPIPS_LOG_WINDOW_HEIGHT_RESSOURCE_CLASS, WPIPS_LOG_WINDOW_HEIGHT_DEFAULT), 
			NULL);
  install_event_procedure(log_frame);

  xv_set(log_frame, FRAME_LABEL, "Pips Log Window", NULL);


  /* Footers added to edit window.
     RK, 21/05/1993. */
  for (i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++)
    edit_frame[i] = xv_create(main_frame, FRAME, 
			      XV_SHOW, FALSE,
			      FRAME_DONE_PROC, hide_window,
			      XV_WIDTH, EDIT_WIDTH, 
			      XV_HEIGHT, EDIT_HEIGHT, 
			      FRAME_SHOW_FOOTER, TRUE,
			      FRAME_LEFT_FOOTER, "<",
			      FRAME_RIGHT_FOOTER, ">",
			      NULL);


  help_frame = xv_create(main_frame, FRAME, 
			 FRAME_LABEL, "Pips On Line Help Facility",
			 XV_SHOW, FALSE,
			 FRAME_DONE_PROC, hide_window,
			 XV_WIDTH, HELP_WIDTH, 
			 XV_HEIGHT, HELP_HEIGHT, 
			 NULL);
  install_event_procedure(help_frame);

  mchoose_frame = xv_create(main_frame, FRAME,
			    XV_SHOW, FALSE,
			    FRAME_DONE_PROC, hide_window,
			    NULL);
  install_event_procedure(mchoose_frame);

  schoose_frame = xv_create(main_frame, FRAME,
			    XV_SHOW, FALSE,
			    FRAME_DONE_PROC, hide_window,
			    NULL);
  install_event_procedure(schoose_frame);

  query_frame = xv_create(main_frame, FRAME,
			  XV_SHOW, FALSE,
			  FRAME_DONE_PROC, hide_window,
			  XV_WIDTH, QUERY_WIDTH, 
			  XV_HEIGHT, QUERY_HEIGHT, 
			  NULL);
  install_event_procedure(query_frame);

  options_frame = xv_create(main_frame, FRAME,
                            FRAME_LABEL, "Wpips options",
                            XV_SHOW, FALSE,
                            XV_WIDTH, display_width - EDIT_WIDTH -2*X_WM_DECOR_SIZE, 
                            FRAME_DONE_PROC, hide_window,
                            NULL);
  install_event_procedure(options_frame);
}

void place_frames()
{
    Rect rect;
    int main_l, main_t, main_w, main_h;
    int main_center_l, main_center_t;
    int i;
   
    Frame full_frame;
    Xv_Screen screen;
    Display *dpy;
    int screen_no;

    /* get the display dimensions */
    full_frame = (Frame) xv_create(XV_NULL, FRAME, NULL);
    dpy = (Display *)xv_get(full_frame, XV_DISPLAY);
    screen = (Xv_Screen)xv_get(full_frame, XV_SCREEN);
    screen_no = (int)xv_get(screen, SCREEN_NUMBER);
	xv_destroy(full_frame);

    display_width = DisplayWidth(dpy, screen_no);
    display_height = DisplayHeight(dpy, screen_no);

    /* warning: some window managers do NOT place the top frame (main_frame) 
       themselves. In this case add this fonction call and modify the call 
       to place_frames().
     
       place_frame(main_frame, 
		(display_width-WPIPS_WIDTH)/2, 
		(display_height-WPIPS_HEIGHT)/2);
     */
    /* in the bottom left : */
    place_frame(log_frame, 0, display_height);

    frame_get_rect(log_frame, &rect);

    main_t = rect.r_top;
    main_w = rect.r_width;
    main_h = rect.r_height;
    main_l = rect.r_left;

    place_frame(main_frame, 
		0, 
		main_t - xv_get(main_frame, XV_HEIGHT) - Y_WM_DECOR_SIZE);

    frame_get_rect(main_frame, &rect);

    main_t = rect.r_top;
    main_w = rect.r_width;
    main_h = rect.r_height;
    main_l = rect.r_left;

    main_center_t = main_t+main_h/2;
    main_center_l = main_l+main_w/2;


		/* Above the main frame : */
    place_frame(options_frame, 
		0, 
		main_t - xv_get(options_frame, XV_HEIGHT) - Y_WM_DECOR_SIZE);

    /* in the upper right corner, in the bottom right corner, etc : */
    for(i = 0; i < MAX_NUMBER_OF_WPIPS_WINDOWS; i++)
      /* According to the 2 least bits of the window number... */
      place_frame(edit_frame[i], display_width*(1 - ((i >> 1) & 1)),
		  display_height*(i & 1));

    /* in the upper */
    place_frame(help_frame, 
		main_l + (main_w - HELP_WIDTH)/2,
		main_t - HELP_HEIGHT);

    /* in the upper left corner : */
    place_frame(mchoose_frame, 0, 0);

    /* in the upper left corner : */
    place_frame(schoose_frame, 0, 0);

    /* in the upper left corner */
    place_frame(query_frame, 
		main_l - QUERY_WIDTH + MIN(main_w, QUERY_WIDTH)/3, 
		main_t - QUERY_HEIGHT - Y_WM_DECOR_SIZE);
}