static char LabeledBarGuage_id[] = "$Header: /usr/tiburon/unix/gui/tmacs/RCS/LabeledBarGuage.cc,v 1.2 1997/03/20 12:29:41 oreilly Exp $";

/*
$Log: LabeledBarGuage.cc,v $
Revision 1.2  1997/03/20 12:29:41  oreilly
..

Revision 1.1  96/10/28  09:12:07  09:12:07  oreilly (Thomas C. O'Reilly)
Initial revision

*/
#include <Xm/Form.h>
#include <Xm/Label.h>
#include "LabeledBarGuage.h"

LabeledBarGuage::LabeledBarGuage(const char *name, Widget parent,
				 float minValue, float maxValue,
				 Side labelSide, Boolean addTickMarks,
				 Side tickSide, const char *valueFormat)
  : VkComponent(name)
{
  _baseWidget = XtCreateWidget(name, xmFormWidgetClass, parent, NULL, 0);
  installDestroyHandler();

  Widget label = XtVaCreateManagedWidget("label", xmLabelWidgetClass,
					 _baseWidget, NULL);
  
  _guage = new BarGuage(name, _baseWidget, minValue, maxValue, 
			addTickMarks, tickSide, valueFormat);
  
  switch (labelSide)
  {
    case Top:
    XtVaSetValues(label, 
		  XmNtopAttachment, XmATTACH_FORM,
		  XmNleftAttachment, XmATTACH_FORM,
		  XmNrightAttachment, XmATTACH_FORM,
		  NULL);
    
    XtVaSetValues(_guage->baseWidget(),
		  XmNtopAttachment, XmATTACH_WIDGET,
		  XmNtopWidget, label,
		  XmNleftAttachment, XmATTACH_FORM,
		  XmNrightAttachment, XmATTACH_FORM,
		  XmNbottomAttachment, XmATTACH_FORM,
		  NULL);
    break;
    
    case Bottom:
    break;
    
    case Left:
    XtVaSetValues(label, 
		  XmNtopAttachment, XmATTACH_FORM,
		  XmNleftAttachment, XmATTACH_FORM,
		  NULL);

    XtVaSetValues(_guage->baseWidget(),
		  XmNtopAttachment, XmATTACH_FORM,
		  XmNleftAttachment, XmATTACH_WIDGET,
		  XmNleftWidget, label,
		  XmNrightAttachment, XmATTACH_FORM,
		  XmNbottomAttachment, XmATTACH_FORM,
		  NULL);
    break;
    
    case Right:
    break;
  }

  _guage->show();
  
}