/*****************************************************************
    Panel Library/Electropaint Copyright (c) 1986 David A. Tristram.
    Electropaint (TM) is a Registered U.S. Trademark of Tristram Visual.
    Tristram Visual can be contacted at www.tristram.com.

    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. 
*****************************************************************/
#include <sys/param.h>
#include <signal.h>
#include <gl.h>
#include <device.h>
#include <panel.h>
  
  Actuator *s1, *s2, *b1, *b2, *b3, *b4, *rb1, *rb2, *rb3;
  short col=RED;

Panel
  *defpanel1(), *defpanel2(), *defpanel3();

/*
 *	demo53
 *
 *	just a standard demo, except configured to run nicely with 
 *	other processes.  Compare running 10 copies of this with
 *	10 copies of demo12.  Uses blocking pnl_dopanel().  Also
 *	creates a signal actuator to trap SIGINT in defpanel1().
 */


main() 
{
  Actuator *a;
  
  foreground();
  winopen("demo");
  doublebuffer();
  gconfig();
  
  defpanel1();
  defpanel2();
  defpanel3();
  
  pnl_needredraw();
  pnl_block=TRUE;		/* allow process to block when inactive */
  
  ortho2(-1.0,1.0,-1.0,1.0);

  drawit();
  swapbuffers();
  
  for (;;) { 			/* don't do graphics when inactive */
    while (!userredraw()&&!(a=pnl_dopanel()));

    if (a) {
      fprintf (stdout,"act %s\n", a->label?a->label:"<no label>");
      if (a->type==PNL_SIGNAL)
	fprintf (stdout,"sig=%d\n", PNL_ACCESS(Signal, a, signal));
    }

    if (a==b1) exit(0);
    if (a==b4) pnl_dumppanel();
    if (a==b2) {
      b3->val=b2->val;
      b3->dirtycnt=2;
    }
    if (a==rb1) col=CYAN;
    if (a==rb2) col=GREEN;
    if (a==rb3) col=RED;
    
    drawit();
    swapbuffers();
  }
}


drawit()
{
  pushmatrix();
  translate(s1->val,s2->val,0.0);
  color(BLACK);
  clear();
  color(col);
  rectf(-.10,-.10,.10,.10);
  popmatrix();
}


void
printfunc(a)
Actuator *a;
{
  switch (pnl_funcmode) {
  case PNL_FCNM_NONE:
    fprintf (stdout,"no function mode\n, actuator %s",
	   (a->label?a->label:"<no label>"));
    break;
  case PNL_FCNM_DOWN:
    fprintf (stdout,"downfunc, actuator %s\n", (a->label?a->label:"<no label>"));
    break;
  case PNL_FCNM_ACTIVE:
    fprintf (stdout,"activefunc, actuator %s\n", (a->label?a->label:"<no label>"));
    break;
  case PNL_FCNM_UP:
    fprintf (stdout,"upfunc, actuator %s\n", (a->label?a->label:"<no label>"));
    break;
  }
}

void
printsignal(a)
Actuator *a;
{
  Signal *ad=(Signal *)a->data;

  fprintf (stdout,"Howdy, demo53 got signal number %d.\n", ad->signal);
}


void
printsignal2(a)
Actuator *a;
{
  Signal *ad=(Signal *)a->data;

  fprintf (stdout,"Yep, it sure is a fine day for signal %d.\n", ad->signal);
}


Panel
  *defpanel1()
{
  Actuator *a;
  Panel *panel;
  
  panel=pnl_mkpanel();
  panel->label="panel one";
  panel->ppu=50.0;
  
  a=pnl_mkact(pnl_signal);
  a->label="a signal actuator for SIGUSR1 (16)";
  PNL_ACCESS(Signal, a, signal)=SIGUSR1;	/* default is SIGINT */
  a->downfunc=printsignal;	/* called upon receipt of the signal */
  a->activefunc=printsignal2;	/* called in next dopanel */
  pnl_addact(a, panel);

  s1=pnl_mkact(pnl_hslider);
  s1->label="y position";
  s1->x=1.0;
  s1->y=0.0;
  s1->minval= -1.0;
  s1->maxval=1.0;
  pnl_addact(s1, panel);
  
  b2=pnl_mkact(pnl_toggle_button);
  b2->label="push me";
  b2->x=1.0;
  b2->y=1.5;
  pnl_addact(b2, panel);
  
  b3=pnl_mkact(pnl_toggle_button);
  b3->label="I push myself";
  b3->x=1.0;
  b3->y=2.0;
  pnl_addact(b3, panel);
  
  a=pnl_mkact(pnl_typein);
  a->x=4.0;
  a->y=2.0;
  a->labeltype=PNL_LABEL_TOP;
  a->label="a typein window";
  PNL_ACCESS(Typein,a,str)="Edit This String";
/*  PNL_ACCESS(Typein,a,mode)|=PNL_TIM_TERM_ENTER; */  /* KMccan mode */
  a->downfunc=a->activefunc=a->upfunc=printfunc;
  pnl_addact(a,panel);
  
  return panel;
}

Panel
  *defpanel2()
{
  Panel *panel;
  
  panel=pnl_mkpanel();
  panel->label="panel two";
  panel->ppu=50.0;
  
  s2=pnl_mkact(pnl_vslider);
  s2->label="x position";
  s2->x=0.0;
  s2->y=0.0;
  s2->minval= -1.0;
  s2->maxval=1.0;
  pnl_addact(s2, panel);
  
  b4=pnl_mkact(pnl_button);
  b4->label="dumppanel";
  b4->x=1.0;
  b4->y=1.5;
  pnl_addact(b4, panel);
  
  b1=pnl_mkact(pnl_button);
  b1->label="exit";
  b1->x=1.0;
  b1->y=1.0;
  pnl_addact(b1, panel);
  
  return panel;
}

Panel
  *defpanel3()
{
  Panel *panel;
  
  panel=pnl_mkpanel();
  panel->label="panel three";
  panel->ppu=50.0;
  
  rb3=pnl_mkact(pnl_radio_button);
  rb3->label="red";
  rb3->x=1.0;
  rb3->y=2.0;
  rb3->val=1.0;
  pnl_addact(rb3, panel);
  
  rb2=pnl_mkact(pnl_radio_button);
  rb2->label="green";
  rb2->x=1.0;
  rb2->y=1.5;
  pnl_addact(rb2, panel);
  
  rb1=pnl_mkact(pnl_radio_button);
  rb1->label="cyan";
  rb1->x=1.0;
  rb1->y=1.0;
  pnl_addact(rb1, panel);
  
  return panel;
}