/***************************************************************************
 *                                                                         *
 * Alberi:  Graphical Language Interface for POSTGRES                      *
 *                                                                         *
 * Copyright (c) 1992, 1993 The University of Georgia Research             *
 *                          Foundation, Inc.                               *
 *                                                                         *
 ***************************************************************************
 *                                                                         *
 * Designer and Programmer:  Ruben Robles                                  *
 * Email:  ruben@pollux.cs.uga.edu or rubenr3@aol.com or                   *
 *         rubenr3@psi.com@aol.com                                         *
 *                                                                         *
 * Modified by:		K.J. Kochut                                        *
 *			Department of Computer Science                     *
 *			University of Georgia                              *
 *			Athens, GA 30602                                   *
 *                                                                         *
 * Send comments/fixes/improvements/modifications to:                      *
 *                                                                         *
 *                     kochut@cs.uga.edu                                   *
 *                                                                         *
 ***************************************************************************/

#include <unistd.h>

#include <xview/xview.h>
#include <xview/textsw.h>
#include <xview/panel.h>

/* slingshot headers */

#include <sspkg/canshell.h>
#include <sspkg/rectobj.h>
#include <sspkg/drawobj.h>
#include <sspkg/tree.h>
#include <sspkg/array.h>
#include <sspkg/list.h>

#include <tmp/c.h>
#include <tmp/libpq-fe.h>

#include "all_ui.h"
#include "constants.h"
#include "insert_ui.h"
#include "externs.h"


extern insert_popup1_objects	*insert_dialog;


/*
 * Notify callback function for `insert_button'.
 */
void
insert_text_file(item, event)
	Panel_item	item;
	Event		*event;
{
  first_window1_objects *ip = 
    (first_window1_objects *) xv_get(item, XV_KEY_DATA, INSTANCE);
  char pathname[256];

  getcwd( pathname, 256 );

  xv_set(insert_dialog->popup1, XV_KEY_DATA, OPER, marco, NULL);
  xv_set(insert_dialog->textfield1, PANEL_VALUE, pathname, NULL );
  xv_set(insert_dialog->popup1, XV_SHOW, TRUE, NULL);
        
}


Panel_setting
insert_file_proc(item, event)
	Panel_item	item;
	Event		*event;
{
  insert_popup1_objects *ip = 
    (insert_popup1_objects *) xv_get(item, XV_KEY_DATA, INSTANCE);
  Panel_item  dirname_item;
  char *fname = (char *) xv_get(item, PANEL_VALUE), *fp;
  char *dirname, *dp;
  char pathname[256];
  Textsw_status status;
  
  dirname_item = ip->textfield1;
  dirname = (char *) xv_get(dirname_item, PANEL_VALUE);
  for( dp = dirname + strlen( dirname ); dp >= dirname; dp-- )
    if ( *dp != ' ' )
      break;
    else
      *dp = '\0';
  strcpy( pathname, dirname );
  if ( dirname != dp && *dp != '/' )
    strcat( pathname, "/" );
  else
    pathname[0] = '\0';
  for( fp = fname + strlen( fname ); fp >= fname; fp-- )
    if ( *fp != ' ' )
      break;
    else
      *fp = '\0';
  strcat( pathname, fname );

  if ( !access( pathname, F_OK | R_OK ) ) {

    xv_set( first_window1->textpane1,
	    TEXTSW_STATUS, &status,
	    TEXTSW_INSERT_FROM_FILE, pathname,
	    NULL );
    if ( status == TEXTSW_STATUS_OKAY )
      xv_set(ip->popup1, XV_SHOW, FALSE, NULL);
    else {
      window_bell( ip->popup1 );
      xv_set(ip->popup1, FRAME_LEFT_FOOTER, pathname, NULL);
      xv_set(ip->popup1, FRAME_RIGHT_FOOTER, "cannot insert", NULL);
    }
  }
  else {
    window_bell( ip->popup1 );
    xv_set(ip->popup1, FRAME_LEFT_FOOTER, pathname, NULL);
    xv_set(ip->popup1, FRAME_RIGHT_FOOTER, "unreadable", NULL);
  }

  return panel_text_notify(item, event);
}


/*
 * Notify callback function for `clear_button'.
 */
void
clear_window(item, event)
     Panel_item	item;
     Event		*event;
{
  first_window1_objects *ip = 
    (first_window1_objects *) xv_get(item, XV_KEY_DATA, INSTANCE);
	
  xv_set( first_window1->textpane1, 
	  TEXTSW_CONTENTS, "", 
	  NULL);
  
}