Mercurial > vim

comparison src/gui_xmebw.c @ 23503:49d866e9b439 v8.2.2294

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
patch 8.2.2294: VMS: a few remaining problems Commit: https://github.com/vim/vim/commit/82c38fe508155c11a904e6111b5bfb6adde3fb9a Author: Bram Moolenaar <Bram@vim.org> Date: Mon Jan 4 10:47:26 2021 +0100 patch 8.2.2294: VMS: a few remaining problems Problem: VMS: a few remaining problems. Solution: Add VMS specific changes. Add Lua support. (Zoltan Arpadffy)
author Bram Moolenaar <Bram@vim.org>
date Mon, 04 Jan 2021 11:00:11 +0100
parents e1f4e9d78a6a
children 7334bf933510
comparison
equal deleted inserted replaced
23502:f2f8c3848831 23503:49d866e9b439
65 # endif 65 # endif
66 # define XmeClearBorder _XmClearBorder 66 # define XmeClearBorder _XmClearBorder
67 # define XmeDrawShadows _XmDrawShadows 67 # define XmeDrawShadows _XmDrawShadows
68 # define XmeDrawHighlight(a, b, c, d, e, f, g, h) \ 68 # define XmeDrawHighlight(a, b, c, d, e, f, g, h) \
69 _XmDrawHighlight(a, b, c, d, e, f, g, h, LineSolid) 69 _XmDrawHighlight(a, b, c, d, e, f, g, h, LineSolid)
70 #endif
71
72 // Older VMS systems do not have xos_r.h and cannot haldle XtProcessLocking
73 #if defined(VMS)
74 # if defined(HAVE_XOS_R_H)
75 # define XTPROCESS_LOCK XtProcessLock()
76 # define XTPROCESS_UNLOCK XtProcessUnlock()
77 # else
78 # define XTPROCESS_LOCK
79 # define XTPROCESS_UNLOCK
80 # endif
81 #else
82 # define XTPROCESS_LOCK XtProcessLock()
83 # define XTPROCESS_UNLOCK XtProcessUnlock()
70 #endif 84 #endif
71 85
72 /* 86 /*
73 * Motif internals we have to cheat around with. 87 * Motif internals we have to cheat around with.
74 */ 88 */
712 } 726 }
713 727
714 { 728 {
715 XtExposeProc expose; 729 XtExposeProc expose;
716 730
717 XtProcessLock(); 731 XTPROCESS_LOCK;
718 expose = xmLabelClassRec.core_class.expose; 732 expose = xmLabelClassRec.core_class.expose;
719 XtProcessUnlock(); 733 XTPROCESS_UNLOCK;
720 (*expose)((Widget) eb, event, region); 734 (*expose)((Widget) eb, event, region);
721 } 735 }
722 736
723 if (deadjusted) 737 if (deadjusted)
724 { 738 {
807 XtExposeProc expose; 821 XtExposeProc expose;
808 822
809 _XmPrimitiveEnter((Widget) eb, event, NULL, NULL); 823 _XmPrimitiveEnter((Widget) eb, event, NULL, NULL);
810 if (eb->pushbutton.armed == TRUE) 824 if (eb->pushbutton.armed == TRUE)
811 { 825 {
812 XtProcessLock(); 826 XTPROCESS_LOCK;
813 expose = XtClass(eb)->core_class.expose; 827 expose = XtClass(eb)->core_class.expose;
814 XtProcessUnlock(); 828 XTPROCESS_UNLOCK;
815 (*expose) (wid, event, (Region) NULL); 829 (*expose) (wid, event, (Region) NULL);
816 } 830 }
817 831
818 draw_highlight(eb); 832 draw_highlight(eb);
819 draw_shadows(eb); 833 draw_shadows(eb);
885 899
886 if (eb->pushbutton.armed == TRUE) 900 if (eb->pushbutton.armed == TRUE)
887 { 901 {
888 XtExposeProc expose; 902 XtExposeProc expose;
889 eb->pushbutton.armed = FALSE; 903 eb->pushbutton.armed = FALSE;
890 XtProcessLock(); 904 XTPROCESS_LOCK;
891 expose = XtClass(eb)->core_class.expose; 905 expose = XtClass(eb)->core_class.expose;
892 XtProcessUnlock(); 906 XTPROCESS_UNLOCK;
893 (*expose) (wid, event, (Region)NULL); 907 (*expose) (wid, event, (Region)NULL);
894 draw_unhighlight(eb); 908 draw_unhighlight(eb);
895 draw_pixmap(eb, event, NULL); 909 draw_pixmap(eb, event, NULL);
896 eb->pushbutton.armed = TRUE; 910 eb->pushbutton.armed = TRUE;
897 } 911 }
971 #endif 985 #endif
972 986
973 // Invoke Label's Resize procedure. 987 // Invoke Label's Resize procedure.
974 { 988 {
975 XtWidgetProc resize; 989 XtWidgetProc resize;
976 XtProcessLock(); 990 XTPROCESS_LOCK;
977 resize = xmLabelClassRec.core_class.resize; 991 resize = xmLabelClassRec.core_class.resize;
978 XtProcessUnlock(); 992 XTPROCESS_UNLOCK;
979 993
980 (* resize) ((Widget) newtb); 994 (* resize) ((Widget) newtb);
981 } 995 }
982 } 996 }
983 997
986 { 1000 {
987 XmEnhancedButtonWidget request = (XmEnhancedButtonWidget)rq; 1001 XmEnhancedButtonWidget request = (XmEnhancedButtonWidget)rq;
988 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)ebw; 1002 XmEnhancedButtonWidget eb = (XmEnhancedButtonWidget)ebw;
989 XtWidgetProc resize; 1003 XtWidgetProc resize;
990 1004
991 XtProcessLock(); 1005 XTPROCESS_LOCK;
992 resize = xmLabelClassRec.core_class.resize; 1006 resize = xmLabelClassRec.core_class.resize;
993 XtProcessUnlock(); 1007 XTPROCESS_UNLOCK;
994 1008
995 // Create a bitmap for stippling (Drawable resources are cheap). 1009 // Create a bitmap for stippling (Drawable resources are cheap).
996 if (STIPPLE_BITMAP == None) 1010 if (STIPPLE_BITMAP == None)
997 { 1011 {
998 Display *dpy = XtDisplay((Widget) request); 1012 Display *dpy = XtDisplay((Widget) request);