diff options
| author | Bram Moolenaar <Bram@vim.org> | 2021-01-04 10:47:26 +0100 |
|---|---|---|
| committer | Bram Moolenaar <Bram@vim.org> | 2021-01-04 10:47:26 +0100 |
| commit | 82c38fe508155c11a904e6111b5bfb6adde3fb9a (patch) | |
| tree | 818661460a865d7096bc13737d56199d4b009125 /src/gui_xmebw.c | |
| parent | bb0956fc65ebe8df1da823f9c4d6a0013d9ba5c1 (diff) | |
patch 8.2.2294: VMS: a few remaining problemsv8.2.2294
Problem: VMS: a few remaining problems.
Solution: Add VMS specific changes. Add Lua support. (Zoltan Arpadffy)
Diffstat (limited to 'src/gui_xmebw.c')
| -rw-r--r-- | src/gui_xmebw.c | 34 |
1 files changed, 24 insertions, 10 deletions
diff --git a/src/gui_xmebw.c b/src/gui_xmebw.c index 6a01a71324..2c66db121b 100644 --- a/src/gui_xmebw.c +++ b/src/gui_xmebw.c @@ -69,6 +69,20 @@ _XmDrawHighlight(a, b, c, d, e, f, g, h, LineSolid) #endif +// Older VMS systems do not have xos_r.h and cannot haldle XtProcessLocking +#if defined(VMS) +# if defined(HAVE_XOS_R_H) +# define XTPROCESS_LOCK XtProcessLock() +# define XTPROCESS_UNLOCK XtProcessUnlock() +# else +# define XTPROCESS_LOCK +# define XTPROCESS_UNLOCK +# endif +#else +# define XTPROCESS_LOCK XtProcessLock() +# define XTPROCESS_UNLOCK XtProcessUnlock() +#endif + /* * Motif internals we have to cheat around with. */ @@ -714,9 +728,9 @@ draw_label(XmEnhancedButtonWidget eb, XEvent *event, Region region) { XtExposeProc expose; - XtProcessLock(); + XTPROCESS_LOCK; expose = xmLabelClassRec.core_class.expose; - XtProcessUnlock(); + XTPROCESS_UNLOCK; (*expose)((Widget) eb, event, region); } @@ -809,9 +823,9 @@ Enter(Widget wid, _XmPrimitiveEnter((Widget) eb, event, NULL, NULL); if (eb->pushbutton.armed == TRUE) { - XtProcessLock(); + XTPROCESS_LOCK; expose = XtClass(eb)->core_class.expose; - XtProcessUnlock(); + XTPROCESS_UNLOCK; (*expose) (wid, event, (Region) NULL); } @@ -887,9 +901,9 @@ Leave(Widget wid, { XtExposeProc expose; eb->pushbutton.armed = FALSE; - XtProcessLock(); + XTPROCESS_LOCK; expose = XtClass(eb)->core_class.expose; - XtProcessUnlock(); + XTPROCESS_UNLOCK; (*expose) (wid, event, (Region)NULL); draw_unhighlight(eb); draw_pixmap(eb, event, NULL); @@ -973,9 +987,9 @@ set_size(XmEnhancedButtonWidget newtb) // Invoke Label's Resize procedure. { XtWidgetProc resize; - XtProcessLock(); + XTPROCESS_LOCK; resize = xmLabelClassRec.core_class.resize; - XtProcessUnlock(); + XTPROCESS_UNLOCK; (* resize) ((Widget) newtb); } @@ -988,9 +1002,9 @@ Initialize(Widget rq, Widget ebw, ArgList args UNUSED, Cardinal *n UNUSED) XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)ebw; XtWidgetProc resize; - XtProcessLock(); + XTPROCESS_LOCK; resize = xmLabelClassRec.core_class.resize; - XtProcessUnlock(); + XTPROCESS_UNLOCK; // Create a bitmap for stippling (Drawable resources are cheap). if (STIPPLE_BITMAP == None) |