Mercurial > hg > xemacs-beta
annotate lwlib/lwlib-utils.c @ 4874:4c3f5e1ecbeb
ChangeLog for previous patch: regenerate intl-auto-encap-win32.c
(fix build problems when building --with-msw=no on Cygwin)
-------------------- ChangeLog entries follow: --------------------
lib-src/ChangeLog addition:
2010-01-15 Ben Wing <ben@xemacs.org>
* make-mswin-unicode.pl:
Various fixes to get this to work when using the Cygwin header files
in /usr/include/w32api instead of the VC++ ones:
-- Use /usr/include/w32api as default; don't assume that a passed-in
directory always ends in .../include.
-- Add `const' to list of known type modifiers.
-- If function already seen, warn but don't generate twice.
-- Eliminate `extern' from return type modifiers.
-- Cosmetic: When eliminating APIENTRY, also eliminate following
whitespace.
src/ChangeLog addition:
2010-01-15 Ben Wing <ben@xemacs.org>
* intl-auto-encap-win32.c:
* intl-auto-encap-win32.c (qxeExtractAssociatedIcon):
* intl-auto-encap-win32.c (qxeShellExecuteEx):
* intl-auto-encap-win32.c (qxeSHFileOperation):
* intl-auto-encap-win32.c (qxeSHQueryRecycleBin):
* intl-auto-encap-win32.c (qxeSHEmptyRecycleBin):
* intl-auto-encap-win32.c (qxeWNetAddConnection):
* intl-auto-encap-win32.c (qxeWNetAddConnection2):
* intl-auto-encap-win32.c (qxeWNetAddConnection3):
* intl-auto-encap-win32.c (qxeWNetCancelConnection):
* intl-auto-encap-win32.c (qxeWNetCancelConnection2):
* intl-auto-encap-win32.c (qxeWNetGetConnection):
* intl-auto-encap-win32.c (qxeWNetUseConnection):
* intl-auto-encap-win32.c (qxeWNetConnectionDialog1):
* intl-auto-encap-win32.c (qxeWNetDisconnectDialog1):
* intl-auto-encap-win32.c (qxeWNetOpenEnum):
* intl-auto-encap-win32.c (qxeWNetEnumResource):
* intl-auto-encap-win32.c (qxeWNetGetUniversalName):
* intl-auto-encap-win32.c (qxeWNetGetUser):
* intl-auto-encap-win32.c (qxeWNetGetProviderName):
* intl-auto-encap-win32.c (qxeWNetGetNetworkInformation):
* intl-auto-encap-win32.c (qxeWNetGetLastError):
* intl-auto-encap-win32.c (qxeMultinetGetConnectionPerformance):
* intl-auto-encap-win32.c (qxeAppendMenu):
* intl-auto-encap-win32.c (qxeCopyAcceleratorTable):
* intl-auto-encap-win32.c (qxeDlgDirSelectComboBoxEx):
* intl-auto-encap-win32.c (qxeEnumDesktops):
* intl-auto-encap-win32.c (qxeEnumWindowStations):
* intl-auto-encap-win32.c (qxeGetClassInfo):
* intl-auto-encap-win32.c (qxeGetClassLong):
* intl-auto-encap-win32.c (qxeGetClassName):
* intl-auto-encap-win32.c (qxeGetKeyboardLayoutName):
* intl-auto-encap-win32.c (qxeGetWindowLong):
* intl-auto-encap-win32.c (qxeGetUserObjectInformation):
* intl-auto-encap-win32.c (qxeGetWindowTextLength):
* intl-auto-encap-win32.c (qxeGrayString):
* intl-auto-encap-win32.c (qxeInsertMenu):
* intl-auto-encap-win32.c (qxeSetProp):
* intl-auto-encap-win32.c (qxeEnumICMProfiles):
* intl-auto-encap-win32.c (qxeExtTextOut):
* intl-auto-encap-win32.c (qxeSetICMProfile):
* intl-auto-encap-win32.c (qxeTextOut):
* intl-auto-encap-win32.c (qxeSHGetPathFromIDList):
* intl-auto-encap-win32.c (qxeFindText):
* intl-auto-encap-win32.c (qxeReplaceText):
* intl-auto-encap-win32.c (qxeImmInstallIME):
* intl-auto-encap-win32.c (qxeImmGetDescription):
* intl-auto-encap-win32.c (qxeImmGetIMEFileName):
* intl-auto-encap-win32.c (qxeImmGetCompositionString):
* intl-auto-encap-win32.c (qxeImmGetCandidateListCount):
* intl-auto-encap-win32.c (qxeImmGetCandidateList):
* intl-auto-encap-win32.c (qxeImmGetGuideLine):
* intl-auto-encap-win32.c (qxeImmConfigureIME):
* intl-auto-encap-win32.c (qxeImmEscape):
* intl-auto-encap-win32.c (qxeImmGetConversionList):
* intl-auto-encap-win32.c (qxeImmRegisterWord):
* intl-auto-encap-win32.c (qxeImmUnregisterWord):
* intl-auto-encap-win32.c (qxeImmEnumRegisterWord):
* intl-auto-encap-win32.c (qxesndPlaySound):
* intl-auto-encap-win32.c (qxePlaySound):
* intl-auto-encap-win32.c (qxewaveOutGetErrorText):
* intl-auto-encap-win32.c (qxewaveInGetErrorText):
* intl-auto-encap-win32.c (qxemidiOutGetErrorText):
* intl-auto-encap-win32.c (qxemidiInGetErrorText):
* intl-auto-encap-win32.c (qxemmioStringToFOURCC):
* intl-auto-encap-win32.c (qxemmioInstallIOProc):
* intl-auto-encap-win32.c (qxemmioOpen):
* intl-auto-encap-win32.c (qxemmioRename):
* intl-auto-encap-win32.c (qxemciSendCommand):
* intl-auto-encap-win32.c (qxemciSendString):
* intl-auto-encap-win32.c (qxemciGetDeviceID):
* intl-auto-encap-win32.c (qxemciGetErrorString):
* intl-auto-encap-win32.h:
* intl-auto-encap-win32.h (qxemciGetErrorString):
Regenerate these files from Cygwin headers.
* intl-encap-win32.c:
Bracket more functions in HAVE_MS_WINDOWS, to fix build problems
when building --with-msw=no on Cygwin.
Fixes for Cygwin headers:
-- Comment out IME.H, non-existent in Cygwin.
-- Make MessageBoxIndirect a `no' (don't encapsulate but generate
error if used) because it has a structure parameter that needs
to be A/W split but is declared as FOO*, and our parser can't
split this.
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Fri, 15 Jan 2010 05:12:07 -0600 |
| parents | 04bc9d2f42c7 |
| children | ade4c7e2c6cb |
| rev | line source |
|---|---|
| 428 | 1 /* Defines some widget utility functions. |
| 2 Copyright (C) 1992 Lucid, Inc. | |
| 3 | |
| 4 This file is part of the Lucid Widget Library. | |
| 5 | |
| 6 The Lucid Widget Library is free software; you can redistribute it and/or | |
| 7 modify it under the terms of the GNU General Public License as published by | |
| 8 the Free Software Foundation; either version 1, or (at your option) | |
| 9 any later version. | |
| 10 | |
| 11 The Lucid Widget Library is distributed in the hope that it will be useful, | |
| 12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 14 GNU General Public License for more details. | |
| 15 | |
| 16 You should have received a copy of the GNU General Public License | |
| 17 along with XEmacs; see the file COPYING. If not, write to | |
| 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 19 Boston, MA 02111-1307, USA. */ | |
| 20 | |
| 21 #include <config.h> | |
| 22 #include <stdlib.h> | |
| 23 #include <string.h> | |
| 24 #include <memory.h> | |
| 25 #ifdef HAVE_UNISTD_H | |
| 26 #include <unistd.h> | |
| 27 #endif | |
| 28 | |
| 29 #include <X11/Xatom.h> | |
| 30 #include <X11/IntrinsicP.h> | |
| 31 #include <X11/ObjectP.h> | |
| 32 #include "lwlib-utils.h" | |
| 33 | |
| 34 void | |
| 35 destroy_all_children (Widget widget) | |
| 36 { | |
| 37 Widget* children; | |
| 38 unsigned int number; | |
| 39 int i; | |
| 40 | |
| 41 children = XtCompositeChildren (widget, &number); | |
| 42 if (children) | |
| 43 { | |
| 44 /* Unmanage all children and destroy them. They will only be | |
| 45 * really destroyed when we get out of DispatchEvent. */ | |
| 487 | 46 for (i = 0; i < (int) number; i++) |
| 428 | 47 { |
| 48 Widget child = children [i]; | |
| 49 if (!child->core.being_destroyed) | |
| 50 { | |
| 51 XtUnmanageChild (child); | |
| 52 XtDestroyWidget (child); | |
| 53 } | |
| 54 } | |
| 55 XtFree ((char *) children); | |
| 56 } | |
| 57 } | |
| 58 | |
| 59 /* Redisplay the contents of the widget, without first clearing it. */ | |
| 60 void | |
| 61 XtNoClearRefreshWidget (Widget widget) | |
| 62 { | |
| 63 XEvent event; | |
| 64 XExposeEvent* ev = &event.xexpose; | |
| 65 | |
| 66 ev->type = Expose; | |
| 67 ev->serial = 0; | |
| 68 ev->send_event = 0; | |
| 69 ev->display = XtDisplay (widget); | |
| 70 ev->window = XtWindow (widget); | |
| 71 ev->x = 0; | |
| 72 ev->y = 0; | |
| 73 ev->width = widget->core.width; | |
| 74 ev->height = widget->core.height; | |
| 75 ev->count = 0; | |
| 76 | |
| 77 (*widget->core.widget_class->core_class.expose) | |
| 78 (widget, &event, (Region)NULL); | |
| 79 } | |
| 80 | |
| 81 | |
| 82 /* | |
| 83 * Apply a function to all the subwidgets of a given widget recursively. | |
| 84 */ | |
| 85 void | |
| 86 XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg) | |
| 87 { | |
| 88 if (XtIsComposite (w)) | |
| 89 { | |
| 90 CompositeWidget cw = (CompositeWidget) w; | |
| 91 /* We have to copy the children list before mapping over it, because | |
| 92 the procedure might add/delete elements, which would lose badly. */ | |
| 93 int nkids = cw->composite.num_children; | |
| 94 Widget *kids = (Widget *) malloc (sizeof (Widget) * nkids); | |
| 95 int i; | |
| 96 memcpy (kids, cw->composite.children, sizeof (Widget) * nkids); | |
| 97 for (i = 0; i < nkids; i++) | |
| 98 /* This prevent us from using gadgets, why is it here? */ | |
| 99 /* if (XtIsWidget (kids [i])) */ | |
| 100 { | |
| 101 /* do the kiddies first in case we're destroying */ | |
| 102 XtApplyToWidgets (kids [i], proc, arg); | |
| 103 proc (kids [i], arg); | |
| 104 } | |
| 105 free (kids); | |
| 106 } | |
| 107 } | |
| 108 | |
| 109 | |
| 110 /* | |
| 111 * Apply a function to all the subwidgets of a given widget recursively. | |
| 112 * Stop as soon as the function returns non NULL and returns this as a value. | |
| 113 */ | |
| 114 void * | |
| 115 XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg) | |
| 116 { | |
| 117 void* result; | |
| 118 if (XtIsComposite (w)) | |
| 119 { | |
| 120 CompositeWidget cw = (CompositeWidget)w; | |
| 121 int i; | |
| 647 | 122 for (i = 0; i < (int) cw->composite.num_children; i++) |
| 123 if (XtIsWidget (cw->composite.children[i])) | |
| 124 { | |
| 125 result = proc (cw->composite.children[i], arg); | |
| 126 if (result) | |
| 127 return result; | |
| 128 result = XtApplyUntilToWidgets (cw->composite.children[i], proc, | |
| 129 arg); | |
| 130 if (result) | |
| 131 return result; | |
| 132 } | |
| 428 | 133 } |
| 134 return NULL; | |
| 135 } | |
| 136 | |
| 137 | |
| 138 /* | |
| 139 * Returns a copy of the list of all children of a composite widget | |
| 140 */ | |
| 141 Widget * | |
| 142 XtCompositeChildren (Widget widget, unsigned int* number) | |
| 143 { | |
| 144 CompositeWidget cw = (CompositeWidget)widget; | |
| 145 Widget* result; | |
| 146 int n; | |
| 147 int i; | |
| 148 | |
| 149 if (!XtIsComposite (widget)) | |
| 150 { | |
| 151 *number = 0; | |
| 152 return NULL; | |
| 153 } | |
| 154 n = cw->composite.num_children; | |
| 155 result = (Widget*)XtMalloc (n * sizeof (Widget)); | |
| 156 *number = n; | |
| 157 for (i = 0; i < n; i++) | |
| 158 result [i] = cw->composite.children [i]; | |
| 159 return result; | |
| 160 } | |
| 161 | |
| 162 Boolean | |
| 163 XtWidgetBeingDestroyedP (Widget widget) | |
| 164 { | |
| 165 return widget->core.being_destroyed; | |
| 166 } | |
| 167 | |
| 168 void | |
| 2286 | 169 XtSafelyDestroyWidget (Widget UNUSED (widget)) |
| 428 | 170 { |
| 171 #if 0 | |
| 172 | |
| 173 /* this requires IntrinsicI.h (actually, InitialI.h) */ | |
| 174 | |
| 175 XtAppContext app = XtWidgetToApplicationContext(widget); | |
| 176 | |
| 177 if (app->dispatch_level == 0) | |
| 178 { | |
| 179 app->dispatch_level = 1; | |
| 180 XtDestroyWidget (widget); | |
| 181 /* generates an event so that the event loop will be called */ | |
| 182 XChangeProperty (XtDisplay (widget), XtWindow (widget), | |
| 183 XA_STRING, XA_STRING, 32, PropModeAppend, NULL, 0); | |
| 184 app->dispatch_level = 0; | |
| 185 } | |
| 186 else | |
| 187 XtDestroyWidget (widget); | |
| 188 | |
| 189 #else | |
| 190 abort (); | |
| 191 #endif | |
| 192 } |