X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/4bb6408c2631988fab9925014c6619358bf867de..31e39e3c51f0a14a49ba86a5326e1461ad60dfee:/src/motif/gauge.cpp diff --git a/src/motif/gauge.cpp b/src/motif/gauge.cpp index d756fc4946..104f66536c 100644 --- a/src/motif/gauge.cpp +++ b/src/motif/gauge.cpp @@ -13,83 +13,769 @@ #pragma implementation "gauge.h" #endif -#include "wx/gauge.h" +#ifdef __VMS__ +#include +#endif + +# include "wx/gauge.h" + +#ifdef __VMS__ +#pragma message disable nosimpint +#endif +#include +#ifdef __VMS__ +#pragma message enable nosimpint +#endif +#include "wx/motif/private.h" -#if !USE_SHARED_LIBRARY IMPLEMENT_DYNAMIC_CLASS(wxGauge, wxControl) + +// 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, - const wxSize& size, - long style, - const wxValidator& validator, - const wxString& name) + int range, + const wxPoint& pos, + const wxSize& size, + long style, + const wxValidator& validator, + const wxString& name) { SetName(name); SetValidator(validator); m_rangeMax = range; m_windowStyle = style; + m_backgroundColour = parent->GetBackgroundColour(); + m_foregroundColour = parent->GetForegroundColour(); if (parent) parent->AddChild(this); if ( id == -1 ) - m_windowId = (int)NewControlId(); + m_windowId = (int)NewControlId(); else - m_windowId = id; + m_windowId = id; + Widget parentWidget = (Widget) parent->GetClientWidget(); - // TODO - return FALSE; -} + 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 ; -void wxGauge::SetSize(int x, int y, int width, int height, int sizeFlags) -{ - // TODO + XtManageChild (gaugeWidget); + + 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; + + m_font = parent->GetFont(); + ChangeFont(FALSE); + + SetCanAddEventHandler(TRUE); + AttachWidget (parent, m_mainWidget, (WXWidget) NULL, x, y, width, height); + + ChangeBackgroundColour(); + + return TRUE; } void wxGauge::SetShadowWidth(int w) { - // TODO optional + if (w == 0) + w = 1; + XtVaSetValues((Widget) m_mainWidget, XmNshadowThickness, w, NULL); } -void wxGauge::SetBezelFace(int w) +void wxGauge::SetBezelFace(int WXUNUSED(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; +} + +void wxGauge::ChangeFont(bool keepOriginalSize) +{ + wxWindow::ChangeFont(keepOriginalSize); +} + +void wxGauge::ChangeBackgroundColour() +{ + wxWindow::ChangeBackgroundColour(); +} + +void wxGauge::ChangeForegroundColour() +{ + wxWindow::ChangeForegroundColour(); +} + +//// PRIVATE DECLARATIONS FOR XMGAUGE + +#include +#include + +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[] = +": GaugePick()\n\ + : GaugeDrag()\n\ + : 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 WXUNUSED(req), Widget new_w, ArgList WXUNUSED(args), Cardinal *WXUNUSED(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 WXUNUSED(rw), + Widget nw, + ArgList WXUNUSED(args), + Cardinal *WXUNUSED(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 *WXUNUSED(event), Region WXUNUSED(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 WXUNUSED(w), XEvent *WXUNUSED(e), String *WXUNUSED(args), Cardinal *WXUNUSED(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 WXUNUSED(w), XEvent *WXUNUSED(e), String *WXUNUSED(args), Cardinal *WXUNUSED(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 WXUNUSED(w), XEvent *WXUNUSED(e), String *WXUNUSED(args), Cardinal *WXUNUSED(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; +}