#include "wx/gauge.h"
+#include <Xm/Xm.h>
+#include <wx/motif/private.h>
+
#if !USE_SHARED_LIBRARY
IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl)
#endif
+// XmGauge copyright notice:
+
+/*
+ * Copyright 1994 GROUPE BULL
+ *
+ * Permission to use, copy, modify, and distribute this software and its
+ * documentation for any purpose and without fee is hereby granted, provided
+ * that the above copyright notice appear in all copies and that both that
+ * copyright notice and this permission notice appear in supporting
+ * documentation, and that the name of GROUPE BULL not be used in advertising
+ * or publicity pertaining to distribution of the software without specific,
+ * written prior permission. GROUPE BULL makes no representations about the
+ * suitability of this software for any purpose. It is provided "as is"
+ * without express or implied warranty.
+ *
+ * GROUPE BULL disclaims all warranties with regard to this software,
+ * including all implied warranties of merchantability and fitness,
+ * in no event shall GROUPE BULL be liable for any special,
+ * indirect or consequential damages or any damages
+ * whatsoever resulting from loss of use, data or profits,
+ * whether in an action of contract, negligence or other tortious
+ * action, arising out of or in connection with the use
+ * or performance of this software.
+ *
+ */
+
+//// PUBLIC XMGAUGE DECLARATIONS
+typedef struct _XmGaugeClassRec* XmGaugeWidgetClass;
+typedef struct _XmGaugeRec* XmGaugeWidget;
+
+#ifdef __cplusplus
+extern "C" WidgetClass xmGaugeWidgetClass;
+#else
+extern WidgetClass xmGaugeWidgetClass;
+#endif
+
+typedef struct _XmGaugeCallbackStruct{
+ int reason;
+ XEvent *event;
+ int value;
+} XmGaugeCallbackStruct;
+
+
+void
+XmGaugeSetValue(Widget w, int value);
+
+int
+XmGaugeGetValue(Widget w);
+
+
+
bool wxGauge::Create(wxWindow *parent, wxWindowID id,
int range,
const wxPoint& pos,
else
m_windowId = id;
+ Widget parentWidget = (Widget) parent->GetClientWidget();
+
+ Arg args[4];
+ int count = 4;
+ if (style & wxHORIZONTAL)
+ {
+ XtSetArg (args[0], XmNorientation, XmHORIZONTAL);
+ XtSetArg (args[1], XmNprocessingDirection, XmMAX_ON_RIGHT);
+ }
+ else
+ {
+ XtSetArg (args[0], XmNorientation, XmVERTICAL);
+ XtSetArg (args[1], XmNprocessingDirection, XmMAX_ON_TOP);
+ }
+ XtSetArg(args[2], XmNminimum, 0);
+ XtSetArg(args[3], XmNmaximum, range);
+ Widget gaugeWidget = XtCreateManagedWidget("gauge", xmGaugeWidgetClass, parentWidget, args, count);
+ m_mainWidget = (WXWidget) gaugeWidget ;
+
+ XtManageChild (gaugeWidget);
- // TODO
- return FALSE;
+ int x = pos.x; int y = pos.y;
+ int width = size.x; int height = size.y;
+ if (width == -1)
+ width = 150;
+ if (height == -1)
+ height = 80;
+
+ SetCanAddEventHandler(TRUE);
+ AttachWidget (parent, m_mainWidget, (WXWidget) NULL, x, y, width, height);
+
+ SetFont(* parent->GetFont());
+ ChangeColour(m_mainWidget);
+
+ return TRUE;
}
void wxGauge::SetSize(int x, int y, int width, int height, int sizeFlags)
{
- // TODO
+ wxControl::SetSize(x, y, width, height, sizeFlags);
}
void wxGauge::SetShadowWidth(int w)
{
- // TODO optional
+ if (w == 0)
+ w = 1;
+ XtVaSetValues((Widget) m_mainWidget, XmNshadowThickness, w, NULL);
}
void wxGauge::SetBezelFace(int w)
{
- // TODO optional
}
void wxGauge::SetRange(int r)
{
m_rangeMax = r;
- // TODO
+ XtVaSetValues((Widget) m_mainWidget, XmNmaximum, r, NULL);
}
void wxGauge::SetValue(int pos)
{
m_gaugePos = pos;
- // TODO
+ XtVaSetValues((Widget) m_mainWidget, XmNvalue, pos, NULL);
}
int wxGauge::GetShadowWidth() const
{
- // TODO optional
- return 0;
+ Dimension w;
+ XtVaGetValues((Widget) m_mainWidget, XmNshadowThickness, &w, NULL);
+ return (int)w;
}
int wxGauge::GetBezelFace() const
{
- // TODO optional
return 0;
}
int wxGauge::GetRange() const
{
- return m_rangeMax;
+ int r;
+ XtVaGetValues((Widget) m_mainWidget, XmNmaximum, &r, NULL);
+ return (int)r;
+// return m_rangeMax;
}
int wxGauge::GetValue() const
{
- return m_gaugePos;
+ int pos;
+ XtVaGetValues((Widget) m_mainWidget, XmNvalue, &pos, NULL);
+ return pos;
+// return m_gaugePos;
+}
+
+//// PRIVATE DECLARATIONS FOR XMGAUGE
+
+#include <Xm/PrimitiveP.h>
+#include <Xm/DrawP.h>
+
+typedef struct {
+ int empty;
+} XmGaugeClassPart;
+
+typedef struct _XmGaugeClassRec {
+ CoreClassPart core_class;
+ XmPrimitiveClassPart primitive_class;
+ XmGaugeClassPart gauge_class;
+} XmGaugeClassRec;
+
+
+typedef struct _XmGaugePart{
+ int value;
+ int minimum;
+ int maximum;
+ unsigned char orientation;
+ unsigned char processingDirection;
+
+ XtCallbackList dragCallback;
+ XtCallbackList valueChangedCallback;
+
+ /* private fields */
+ Boolean dragging; /* drag in progress ? */
+ int oldx, oldy;
+ GC gc;
+} XmGaugePart;
+
+
+typedef struct _XmGaugeRec {
+ CorePart core;
+ XmPrimitivePart primitive;
+ XmGaugePart gauge;
+} XmGaugeRec;
+
+extern XmGaugeClassRec xmGaugeClassRec;
+
+/* Copyright 1994 GROUPE BULL -- See license conditions in file COPYRIGHT */
+
+//// XMGAUGE IMPLEMENTATION
+
+void
+GaugePick(Widget w, XEvent *e, String *args, Cardinal *num_args);
+void
+GaugeDrag(Widget w, XEvent *e, String *args, Cardinal *num_args);
+void
+GaugeDrop(Widget w, XEvent *e, String *args, Cardinal *num_args);
+
+
+
+static char translations[] =
+"<Btn1Down>: GaugePick()\n\
+ <Btn1Motion>: GaugeDrag()\n\
+ <Btn1Up>: GaugeDrop()\n\
+";
+
+
+
+static XtActionsRec actions[] = {
+ {"GaugePick", GaugePick},
+ {"GaugeDrag", GaugeDrag},
+ {"GaugeDrop", GaugeDrop},
+};
+
+static void
+DrawSlider(XmGaugeWidget gw, Boolean clear)
+{
+#define THIS gw->gauge
+ int size, sht;
+ float ratio;
+/***chubraev
+ char string[20];
+ int len;
+ unsigned long backgr,foregr;
+ XRectangle rects[1];
+***/
+
+ sht = gw->primitive.shadow_thickness;
+
+ ratio = (float)THIS.value/
+ (float)(THIS.maximum - THIS.minimum);
+/***chubraev
+ sprintf(string,"%-d%%",(int)(ratio*100));
+ len=strlen(string);
+ XtVaGetValues(gw,XmNbackground,&backgr,XmNforeground,&foregr,NULL);
+***/
+
+ if(clear) {
+ XClearArea(XtDisplay(gw), XtWindow(gw), sht, sht,
+ gw->core.width - 2 * sht, gw->core.height - 2 * sht, False);
+ }
+ switch(THIS.orientation) {
+ case XmHORIZONTAL:
+ size = (int) ((gw->core.width - 2 * sht)*ratio);
+ /***chubraev
+ XDrawString(XtDisplay(gw), XtWindow(gw), THIS.gc, sht+gw->core.width/2,
+gw->core.height - 2 * sht, string, len);
+ ***/
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, sht, size, gw->core.height - 2 * sht);
+
+ /***chubraev
+ rects[0].x = sht; rects[0].y = sht;
+ rects[0].width = size; rects[0].height = gw->core.height - 2 * sht;
+ ***/
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ gw->core.width - size - sht, sht,
+ size, gw->core.height - 2 * sht);
+
+ /***chubraev
+ rects[0].x = gw->core.width - size - sht; rects[0].y = sht;
+ rects[0].width = size; rects[0].height = gw->core.height - 2 * sht;
+ ***/
+ break;
+ }
+ /***chubraev
+ XSetClipRectangles(XtDisplay(gw), THIS.gc, 0, 0, rects, 1, Unsorted);
+ XSetForeground(XtDisplay(gw), THIS.gc, backgr);
+ XDrawString(XtDisplay(gw), XtWindow(gw), THIS.gc, sht+gw->core.width/2,
+gw->core.height - 2 * sht, string, len);
+ ***/
+
+ break;
+ case XmVERTICAL:
+ size = (int) ((gw->core.height - 2 * sht)*ratio);
+ /***chubraev
+ XDrawString(XtDisplay(gw), XtWindow(gw), THIS.gc, sht,
+sht+gw->core.height/2, string,len);
+ ***/
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, sht, gw->core.width - 2 * sht, size);
+
+ /***chubraev
+ rects[0].x = sht; rects[0].y = sht;
+ rects[0].width = gw->core.width - 2 * sht; rects[0].height = size;
+ ***/
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, gw->core.height - size - sht,
+ gw->core.width - 2 * sht, size);
+
+ /***chubraev
+ rects[0].x = sht; rects[0].y = gw->core.height - size - sht;
+ rects[0].width = gw->core.width - 2 * sht; rects[0].height = size;
+ ***/
+ }
+ /***chubraev
+ XSetClipRectangles(XtDisplay(gw), THIS.gc, 0, 0, rects, 1, Unsorted);
+ XSetForeground(XtDisplay(gw), THIS.gc, backgr);
+ XDrawString(XtDisplay(gw), XtWindow(gw), THIS.gc, sht,
+sht+gw->core.height/2, string,len);
+ ***/
+ break;
+ }
+ /***chubraev
+ XSetClipMask(XtDisplay(gw), THIS.gc, None);
+ XSetForeground(XtDisplay(gw), THIS.gc, foregr);
+ ***/
+#undef THIS
+}
+
+/* Old code
+ */
+#if 0
+static void
+DrawSlider(XmGaugeWidget gw, Boolean clear)
+{
+#define THIS gw->gauge
+ int size, sht;
+/* float ratio; */
+
+ sht = gw->primitive.shadow_thickness;
+/* See fix comment below: can cause divide by zero error.
+ ratio = (float)((float)THIS.maximum -
+ (float)THIS.minimum) / (float)THIS.value;
+*/
+ if(clear) {
+ XClearArea(XtDisplay(gw), XtWindow(gw), sht, sht,
+ gw->core.width - 2 * sht, gw->core.height - 2 * sht, False);
+ }
+ switch(THIS.orientation) {
+ case XmHORIZONTAL:
+/* size = (gw->core.width - 2 * sht) / ratio; */
+/* A fix suggested by Dmitri Chubraev */
+ size = (gw->core.width - 2 * sht) /((float)THIS.maximum-(float)THIS.minimum)*(float)THIS.value;
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, sht, size, gw->core.height - 2 * sht);
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ gw->core.width - size - sht, sht,
+ size, gw->core.height - 2 * sht);
+ break;
+ }
+ break;
+ case XmVERTICAL:
+ size = (gw->core.height - 2 * sht) /((float)THIS.maximum-(float)THIS.minimum)*(float)THIS.value;
+/* size = (gw->core.height - 2 * sht)/ ratio; */
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, sht, gw->core.width - 2 * sht, size);
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ XFillRectangle(XtDisplay(gw), XtWindow(gw), THIS.gc,
+ sht, gw->core.height - size - sht,
+ gw->core.width - 2 * sht, size);
+ }
+ break;
+ }
+#undef THIS
+}
+#endif
+
+static void
+Initialize(Widget req, Widget new_w, ArgList args, Cardinal *num_args )
+{
+ XmGaugeWidget gw = (XmGaugeWidget)new_w;
+#define THIS gw->gauge
+ XGCValues values;
+
+ values.foreground = gw->primitive.foreground;
+ THIS.gc = XtGetGC(new_w, GCForeground, &values);
+
+#undef THIS
+
+}
+
+
+
+static void
+Destroy(Widget w)
+{
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+#define THIS gw->gauge
+ XtReleaseGC(w, THIS.gc);
+#undef THIS
+}
+
+
+
+
+static Boolean
+SetValues(
+ Widget cw,
+ Widget rw,
+ Widget nw,
+ ArgList args,
+ Cardinal *num_args )
+{
+ XmGaugeWidget cgw = (XmGaugeWidget)cw;
+ XmGaugeWidget ngw = (XmGaugeWidget)nw;
+
+ Boolean redraw = False;
+ if(cgw->primitive.foreground != ngw->primitive.foreground) {
+ XGCValues values;
+
+ redraw = True;
+ XtReleaseGC(nw, ngw->gauge.gc);
+ values.foreground = ngw->primitive.foreground;
+ ngw->gauge.gc = XtGetGC(nw, GCForeground, &values);
+ }
+ if(cgw->gauge.value != ngw->gauge.value) {
+ redraw = True;
+ }
+ return redraw;
+}
+
+
+
+
+static void
+ExposeProc(Widget w, XEvent *event, Region r)
+{
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+#define THIS gw->gauge
+ int sht;
+
+ sht = gw->primitive.shadow_thickness;
+ _XmDrawShadows(XtDisplay(w), XtWindow(w),
+ gw->primitive.top_shadow_GC,
+ gw->primitive.bottom_shadow_GC,
+ 0, 0, w->core.width, w->core.height,
+ sht, XmSHADOW_IN);
+ DrawSlider(gw, False);
+#undef THIS
+}
+
+
+
+
+
+static XtResource
+resources[] = {
+#define offset(field) XtOffset(XmGaugeWidget, gauge.field)
+ {XmNvalue, XmCValue, XtRInt, sizeof(int),
+ offset(value), XtRImmediate, (caddr_t)10},
+
+ {XmNminimum, XmCValue, XtRInt, sizeof(int),
+ offset(minimum), XtRImmediate, (caddr_t)0},
+
+ {XmNmaximum, XmCValue, XtRInt, sizeof(int),
+ offset(maximum), XtRImmediate, (caddr_t)100},
+
+ {XmNorientation, XmCOrientation, XmROrientation, sizeof(unsigned char),
+ offset(orientation), XtRImmediate, (caddr_t)XmVERTICAL},
+
+ {XmNprocessingDirection, XmCProcessingDirection,
+ XmRProcessingDirection, sizeof(unsigned char),
+ offset(processingDirection), XtRImmediate, (caddr_t)XmMAX_ON_RIGHT},
+
+ {XmNdragCallback, XmCCallback, XmRCallback, sizeof(XtCallbackList),
+ offset(dragCallback), XtRImmediate, (caddr_t)NULL},
+
+ {XmNvalueChangedCallback, XmCCallback, XmRCallback, sizeof(XtCallbackList),
+ offset(valueChangedCallback), XtRImmediate, (caddr_t)NULL},
+
+
+#undef offset
+};
+
+
+XmGaugeClassRec xmGaugeClassRec = {
+ { /* core fields */
+ (WidgetClass) &xmPrimitiveClassRec, /* superclass */
+ "XmGauge", /* class_name */
+ sizeof(XmGaugeRec), /* widget_size */
+ NULL, /* class_initialize */
+ NULL, /* class_part_initialize */
+ FALSE, /* class_inited */
+ Initialize, /* initialize */
+ NULL, /* initialize_hook */
+ XtInheritRealize, /* realize */
+ actions, /* actions */
+ XtNumber(actions), /* num_actions */
+ resources, /* resources */
+ XtNumber(resources), /* num_resources */
+ NULLQUARK, /* xrm_class */
+ TRUE, /* compress_motion */
+ TRUE, /* compress_exposure */
+ TRUE, /* compress_enterleave */
+ FALSE, /* visible_interest */
+ Destroy, /* destroy */
+ NULL, /* resize */
+ ExposeProc, /* expose */
+ SetValues, /* set_values */
+ NULL, /* set_values_hook */
+ XtInheritSetValuesAlmost, /* set_values_almost */
+ NULL, /* get_values_hook */
+ NULL, /* accept_focus */
+ XtVersion, /* version */
+ NULL, /* callback_private */
+ translations, /* tm_table */
+ NULL, /* query_geometry */
+ NULL, /* display_accelerator */
+ NULL /* extension */
+ },
+ /* primitive_class fields */
+ {
+ NULL, /* border_highlight */
+ NULL, /* border_unhighlight */
+ NULL, /* translations */
+ NULL, /* arm_and_activate */
+ NULL, /* syn_resources */
+ 0, /* num_syn_resources */
+ NULL /* extension */
+ },
+ { /* gauge fields */
+ 0 /* empty */
+ }
+};
+
+WidgetClass xmGaugeWidgetClass = (WidgetClass)&xmGaugeClassRec;
+
+
+
+
+void
+GaugePick(Widget w, XEvent *e, String *args, Cardinal *num_args)
+{
+/* Commented out for a read-only gauge in wxWindows */
+#if 0
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+#define THIS gw->gauge
+ int size, sht;
+ float ratio;
+ Boolean dragging = False;
+ XButtonEvent *event = (XButtonEvent *)e;
+ int x, y;
+
+ x = event->x;
+ y = event->y;
+ sht = gw->primitive.shadow_thickness;
+ _XmDrawShadows(XtDisplay(w), XtWindow(w),
+ gw->primitive.top_shadow_GC,
+ gw->primitive.bottom_shadow_GC,
+ 0, 0, w->core.width, w->core.height,
+ sht, XmSHADOW_IN);
+
+
+ ratio = (float)((float)THIS.maximum -
+ (float)THIS.minimum) / (float)THIS.value;
+ switch(THIS.orientation) {
+ case XmHORIZONTAL:
+ size = (w->core.width - 2 * sht) / ratio;
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ dragging = (x > sht) && (y > sht) &&
+ (x < sht + size) && (y < w->core.height - sht);
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ dragging = (x > w->core.width - size - sht) && (y > sht) &&
+ (x < w->core.width - sht) && (y < w->core.height + sht);
+ break;
+ }
+ break;
+ case XmVERTICAL:
+ size = (w->core.height - 2 * sht) / ratio;
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ dragging = (x > sht) && (y > sht) &&
+ (x < w->core.width - sht) &&
+ (y < w->core.width - 2 * sht + size);
+ break;
+ case XmMAX_ON_LEFT:
+ case XmMAX_ON_TOP:
+ dragging = (x > sht) && (y > w->core.height - size - sht) &&
+ (x < w->core.width - sht) && (y < w->core.height - sht);
+ }
+ break;
+ }
+ THIS.dragging = dragging;
+ THIS.oldx = x;
+ THIS.oldy = y;
+#undef THIS
+#endif
}
+#define round(x) ( (x) > 0 ? ((x) + 0.5) : -(-(x) + 0.5) )
+
+void
+GaugeDrag(Widget w, XEvent *e, String *args, Cardinal *num_args)
+{
+/* Commented out for a read-only gauge in wxWindows */
+#if 0
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+#define THIS gw->gauge
+ int sht, x, y, max, value;
+ float ratio, nratio, size, nsize, fvalue, delta;
+ XMotionEvent *event = (XMotionEvent *)e;
+
+ if( ! THIS.dragging) return;
+
+ x = event->x;
+ y = event->y;
+ sht = gw->primitive.shadow_thickness;
+
+ ratio = (float)THIS.value / (float)((float)THIS.maximum -
+ (float)THIS.minimum);
+ switch(THIS.orientation) {
+ case XmHORIZONTAL:
+ max = (w->core.width - 2 * sht);
+ size = (float)max * ratio;
+ delta = (float)x - (float)THIS.oldx;
+ break;
+ case XmVERTICAL:
+ max = (w->core.height - 2 * sht);
+ size = (float) max * ratio;
+ delta = (float)y - (float)THIS.oldy;
+ break;
+ }
+ switch(THIS.processingDirection) {
+ case XmMAX_ON_RIGHT:
+ case XmMAX_ON_BOTTOM:
+ nsize = size + delta;
+ break;
+ default:
+ nsize = size - delta;
+ }
+ if(nsize > (float)max) nsize = (float)max;
+ if(nsize < (float)0 ) nsize = (float)0;
+ nratio = nsize / (float)max;
+
+ fvalue = (int)((float)THIS.maximum -
+ (float)THIS.minimum) * (float)nsize / (float)max;
+ value = round(fvalue);
+
+ THIS.value = value;
+ THIS.oldx = x;
+ THIS.oldy = y;
+
+ /* clear old slider only if it was larger */
+ DrawSlider(gw, (nsize < size));
+
+ {
+ XmGaugeCallbackStruct call;
+
+ if(NULL != THIS.dragCallback) {
+ call.reason = XmCR_DRAG;
+ call.event = e;
+ call.value = THIS.value;
+ XtCallCallbacks(w, XmNdragCallback, &call);
+ }
+ }
+#undef THIS
+#endif
+}
+
+
+void
+GaugeDrop(Widget w, XEvent *e, String *args, Cardinal *num_args)
+{
+/* Commented out for a read-only gauge in wxWindows */
+#if 0
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+#define THIS gw->gauge
+ if( ! THIS.dragging) return;
+
+ if(NULL != THIS.valueChangedCallback) {
+ XmGaugeCallbackStruct call;
+ call.reason = XmCR_VALUE_CHANGED;
+ call.event = e;
+ call.value = THIS.value;
+ XtCallCallbacks(w, XmNvalueChangedCallback, &call);
+ }
+ THIS.dragging = False;
+#undef THIS
+#endif
+}
+
+void
+XmGaugeSetValue(Widget w, int value)
+{
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+
+ gw->gauge.value = value;
+ DrawSlider(gw, True);
+ XFlush(XtDisplay(w));
+}
+
+int
+XmGaugeGetValue(Widget w)
+{
+ XmGaugeWidget gw = (XmGaugeWidget)w;
+
+ return gw->gauge.value;
+}