/* 
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
*/ 
/* 
 * HISTORY
*/ 
#ifdef REV_INFO
#ifndef lint
static char rcsid[] = "$XConsortium: BBoard5.c /main/8 1995/07/13 18:26:24 drk $"
#endif
#endif
/*
*  (c) Copyright 1987, 1988, 1989 HEWLETT-PACKARD COMPANY */

/**************************************************************************
 *
 *  Create an arrow using inches and setting the width and height. 
 *  Reset the size, change the unit type, set the size again.
 *
 **************************************************************************/


#include <signal.h>
#include <X11/StringDefs.h>
#include <testlib.h>
#include <string.h>

/* global variables */
Position POSMOVE = 1;

/*  Forward declarations  */
void IncrementPosition();
void DecrementPosition();
void ParseUserData();


/* main loop */

void main (argc, argv)
int argc;
char **argv;
  {
   Widget board;
   Widget arrow[4];
   Arg args[20];
   int n, i;
   char buf[8];
   Position xpos = 0;
   Dimension mHeight, mWidth;

   /*  initialize toolkit  */
   CommonTestInit(argc, argv);
   
   ParseUserData (UserData, &mHeight, &mWidth);

   n = 0;
   XtSetArg (args[n], XmNmarginHeight, mHeight); n++;
   XtSetArg (args[n], XmNmarginWidth, mWidth); n++;
   board = XmCreateBulletinBoard (Shell1, "board", args, n);

   for (i = 0; i <= 3; i++) {
     n = 0;
     sprintf (buf, "Arrow%d", i);
     XtSetArg (args[n], XmNwidth, 25); n++;
     XtSetArg (args[n], XmNheight, 25); n++;
     XtSetArg (args[n], XmNx, xpos); n++;
     XtSetArg (args[n], XmNy, 100); n++;
     arrow[i] = XmCreateArrowButton (board, buf, args, n);
     xpos += 50;
   }

   n = 0;
   XtSetArg (args[n], XmNarrowDirection, XmARROW_LEFT); n++;
   XtSetValues (arrow[0], args, n);
   XtAddCallback (arrow[0], XmNactivateCallback, 
		  DecrementPosition, (XtPointer) XmHORIZONTAL);
   
   n = 0;
   XtSetArg (args[n], XmNarrowDirection, XmARROW_UP); n++;
   XtSetValues (arrow[1], args, n);
   XtAddCallback(arrow[1], XmNactivateCallback, 
		 DecrementPosition, (XtPointer) XmVERTICAL);

   n = 0;
   XtSetArg (args[n], XmNarrowDirection, XmARROW_RIGHT); n++;
   XtSetValues (arrow[2], args, n);
   XtAddCallback (arrow[2], XmNactivateCallback, 
		  IncrementPosition, (XtPointer) XmHORIZONTAL);

   n = 0;
   XtSetArg (args[n], XmNarrowDirection, XmARROW_DOWN); n++;
   XtSetValues (arrow[3], args, n);
   XtAddCallback(arrow[3], XmNactivateCallback, 
		 IncrementPosition, (XtPointer) XmVERTICAL);

   XtManageChildren (arrow, 4);
   XtManageChild (board);
   XtRealizeWidget (Shell1);

   CommonPause(); /* move buttons around */

   /* double margin height and width */
   if ((mWidth == 0)) mWidth = 5;
   if ((mHeight == 0)) mHeight = 5;
   mWidth = mWidth * 2;
   mHeight = mHeight * 2;

   n = 0;
   XtSetArg (args[n], XmNmarginWidth, mWidth); n++;
   XtSetArg (args[n], XmNmarginHeight, mHeight); n++;
   XtSetValues (board, args, n);

   CommonPause();

   XtAppMainLoop (app_context);

 }

void IncrementPosition (w, client_data, call_data)
Widget w;
int client_data;
XtPointer call_data;

{
  Arg args[1];
  Position current_pos;

  if (client_data == XmVERTICAL) {
    XtSetArg (args[0], XmNy, &current_pos);
    XtGetValues (w, args, 1);
#ifdef DEBUG
    printf ("Moving %s from XmNy %d to %d\n", XtName(w), current_pos,
	    current_pos + POSMOVE);
#endif
    XtSetArg (args[0], XmNy, current_pos + POSMOVE);
    XtSetValues (w, args, 1);
  }
  else if (client_data == XmHORIZONTAL) {
    XtSetArg (args[0], XmNx, &current_pos);
    XtGetValues (w, args, 1);
#ifdef DEBUG
    printf ("Moving %s from XmNx %d to %d\n", XtName(w), current_pos,
	    current_pos + POSMOVE);
#endif
    XtSetArg (args[0], XmNx, current_pos + POSMOVE);
    XtSetValues (w, args, 1);
  }
  else printf ("Error in callback: wrong client_data %d\n", client_data);
}

void DecrementPosition (w, client_data, call_data)
Widget w;
int client_data;
XtPointer call_data;

{
  Arg args[1];
  Position current_pos;

  if (client_data == XmVERTICAL) {
    XtSetArg (args[0], XmNy, &current_pos);
    XtGetValues (w, args, 1);
#ifdef DEBUG
    printf ("Moving %s from XmNy %d to %d\n", XtName(w), current_pos,
	    current_pos - POSMOVE);
#endif
    XtSetArg (args[0], XmNy, (current_pos - POSMOVE));
    XtSetValues (w, args, 1);

    
  }
  else if (client_data == XmHORIZONTAL) {
    XtSetArg (args[0], XmNx, &current_pos);
    XtGetValues (w, args, 1);
#ifdef DEBUG
    printf ("Moving %s from XmNx %d to %d\n", XtName(w), current_pos,
	    current_pos - POSMOVE);
#endif
    XtSetArg (args[0], XmNx, (current_pos - POSMOVE));
    XtSetValues (w, args, 1);
  }
  else printf ("Error in callback: wrong client_data %d\n", client_data);
}

void ParseUserData (string, mheight, mwidth)
char * string;
Dimension *mheight, *mwidth;

{

  char *token;
  char buf[8];
  
  /* initialize it */
  buf[0] = buf[1] = buf[2] = buf[3] = buf[4] = buf[5] = buf[6] = buf[7] = '\0';

  if (string == NULL) { /* default settings */
    *mheight = 0;
    *mwidth = 0;
    POSMOVE = 1;
#ifdef DEBUG
      printf ("Move incr: %d, margin h: %d, margin w: %d\n",
	      (int) POSMOVE, (int) *mheight, (int) *mwidth);
      fflush (stdout);
#endif
    return;
  }
  else {
    if ((token = strchr (string, ',')) == NULL) {
      /* only margin width, height are set by user*/
      *mheight = (Dimension) atoi (string);
      *mwidth = (Dimension) atoi (string);
#ifdef DEBUG
      printf ("Move incr: %d, margin h: %d, margin w: %d\n",
	      (int) POSMOVE, (int) *mheight, (int) *mwidth);
      fflush (stdout);
#endif
      return;
    }
    else {
      /* both move increment and margin height, width are set by user */
      strncpy (buf, string, token - string);
      *mheight = *mwidth = (Dimension) atoi (buf);
      POSMOVE = (Position) atoi (++token);
#ifdef DEBUG
      printf ("Move incr: %d, margin h: %d, margin w: %d\n",
	      (int) POSMOVE, (int) *mheight, (int) *mwidth);
      fflush (stdout);
#endif
      return;
    }
  }
}