/*
 * XMapEdit, the XPilot Map Editor.  Copyright (C) 1993 by
 *
 *      Aaron Averill           <averila@oes.orst.edu>
 *
 * 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., 675 Mass Ave, Cambridge, MA 02139, USA.
 *
 * Modifications to XMapEdit
 * 1996:
 *      Robert Templeman        <mbcaprt@mphhpd.ph.man.ac.uk>
 * 1997:
 *      William Docter          <wad2@lehigh.edu>
 *
 * $Id: T_Popup.c,v 5.0 2001/04/07 20:01:00 dik Exp $
 */

#include                 "T_Toolkit.h"

T_Popup_t                *T_Popup=NULL;

/***************************************************************************/
/* T_PopupCreate                                                           */
/* Arguments :                                                             */
/*   x                                                                     */
/*   y                                                                     */
/*   width                                                                 */
/*   height                                                                */
/*   title                                                                 */
/* Purpose :                                                               */
/***************************************************************************/
Window T_PopupCreate(int x, int y, int width, int height, char *title)
{
   T_Popup_t      **popup;

   popup = &T_Popup;
   while ( (*popup) != NULL ) {
      popup = (T_Popup_t **) &((*popup)->next);
   }
   
   /* add a popup window to stack */
   (*popup) = (T_Popup_t *) malloc(sizeof(T_Popup_t));
   (*popup)->next = NULL;
   if (x < 0 ) x = (root_width-width)/2;
   if (y < 0 ) y = (root_height-height)/2;
#ifdef MONO
   (*popup)->window = T_MakeWindow(x,y,width,height,T_Foreground,T_Background);
#else
   (*popup)->window = T_MakeWindow(x,y,width,height,T_Background,T_Foreground);
#endif
   XSelectInput(display,(*popup)->window, ExposureMask | ButtonPressMask |
        KeyPressMask | ButtonReleaseMask | PointerMotionMask |
        StructureNotifyMask );
   T_SetWindowName((*popup)->window,title,title);
   return (*popup)->window;
}

/***************************************************************************/
/* T_PopupAlert                                                            */
/* Arguments :                                                             */
/*   type : 1 = OK button, 2 = OK, Cancel buttons                          */
/*   message                                                               */
/*   btn1                                                                  */
/*   btn2                                                                  */
/*   function                                                              */
/* Purpose :                                                               */
/***************************************************************************/
Window T_PopupAlert(int type, char *message, char *btn1, char *btn2,
     int (*handler1)(), int (*handler2)())
{
   int                   x,y,width,height;
   Window                win;

   width = XTextWidth(T_Font,message,strlen(message))+40;
   height = POPUPBTNHEIGHT*3+30;
   win = T_PopupCreate(-1,-1,width,height,"Alert");

   x = (width - POPUPBTNWIDTH)/2;
   if (type == 1) {
      T_FormButton(win,"popup_btn",x,POPUPBTNHEIGHT*2+20,
           POPUPBTNWIDTH, POPUPBTNHEIGHT,"Ok",PopupCloseHandler);
   } else if (type == 2) {
      if ( btn1 == NULL ) {
         btn1 = malloc(3);
         strcpy(btn1,"Ok");
      }
      if ( btn2 == NULL ) {
         btn2 = malloc(7);
         strcpy(btn2,"Cancel");
      }
      if ( handler2 == NULL ) {
         handler2 = PopupCloseHandler;
      }
      x = width/2 - POPUPBTNWIDTH-5;
      y = height - POPUPBTNHEIGHT-5;
      T_FormButton(win,"popup_btn1",x,y,POPUPBTNWIDTH,
           POPUPBTNHEIGHT,btn1,handler1);
      T_FormButton(win,"popup_btn2",x+10+POPUPBTNWIDTH,
           y,POPUPBTNWIDTH, POPUPBTNHEIGHT,btn2,handler2);
   }
   T_FormText(win,"popup_alert",10,10,width-20,POPUPBTNHEIGHT,message,
        JUSTIFY_CENTER);

   XMapWindow(display, win);
   return win;
}

/***************************************************************************/
/* Window T_PopupPrompt                                                    */
/* Arguments :                                                             */
/*   x                                                                     */
/*   y                                                                     */
/*   width                                                                 */
/*   height                                                                */
/*   title                                                                 */
/*   message                                                               */
/*   btn1                                                                  */
/*   btn2                                                                  */
/*   variable                                                              */
/*   length                                                                */
/*   function                                                              */
/* Purpose :                                                               */
/***************************************************************************/
Window T_PopupPrompt(int x, int y, int width, int height, char *title,
     char *message, char *btn1, char *btn2, char *charvar, int length,
     int (*handler)())
{
   int                   x2,y2,x3,y3;
   Window                win;
   XEvent                report;
 
   win = T_PopupCreate(x,y,width,height,title);
 
   if ( btn1 == NULL ) {
      btn1 = (char *) malloc(3);
      strcpy(btn1,"Ok");
   }
   if ( btn2 == NULL ) {
      btn2 = (char *) malloc(7);
      strcpy(btn2,"Cancel");
   }
   x2 = width/2 - POPUPBTNWIDTH-5;
   y2 = height - POPUPBTNHEIGHT-5;
   T_FormButton(win,"popup_btn1",x2,y2,POPUPBTNWIDTH, POPUPBTNHEIGHT,
        btn1,handler);
   T_FormButton(win,"popup_btn2",x2+10+POPUPBTNWIDTH, y2,POPUPBTNWIDTH,
        POPUPBTNHEIGHT,btn2,PopupCloseHandler);
   x2 = 5;
   y2 = height - POPUPBTNHEIGHT*2-10;
   y3 = -(y2+POPUPBTNHEIGHT)/2;
   x3 = width/2 - XTextWidth(T_Font,message,strlen(message))/2;
   if ( x2<0 ) x2 = 0;
   T_FormStringEntry(win,"popup_prompt",x2,y2,width-10, POPUPBTNHEIGHT,x3,
        y3, message,charvar,length,handler);
  
   XMapWindow(display, win);
   report.type = ButtonPress;
   report.xbutton.window = win;
   report.xbutton.button = Button1;
   report.xbutton.x = x2+1;
   report.xbutton.y = y2+1;
   T_FormButtonPress(&report);
  
   return win;
}

/***************************************************************************/
/* T_IsPopupOpen                                                           */
/* Arguments :                                                             */
/*   win                                                                   */
/* Purpose :                                                               */
/***************************************************************************/
int T_IsPopupOpen(Window win)
{
   T_Popup_t      *popup;
   
   popup = T_Popup;
   while ( popup != NULL ) {
      if (popup->window == win )
      return 1;
      else
      popup = (T_Popup_t *) popup->next;
   }
   return 0;
}

/***************************************************************************/
/* T_PopupClose                                                            */
/* Arguments :                                                             */
/*   win                                                                   */
/* Purpose :                                                               */
/***************************************************************************/
void T_PopupClose(Window win)
{
   T_Popup_t      **popup;
   T_Popup_t       *last;
   
   popup = &T_Popup;
   while ( ((*popup) != NULL) && ((*popup)->window != win) ) {
      popup = (T_Popup_t **) &((*popup)->next);
   }
 
   if ( (*popup) == NULL) return;

   /* erase this popup */
   T_FormCloseWindow(win);
   last = (*popup);
   (*popup) = (T_Popup_t *) (*popup)->next;
   free(last);

}