1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
|
/* $XConsortium: MenuProc.c /main/8 1996/01/17 10:50:38 lehors $ */
/*
* Motif
*
* Copyright (c) 1987-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these librararies and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*
*/
/*
* HISTORY
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
/*
* The following functions are used to separate the private class function
* in RowColumn from the buttons that may be children of the RowColumn.
* This is simply an interface supplied so that the buttons will not have
* to have intimate knowledge of the RowColumn class functions.
*/
#include <Xm/XmP.h>
#include <Xm/MenuProcP.h>
#include "MenuProcI.h"
#include "GadgetUtiI.h"
#include "XmI.h"
static XtPointer menuProcEntry = NULL;
/*
* this routine is called at RowColumn class init to
* save the address of the menuProcedureEntry routine.
*/
void
_XmSaveMenuProcContext(
XtPointer address )
{
menuProcEntry = address;
}
/*
* This routine is used by the button children of the RowColumn (currently
* all label and labelgadget subclasses) to get the address of the
* menuProcedureEntry routine. It is called by the buttons class init
* routines.
*/
XtPointer
_XmGetMenuProcContext( void )
{
return menuProcEntry;
}
/* temp hold for core class translations used during subclass'
* InitializePrehook & InitializePosthook
*/
static XContext SaveTranslationsContext = 0;
/************************************************************************
*
* _XmSaveCoreClassTranslations
*
* Save away the core class translations during the initialization
* routines. This is used by rowcol and subclasses of Label that set their
* translations during initialization depending on whether they are in
* a menu. The InitializePrehook calls this routine to save the
* core class translations.
************************************************************************/
void
_XmSaveCoreClassTranslations(
Widget widget)
{
_XmProcessLock();
if (SaveTranslationsContext == 0)
SaveTranslationsContext = XUniqueContext();
XSaveContext(XtDisplay(widget), (XID)widget, SaveTranslationsContext,
(char *)(widget->core.widget_class->core_class.tm_table));
_XmProcessUnlock();
}
/************************************************************************
*
* _XmRestoreCoreClassTranslations
*
* Restore the core class translations during the initialization
* routines. This is used by rowcol and subclasses of Label that set their
* translations during initialization depending on whether they are in
* a menu. The InitializePosthook calls this routine to restore the
* core class translations.
************************************************************************/
void
_XmRestoreCoreClassTranslations(
Widget widget)
{
String saved_translations;
_XmProcessLock();
if (SaveTranslationsContext &&
(!XFindContext(XtDisplay(widget), (XID)widget,
SaveTranslationsContext, (XtPointer)&saved_translations)))
widget->core.widget_class->core_class.tm_table = saved_translations;
#ifdef DEBUG
else /* This should'nt happen ! */
abort();
#endif
_XmProcessUnlock();
}
/*************************************************
* This function extracts a time from an event or
* returns the last processed time if the event
* is NULL or isn't an event with a timestamp
*************************************************/
/*ARGSUSED*/
Time
_XmGetDefaultTime(Widget wid,
XEvent *event)
{
if (event == NULL)
return(XtLastTimestampProcessed(XtDisplay(wid)));
else if (event -> type == ButtonPress ||
event -> type == ButtonRelease)
return(event -> xbutton.time);
else if (event -> type == KeyPress ||
event -> type == KeyRelease)
return(event -> xkey.time);
else if (event -> type == MotionNotify)
return(event -> xmotion.time);
else if (event -> type == EnterNotify ||
event -> type == LeaveNotify)
return(event -> xcrossing.time);
else
return(XtLastTimestampProcessed(XtDisplay(wid)));
}
|
