You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tqt3/extensions/nsplugin/src/qnp.cpp

2072 lines
50 KiB

/****************************************************************************
**
** Implementation of TQt extension classes for Netscape Plugin support.
**
** Created : 970601
**
** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved.
**
** This file is part of the TQt GUI Toolkit.
**
** This file may be used under the terms of the GNU General
** Public License versions 2.0 or 3.0 as published by the Free
** Software Foundation and appearing in the files LICENSE.GPL2
** and LICENSE.GPL3 included in the packaging of this file.
** Alternatively you may (at your option) use any later version
** of the GNU General Public License if such license has been
** publicly approved by Trolltech ASA (or its successors, if any)
** and the KDE Free TQt Foundation.
**
** Please review the following information to ensure GNU General
** Public Licensing requirements will be met:
** http://trolltech.com/products/qt/licenses/licensing/opensource/.
** If you are unsure which license is appropriate for your use, please
** review the following information:
** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
** or contact the sales department at sales@trolltech.com.
**
** This file may be used under the terms of the Q Public License as
** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
** included in the packaging of this file. Licensees holding valid TQt
** Commercial licenses may use this file in accordance with the TQt
** Commercial License Agreement provided with the Software.
**
** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
** herein.
**
**********************************************************************/
// Remaining Q_WS_X11 considerations:
// - What if !piApp upon NPP_NewStream? Are we safe?
// - Yes, but users need to know of this: that no GUI can be
// done until after setWindow is called.
// - Use NPN_GetValue in Communicator4.0 to get the display earlier!
// - For ClientMessage events, trap them, and if they are not for us,
// untrap them and retransmit them and set a timer to retrap them
// after N seconds.
// Remaining Q_WS_WIN considerations:
// - we need to activateZeroTimers() at some time.
// - we need to call winEventFilter on events
// - timers:
// if ( msg.message == WM_TIMER ) { // timer message received
// activateTimer( msg.wParam );
// return TRUE;
// }
// if ( msg.message == WM_KEYDOWN || msg.message == WM_KEYUP ) {
// if ( translateKeyCode(msg.wParam) == 0 ) {
// TranslateMessage( &msg ); // translate to WM_CHAR
// return TRUE;
// }
// }
// - qWinProcessConfigRequests?
// Remaining general stuff:
// - Provide the "reason" parameter to streamDestroyed
// TQt stuff
#include <ntqapplication.h>
#include <ntqeventloop.h>
#include <ntqwidget.h>
#include <ntqobjectlist.h>
#include <ntqcursor.h>
#include <ntqprinter.h>
#include <ntqfile.h>
#include <ntqpainter.h>
#include "ntqnp.h"
#include <stdlib.h> // Must be here for Borland C++
#include <stdio.h>
#include <string.h>
#include <time.h>
#include <limits.h>
#ifdef Q_WS_X11
#include <X11/Intrinsic.h>
class TQNPXtPrivate;
class TQNPXt : public TQEventLoop
{
public:
TQNPXt( const char *applicationClass, XtAppContext context = NULL, XrmOptionDescRec *options = 0, int numOptions = 0);
~TQNPXt();
XtAppContext applicationContext() const;
void registerSocketNotifier( TQSocketNotifier * );
void unregisterSocketNotifier( TQSocketNotifier * );
static void registerWidget( TQWidget* );
static void unregisterWidget( TQWidget* );
static bool redeliverEvent( XEvent *event );
static XEvent* lastEvent();
protected:
bool processEvents( ProcessEventsFlags flags );
private:
void appStartingUp();
void appClosingDown();
TQNPXtPrivate *d;
};
#define GC GC_QQQ
#endif
extern "C" {
//
// Netscape plugin API
//
#ifdef Q_WS_WIN
#ifndef _WINDOWS
#define _WINDOWS
#endif
#endif
#ifdef Q_WS_X11
#define XP_UNIX
#endif
// This is to allow mingw support on windows without altering the sun header files
#if defined(Q_CC_GNU) && defined(Q_WS_WIN) && !defined(_MSC_VER)
#define _MSC_VER 1
#include "npapi.h"
#undef _MSC_VER
#else
#include "npapi.h"
#endif
#ifdef Q_WS_X11
#undef XP_UNIX
#include "npunix.c"
#endif
//
// Stuff for the NPP_SetWindow function:
//
#ifdef Q_WS_X11
#include <X11/Xlib.h>
#include <X11/Intrinsic.h>
#include <X11/IntrinsicP.h> // for XtCreateWindow
#include <X11/Shell.h>
#include <X11/StringDefs.h>
#include <X11/Xutil.h>
#include <X11/Xos.h>
//#include <dlfcn.h>
#endif
#ifdef Q_WS_WIN
#include <windows.h>
#endif
}
#ifdef Q_WS_WIN
#include "npwin.cpp"
#endif
static TQEventLoop* event_loop = 0;
static TQApplication* application = 0;
struct _NPInstance
{
uint16 fMode;
#ifdef Q_WS_WIN
HWND window;
#endif
NPP npp;
#ifdef Q_WS_X11
Window window;
Display *display;
#endif
uint32 x, y;
uint32 width, height;
TQNPWidget* widget;
TQNPInstance* instance;
int16 argc;
TQString *argn;
TQString *argv;
};
// The single global plugin
static TQNPlugin *qNP=0;
static int instance_count=0;
// Temporary parameter passed `around the side' of calls to user functions
static _NPInstance* next_pi=0;
// To avoid looping when browser OR plugin can delete streams
static int qnps_no_call_back = 0;
#ifdef Q_WS_WIN
// defined in qapplication_win.cpp
Q_EXPORT extern bool qt_win_use_simple_timers;
Q_EXPORT void qWinProcessConfigRequests();
static HHOOK hhook = 0;
LRESULT CALLBACK FilterProc( int nCode, WPARAM wParam, LPARAM lParam )
{
if ( tqApp ) {
tqApp->sendPostedEvents();
tqApp->eventLoop()->activateSocketNotifiers();
qWinProcessConfigRequests();
}
return CallNextHookEx( hhook, nCode, wParam, lParam );
}
#endif
#ifdef Q_WS_X11
static int (*original_x_errhandler)( Display *dpy, XErrorEvent * ) = 0;
static int dummy_x_errhandler( Display *, XErrorEvent * )
{
return 0;
}
#endif
/******************************************************************************
* Plug-in Calls - these are called by Netscape
*****************************************************************************/
// Instance state information about the plugin.
#ifdef Q_WS_X11
extern "C" char*
NPP_GetMIMEDescription(void)
{
if (!qNP) qNP = TQNPlugin::create();
return (char*)qNP->getMIMEDescription();
}
extern "C" NPError
NPP_GetValue(void * /*future*/, NPPVariable variable, void *value)
{
if (!qNP) qNP = TQNPlugin::create();
NPError err = NPERR_NO_ERROR;
if (variable == NPPVpluginNameString)
*((const char **)value) = qNP->getPluginNameString();
else if (variable == NPPVpluginDescriptionString)
*((const char **)value) = qNP->getPluginDescriptionString();
else
err = NPERR_GENERIC_ERROR;
return err;
}
#endif
/*
** NPP_Initialize is called when your DLL is being loaded to do any
** DLL-specific initialization.
*/
extern "C" NPError
NPP_Initialize(void)
{
#ifdef Q_WS_WIN
qt_win_use_simple_timers = TRUE;
// Nothing more - we do it in DLLMain
#endif
if (!qNP) qNP = TQNPlugin::create();
return NPERR_NO_ERROR;
}
static jref plugin_java_class = 0;
/*
** NPP_GetJavaClass is called during initialization to ask your plugin
** what its associated Java class is. If you don't have one, just return
** NULL. Otherwise, use the javah-generated "use_" function to both
** initialize your class and return it. If you can't find your class, an
** error will be signalled by "use_" and will cause the Navigator to
** complain to the user.
*/
extern "C" jref
NPP_GetJavaClass(void)
{
if (!qNP) qNP = TQNPlugin::create();
plugin_java_class = (jref)qNP->getJavaClass();
return plugin_java_class;
}
/*
** NPP_Shutdown is called when your DLL is being unloaded to do any
** DLL-specific shut-down. You should be a good citizen and declare that
** you're not using your java class any more. This allows java to unload
** it, freeing up memory.
*/
extern "C" void
NPP_Shutdown(void)
{
if (qNP) {
if (plugin_java_class)
qNP->unuseJavaClass();
delete qNP;
qNP = 0;
}
#ifdef Q_WS_X11
if ( original_x_errhandler )
XSetErrorHandler( original_x_errhandler );
#endif
if ( tqApp) {
#ifdef Q_WS_WIN32
if ( hhook )
UnhookWindowsHookEx( hhook );
hhook = 0;
#endif
delete application;
delete event_loop;
}
}
struct NS_Private {
uchar* a;
uchar* b;
};
/*
** NPP_New is called when your plugin is instantiated (i.e. when an EMBED
** tag appears on a page).
*/
extern "C" NPError
NPP_New(NPMIMEType /*pluginType*/,
NPP instance,
uint16 mode,
int16 argc,
char* argn[],
char* argv[],
NPSavedData* /*saved*/)
{
NPError result = NPERR_NO_ERROR;
_NPInstance* This;
if (instance == NULL)
return NPERR_INVALID_INSTANCE_ERROR;
instance->pdata = new _NPInstance;
This = (_NPInstance*) instance->pdata;
if (This == NULL)
return NPERR_OUT_OF_MEMORY_ERROR;
This->npp = instance;
/* mode is NP_EMBED, NP_FULL, or NP_BACKGROUND (see npapi.h) */
This->fMode = mode;
This->window = 0;
This->widget = 0;
This->argc = argc;
This->argn = new TQString[argc+1];
This->argv = new TQString[argc+1];
for (int i=0; i<This->argc; i++) {
This->argn[i] = argn[i];
This->argv[i] = argv[i];
}
// Everything is set up - we can let TQNPInstance be created now.
next_pi = This;
qNP->newInstance();
instance_count++;
return result;
}
extern "C" NPError
NPP_Destroy(NPP instance, NPSavedData** /*save*/)
{
_NPInstance* This;
if (instance == NULL)
return NPERR_INVALID_INSTANCE_ERROR;
This = (_NPInstance*) instance->pdata;
if (This != NULL) {
delete This->widget;
delete This->instance;
delete [] This->argn;
delete [] This->argv;
delete This;
instance->pdata = NULL;
instance_count--;
}
return NPERR_NO_ERROR;
}
extern "C" NPError
NPP_SetWindow(NPP instance, NPWindow* window)
{
if (!qNP) qNP = TQNPlugin::create();
NPError result = NPERR_NO_ERROR;
_NPInstance* This;
if (instance == NULL)
return NPERR_INVALID_INSTANCE_ERROR;
This = (_NPInstance*) instance->pdata;
// take a shortcut if all that was changed is the geometry
if ( This->widget && window
#ifdef Q_WS_X11
&& This->window == (Window) window->window
#endif
#ifdef Q_WS_WIN
&& This->window == (HWND) window->window
#endif
) {
This->x = window->x;
This->y = window->y;
This->width = window->width;
This->height = window->height;
This->widget->resize( This->width, This->height );
return result;
}
delete This->widget;
if ( !window )
return result;
#ifdef Q_WS_X11
This->window = (Window) window->window;
This->display =
((NPSetWindowCallbackStruct *)window->ws_info)->display;
#endif
#ifdef Q_WS_WIN
This->window = (HWND) window->window;
#endif
This->x = window->x;
This->y = window->y;
This->width = window->width;
This->height = window->height;
if (!tqApp) {
#ifdef Q_WS_X11
// We are the first TQt-based plugin to arrive
event_loop = new TQNPXt( "qnp", XtDisplayToApplicationContext(This->display) );
application = new TQApplication(This->display);
#endif
#ifdef Q_WS_WIN
static int argc=0;
static char **argv={ 0 };
application = new TQApplication( argc, argv );
#ifdef UNICODE
if ( qWinVersion() & TQt::WV_NT_based )
hhook = SetWindowsHookExW( WH_GETMESSAGE, FilterProc, 0, GetCurrentThreadId() );
else
#endif
hhook = SetWindowsHookExA( WH_GETMESSAGE, FilterProc, 0, GetCurrentThreadId() );
#endif
}
#ifdef Q_WS_X11
if ( !original_x_errhandler )
original_x_errhandler = XSetErrorHandler( dummy_x_errhandler );
#endif
// New widget on this new window.
next_pi = This;
/* This->widget = */ // (happens sooner - in TQNPWidget constructor)
This->instance->newWindow();
if ( !This->widget )
return result;
#ifdef Q_WS_X11
This->widget->resize( This->width, This->height );
XReparentWindow( This->widget->x11Display(), This->widget->winId(), This->window, 0, 0 );
XSync( This->widget->x11Display(), False );
#endif
#ifdef Q_WS_WIN
LONG oldLong = GetWindowLong(This->window, GWL_STYLE);
::SetWindowLong(This->window, GWL_STYLE, oldLong | WS_CLIPCHILDREN | WS_CLIPSIBLINGS);
::SetWindowLong( This->widget->winId(), GWL_STYLE, WS_CHILD | WS_CLIPCHILDREN | WS_CLIPSIBLINGS );
::SetParent( This->widget->winId(), This->window );
This->widget->raise();
This->widget->setGeometry( 0, 0, This->width, This->height );
#endif
This->widget->show();
return result;
}
extern "C" NPError
NPP_NewStream(NPP instance,
NPMIMEType type,
NPStream *stream,
NPBool seekable,
uint16 *stype)
{
_NPInstance* This;
if (instance == NULL)
return NPERR_INVALID_INSTANCE_ERROR;
This = (_NPInstance*) instance->pdata;
if ( This ) {
TQNPStream* qnps = new TQNPStream(This->instance,type,stream,seekable);
stream->pdata = qnps;
TQNPInstance::StreamMode sm = (TQNPInstance::StreamMode)*stype;
if (!This->instance->newStreamCreated(qnps, sm)) {
return NPERR_GENERIC_ERROR;
}
*stype = sm;
}
return NPERR_NO_ERROR;
}
int32 STREAMBUFSIZE = 0X0FFFFFFF; /* If we are reading from a file in NPAsFile
* mode so we can take any size stream in our
* write call (since we ignore it) */
extern "C" int32
NPP_WriteReady(NPP instance, NPStream *stream)
{
_NPInstance* This;
if (instance != NULL) {
This = (_NPInstance*) instance->pdata;
} else {
// Yikes, that's unusual!
return 0;
}
if (This) {
return This->instance->writeReady((TQNPStream*)stream->pdata);
}
/* Number of bytes ready to accept in NPP_Write() */
return STREAMBUFSIZE;
}
extern "C" int32
NPP_Write(NPP instance, NPStream *stream, int32 offset, int32 len, void *buffer)
{
if (instance != NULL)
{
_NPInstance* This = (_NPInstance*) instance->pdata;
if (This) {
return This->instance->write((TQNPStream*)stream->pdata,
offset, len, buffer);
}
}
return len; /* The number of bytes accepted */
}
extern "C" NPError
NPP_DestroyStream(NPP instance, NPStream *stream, NPError reason)
{
_NPInstance* This;
if (instance == NULL)
return NPERR_INVALID_INSTANCE_ERROR;
if (!qnps_no_call_back) {
This = (_NPInstance*) instance->pdata;
TQNPStream* qnps = (TQNPStream*)stream->pdata;
if ( qnps )
switch (reason) {
case NPRES_DONE:
qnps->setComplete(TRUE);
break;
case NPRES_USER_BREAK:
break;
case NPRES_NETWORK_ERR:
qnps->setOkay(FALSE);
break;
}
if (This) {
// Give the instance a chance to do something
This->instance->streamDestroyed(qnps);
}
qnps_no_call_back++;
delete qnps;
qnps_no_call_back--;
}
return NPERR_NO_ERROR;
}
extern "C" void
NPP_StreamAsFile(NPP instance, NPStream *stream, const char* fname)
{
_NPInstance* This;
if (instance == NULL) return;
This = (_NPInstance*) instance->pdata;
if ( This ) {
TQNPStream* qnps = (TQNPStream*)stream->pdata;
This->instance->streamAsFile(qnps, fname);
}
}
typedef struct
{
int32 type;
FILE* fp;
} NPPrintCallbackStruct;
#ifdef Q_WS_X11
class TQNPPrinter : public TQPrinter {
TQFile file;
public:
TQNPPrinter(FILE* fp)
{
file.open(IO_WriteOnly, fp);
TQPDevCmdParam param;
param.device = &file;
cmd(PdcSetdev, 0, &param);
}
void end()
{
TQPDevCmdParam param;
param.device = 0;
cmd(PdcSetdev, 0, &param);
}
};
#endif
extern "C" void
NPP_Print(NPP instance, NPPrint* printInfo)
{
if(printInfo == NULL)
return;
if (instance != NULL) {
_NPInstance* This = (_NPInstance*) instance->pdata;
if (printInfo->mode == NP_FULL) {
printInfo->print.fullPrint.pluginPrinted =
This->instance->printFullPage();
} else if (printInfo->mode == NP_EMBED) {
#ifdef Q_WS_X11
void* platformPrint =
printInfo->print.embedPrint.platformPrint;
FILE* outfile = ((NPPrintCallbackStruct*)platformPrint)->fp;
if (ftell(outfile)) {
// NPWindow* w =
// &(printInfo->print.embedPrint.window);
TQNPPrinter prn(outfile);
TQPainter painter(&prn);
// #### config viewport with w->{x,y,width,height}
This->instance->print(&painter);
prn.end();
} else {
// Why does the browser make spurious NPP_Print calls?
}
#endif
#ifdef Q_WS_WIN
NPWindow* printWindow =
&(printInfo->print.embedPrint.window);
void* platformPrint =
printInfo->print.embedPrint.platformPrint;
// #### Nothing yet.
#endif
}
}
}
extern "C" void
NPP_URLNotify(NPP instance,
const char* url,
NPReason reason,
void* notifyData)
{
if (instance != NULL) {
TQNPInstance::Reason r;
switch (reason) {
case NPRES_DONE:
r = TQNPInstance::ReasonDone;
break;
case NPRES_USER_BREAK:
r = TQNPInstance::ReasonBreak;
break;
case NPRES_NETWORK_ERR:
r = TQNPInstance::ReasonError;
break;
default:
r = TQNPInstance::ReasonUnknown;
break;
}
_NPInstance* This = (_NPInstance*) instance->pdata;
This->instance->notifyURL(url, r, notifyData);
}
}
#ifdef Q_WS_WIN
BOOL WINAPI DllMain (HANDLE hInst,
ULONG ul_reason_for_call,
LPVOID lpReserved)
{
return TRUE;
}
#endif
/*!
\class TQNPWidget ntqnp.h
\brief The TQNPWidget class provides a TQWidget that is a web browser plugin window.
\extension Netscape Plugin
Derive from TQNPWidget to create a widget that can be used as a
web browser plugin window, or create one and add child widgets.
Instances of TQNPWidget may only be created when
TQNPInstance::newWindow() is called by the browser.
A common way to develop a plugin widget is to develop it as a
stand-alone application window, then make it a \e child of a
plugin widget to use it as a browser plugin. The technique is:
\code
class MyPluginWindow : public TQNPWidget
{
TQWidget* child;
public:
MyPluginWindow()
{
// Some widget that is normally used as a top-level widget
child = new MyIndependentlyDevelopedWidget();
// Use the background color of the web page
child->setBackgroundColor( backgroundColor() );
// Fill the plugin widget
child->setGeometry( 0, 0, width(), height() );
}
void resizeEvent(TQResizeEvent*)
{
// Fill the plugin widget
child->resize(size());
}
};
\endcode
The default implementation is an empty window.
*/
/*!
Creates a TQNPWidget.
*/
TQNPWidget::TQNPWidget() :
pi(next_pi)
{
if (!next_pi) {
qFatal("TQNPWidget must only be created within call to newWindow");
}
next_pi->widget = this;
next_pi = 0;
#ifdef Q_WS_WIN
clearWFlags( WStyle_NormalBorder | WStyle_Title | WStyle_MinMax | WStyle_SysMenu );
topData()->ftop = 0;
topData()->fright = 0;
topData()->fleft = 0;
topData()->fbottom = 0;
#endif
}
/*!
Destroys the window. This will be called by the plugin binding
code when the window is no longer required. The web browser will
delete windows when they leave the page. The bindings will change
the TQWidget::winId() of the window when the window is resized, but
this should not affect normal widget behavior.
*/
TQNPWidget::~TQNPWidget()
{
#ifdef Q_WS_X11
destroy( FALSE, FALSE ); // X has destroyed all windows
#endif
}
/*!\internal */
void TQNPWidget::enterEvent(TQEvent*)
{
enterInstance();
}
/*!\internal */
void TQNPWidget:: leaveEvent(TQEvent*)
{
if ( !TQApplication::activePopupWidget() )
leaveInstance();
}
/*!
Called when the mouse enters the plugin window. Does nothing by
default.
*/
void TQNPWidget::enterInstance()
{
}
/*!
Called when the mouse leaves the plugin window. Does nothing by
default.
*/
void TQNPWidget::leaveInstance()
{
}
/*!
Returns the instance for which this widget is the plugin window.
*/
TQNPInstance* TQNPWidget::instance()
{
return pi->instance;
}
/*!
\class TQNPInstance ntqnp.h
\brief The TQNPInstance class provides a TQObject that is a web browser plugin.
\extension Netscape Plugin
Deriving from TQNPInstance creates an object that represents a
single \c{<EMBED>} tag in an HTML document.
The TQNPInstance is responsible for creating an appropriate
TQNPWidget window if required (not all plugins have windows), and
for interacting with the input/output facilities intrinsic to
plugins.
Note that there is \e{absolutely no guarantee} regarding the order
in which functions are called. Sometimes the browser will call
newWindow() first, at other times, newStreamCreated() will be
called first (assuming the \c{<EMBED>} tag has a SRC parameter).
\e{None of TQt's GUI functionality} may be used until after the
first call to newWindow(). This includes any use of TQPaintDevice
(i.e. TQPixmap, TQWidget, and all subclasses), TQApplication, anything
related to TQPainter (TQBrush, etc.), fonts, TQMovie, TQToolTip, etc.
Useful classes which specifically \e can be used are TQImage,
TQFile, and TQBuffer.
This restriction can easily be accommodated by structuring your
plugin so that the task of the TQNPInstance is to gather data,
while the task of the TQNPWidget is to provide a graphical
interface to that data.
*/
/*!
\enum TQNPInstance::InstanceMode
This enum type provides TQt-style names for three #defines in
\c npapi.h:
\value Embed - corresponds to NP_EMBED
\value Full - corresponds to NP_FULL
\value Background - corresponds to NP_BACKGROUND
*/
/*!
\enum TQNPInstance::Reason
\value ReasonDone
\value ReasonBreak
\value ReasonError
\value ReasonUnknown
*/
/*!
\enum TQNPInstance::StreamMode
\value Normal
\value Seek
\value AsFile
\value AsFileOnly
*/
/*!
Creates a TQNPInstance.
Can only be called from within a derived class created within
TQNPlugin::newInstance().
*/
TQNPInstance::TQNPInstance() :
pi(next_pi)
{
if (!next_pi) {
qFatal("TQNPInstance must only be created within call to newInstance");
}
next_pi->instance = this;
next_pi = 0;
}
/*!
Called when the plugin instance is about to be deleted.
*/
TQNPInstance::~TQNPInstance()
{
}
/*!
Called at most once, at some time after the TQNPInstance is
created. If the plugin requires a window, this function should
return a derived class of TQNPWidget that provides the required
interface.
*/
TQNPWidget* TQNPInstance::newWindow()
{
// No window by default
next_pi = 0;
return 0;
}
/*!
Returns the plugin window created by newWindow(), if any.
*/
TQNPWidget* TQNPInstance::widget()
{
return pi->widget;
}
/*!
\fn bool TQNPInstance::newStreamCreated(TQNPStream*, StreamMode& smode)
This function is called when a new stream has been created. The
instance should return TRUE if it accepts the processing of the
stream. If the instance requires the stream as a file, it should
set \a smode to \c AsFileOnly, in which case the data will be
delivered some time later to the streamAsFile() function.
Otherwise, the data will be delivered in chunks to the write()
function, which must consume at least as much data as returned
by the most recent call to writeReady().
Note that the \c AsFileOnly method is not supported by Netscape
2.0 and MSIE 3.0.
The default implementation accepts any stream.
*/
bool TQNPInstance::newStreamCreated(TQNPStream*, StreamMode&)
{
return TRUE;
}
/*!
Called when a stream is delivered as a single file called \a fname
rather than as chunks. This may be simpler for a plugin to deal
with, but precludes any incremental behavior.
Note that the \c AsFileOnly method is not supported by Netscape
2.0 and MSIE 3.0.
\sa newStreamCreated(), newStream()
*/
void TQNPInstance::streamAsFile(TQNPStream*, const char* fname)
{
}
/*!
Called when a stream is destroyed. At this point, the stream may
be complete() and okay(). If it is not okay(), then an error has
occurred. If it is okay(), but not complete(), then the user has
cancelled the transmission; do not give an error message in this
case.
*/
void TQNPInstance::streamDestroyed(TQNPStream*)
{
}
/*!
Returns the minimum amount of data the instance is willing to
receive from the given stream.
The default returns a very large value.
*/
int TQNPInstance::writeReady(TQNPStream*)
{
// Yes, we can handle any amount of data at once.
return 0X0FFFFFFF;
}
/*!
\fn int TQNPInstance::write(TQNPStream*, int offset, int len, void* buffer)
Called when incoming data is available for processing by the
instance. The instance \e must consume at least the amount that it
returned in the most recent call to writeReady(), but it may
consume up to the amount given by \a len. \a buffer is the data
available for consumption. The \a offset argument is merely an
informational value indicating the total amount of data that has
been consumed in prior calls.
This function should return the amount of data actually consumed.
*/
int TQNPInstance::write(TQNPStream*, int, int len, void*)
{
// Yes, we processed it all... into the bit bucket.
return len;
}
/*!
Requests that the \a url be retrieved and sent to the named \a
window. See Netscape's JavaScript documentation for an explanation
of window names.
*/
void TQNPInstance::getURL(const char* url, const char* window)
{
NPN_GetURL( pi->npp, url, window );
}
/*!
\preliminary
This function is \e{not tested}.
It is an interface to the NPN_PostURL function of the Netscape
Plugin API.
Passes \a url, \a window, \a buf, \a len, and \a file to
NPN_PostURL.
*/
void TQNPInstance::postURL(const char* url, const char* window,
uint len, const char* buf, bool file)
{
NPN_PostURL( pi->npp, url, window, len, buf, file );
}
/*!
Requests that the given \a url be retrieved and sent to
the named \a window. See Netscape's JavaScript documentation for
an explanation of window names. Passes the arguments including \a
data to NPN_GetURLNotify.
\sa
\link http://developer.netscape.com/docs/manuals/communicator/plugin/refpgur.htm#npngeturlnotify
Netscape: NPN_GetURLNotify method\endlink
*/
void TQNPInstance::getURLNotify(const char* url, const char* window, void*data)
{
#ifdef Q_WS_WIN // Only on Windows?
NPN_GetURLNotify( pi->npp, url, window, data );
#else
Q_UNUSED( url );
Q_UNUSED( window );
Q_UNUSED( data );
#endif
}
/*!
\preliminary
This function is \e{not tested}.
It is an encapsulation of the NPP_Print function of the Netscape
Plugin API.
*/
bool TQNPInstance::printFullPage()
{
return FALSE;
}
/*!
\preliminary
This function is \e{not tested}.
Print the instance embedded in a page.
It is an encapsulation of the NPP_Print function of the Netscape
Plugin API.
*/
void TQNPInstance::print(TQPainter*)
{
// ### default could redirected-print the window.
}
/*!
Returns the number of arguments to the instance. Note that you
should not normally rely on the ordering of arguments, and
note that the SGML specification does not permit multiple
arguments with the same name.
\sa arg(), argn()
*/
int TQNPInstance::argc() const
{
return pi->argc;
}
/*!
Returns the name of the \a{i}-th argument.
\sa argc(), argv()
*/
const char* TQNPInstance::argn(int i) const
{
return pi->argn[i];
}
/*!
\preliminary
This function is \e{not tested}.
Called whenever a \a url is notified after a call to
NPN_GetURLNotify with \a notifyData. The reason is given in \a r.
It is an encapsulation of the NPP_URLNotify function of the
Netscape Plugin API.
See also:
\link http://developer.netscape.com/docs/manuals/communicator/plugin/refpgur.htm#nppurlnotify
Netscape: NPP_URLNotify method\endlink
*/
void TQNPInstance::notifyURL(const char*, Reason, void*)
{
}
/*!
Returns the value of the \a{i}-th argument.
\as argc(), arg()
*/
const char* TQNPInstance::argv(int i) const
{
return pi->argv[i];
}
/*!
Returns the mode of the plugin.
*/
TQNPInstance::InstanceMode TQNPInstance::mode() const
{
return (TQNPInstance::InstanceMode)pi->fMode;
}
/*!
Returns the value of the named arguments, or 0 if no argument
called \a name appears in the \c{<EMBED>} tag of this instance.
If the argument appears, but has no value assigned, the empty
string is returned. In summary:
\table
\header \i Tag \i Result
\row \i \c{<EMBED ...>} \i arg("FOO") == 0
\row \i \c{<EMBED FOO ...>} \i arg("FOO") == ""
\row \i \c{<EMBED FOO=BAR ...>} \i arg("FOO") == "BAR"
\endtable
*/
const char* TQNPInstance::arg(const char* name) const
{
for (int i=0; i<pi->argc; i++) {
// SGML: names are case insensitive
if ( qstricmp( name, pi->argn[i] ) == 0 ) {
if (pi->argv[i].isEmpty())
return "";
else
return pi->argv[i];
}
}
return 0;
}
/*!
Returns the user agent (browser name) containing this instance.
*/
const char* TQNPInstance::userAgent() const
{
return NPN_UserAgent(pi->npp);
}
/*!
\preliminary
This function is \e{not tested}.
Requests the creation of a new data stream \e from the plugin.
The MIME type and window are passed in \a mimetype and \a window.
\a as_file holds the \c AsFileOnly flag. It is an interface to the
NPN_NewStream function of the Netscape Plugin API.
*/
TQNPStream* TQNPInstance::newStream(const char* mimetype, const char* window,
bool as_file)
{
NPStream* s=0;
NPError err = NPN_NewStream(pi->npp, (char*)mimetype, window, &s);
if (err != NPERR_NO_ERROR) return 0;
return s ? new TQNPStream(this, mimetype, s, as_file) : 0;
}
/*!
Sets the status message in the browser containing this instance to
\a msg.
*/
void TQNPInstance::status(const char* msg)
{
NPN_Status(pi->npp, msg);
}
/*!
Returns the Java object associated with the plugin instance, an
object of the \link TQNPlugin::getJavaClass() plugin's Java
class\endlink, or 0 if the plug-in does not have a Java class,
Java is disabled, or an error occurred.
The return value is actually a \c{jref} we use \c{void*} so as to
avoid burdening plugins which do not require Java.
\sa TQNPlugin::getJavaClass(), TQNPlugin::getJavaEnv(), getJavaPeer()
*/
void* TQNPInstance::getJavaPeer() const
{
return NPN_GetJavaPeer(pi->npp);
}
/*!
\class TQNPStream ntqnp.h
\brief The TQNPStream class provides a stream of data provided to a TQNPInstance by the browser.
\extension Netscape Plugin
Note that this is neither a TQTextStream nor a TQDataStream.
\sa TQNPInstance::write(), TQNPInstance::newStreamCreated()
*/
/*!
Creates a stream. Plugins should not call this; they should call
TQNPInstance::newStream() if they need a stream.
Takes a TQNPInstance \a in, MIME type \a mt, a pointer to an
_NPStream \a st and a seekable flag \a se.
*/
TQNPStream::TQNPStream(TQNPInstance* in,const char* mt, _NPStream* st, bool se) :
inst(in),
stream(st),
mtype(mt),
seek(se)
{
isokay = TRUE;
iscomplete = FALSE;
}
/*!
Destroys the stream.
*/
TQNPStream::~TQNPStream()
{
if (!qnps_no_call_back) {
qnps_no_call_back++;
NPN_DestroyStream(inst->pi->npp, stream, NPRES_USER_BREAK);
qnps_no_call_back--;
}
}
/*!
\fn TQNPInstance* TQNPStream::instance()
Returns the TQNPInstance for which this stream was created.
*/
/*!
Returns the URL from which the stream was created.
*/
const char* TQNPStream::url() const
{
return stream->url;
}
/*!
Returns the length of the stream in bytes. The function might
return 0 for streams of unknown length.
*/
uint TQNPStream::end() const
{
return stream->end;
}
/*!
Returns the time when the source of the stream was last modified.
*/
uint TQNPStream::lastModified() const
{
return stream->lastmodified;
}
/*!
Returns the MIME type of the stream.
*/
const char* TQNPStream::type() const
{
return mtype;
}
/*!
Returns TRUE if the stream is seekable; otherwise returns FALSE.
*/
bool TQNPStream::seekable() const
{
return seek;
}
/*!
\internal
*/
void TQNPStream::setOkay(bool y)
{
isokay = y;
}
/*!
\internal
*/
void TQNPStream::setComplete(bool y)
{
iscomplete = y;
}
/*!
Returns TRUE if no errors have occurred on the stream; otherwise
returns FALSE.
*/
bool TQNPStream::okay() const
{
return isokay;
}
/*!
Returns TRUE if the stream has received all the data from the
source; otherwise returns FALSE.
*/
bool TQNPStream::complete() const
{
return iscomplete;
}
/*!
Requests the section of the stream, of \a length bytes from \a
offset, be sent to the TQNPInstance::write() function of the
instance() of this stream.
*/
void TQNPStream::requestRead(int offset, uint length)
{
NPByteRange range;
range.offset = offset;
range.length = length;
range.next = 0; // ### Only one supported at this time
NPN_RequestRead(stream, &range);
}
/*!
Writes \a len bytes from \a buffer \e to the stream.
*/
int TQNPStream::write( int len, void* buffer )
{
return NPN_Write(inst->pi->npp, stream, len, buffer);
}
/******************************************************************************
* The plugin itself - only one ever exists, created by TQNPlugin::create()
*****************************************************************************/
/*!
\class TQNPlugin ntqnp.h
\brief The TQNPlugin class provides the main factory for plugin objects.
\extension Netscape Plugin
This class is the heart of the plugin. One instance of this object
is created when the plugin is \e first needed, by calling
TQNPlugin::create(), which must be implemented in your plugin code
to return some derived class of TQNPlugin. The one TQNPlugin object
creates all TQNPInstance instances for a web browser running in a
single process.
Additionally, if TQt is linked to the plugin as a dynamic library,
only one instance of TQApplication will exist \e{across all plugins
that have been made with TQt}. So, your plugin should tread lightly
on global settings. Do not, for example, use
TQApplication::setFont() - that will change the font in every
widget of every TQt-based plugin currently loaded!
*/
/*!
\fn TQNPlugin* TQNPlugin::create()
This function must be implemented by your plugin code. It should return a
derived class of TQNPlugin.
*/
/*!
Returns the plugin most recently returned by TQNPlugin::create().
*/
TQNPlugin* TQNPlugin::actual()
{
return qNP;
}
/*!
Creates a TQNPlugin. This may only be used by the constructor
of the class, derived from TQNPlugin, that is returned by your
plugin's implementation of the TQNPlugin::create() function.
*/
TQNPlugin::TQNPlugin()
{
// Encourage linker to include stuff.
static void* a;
a = (void*)NP_Initialize;
a = (void*)NP_Shutdown;
}
/*!
Destroys the TQNPlugin. This is called by the plugin binding code
just before the plugin is about to be unloaded from memory. If
newWindow() has been called, a TQApplication will still exist at
this time, but will be deleted shortly after, just before the plugin
is deleted.
*/
TQNPlugin::~TQNPlugin()
{
}
/*!
Populates \e *\a plugin_major and \e *\a plugin_minor with the
version of the plugin API and populates \e *\a browser_major and
\e *\a browser_minor with the version of the web browser.
*/
void TQNPlugin::getVersionInfo(int& plugin_major, int& plugin_minor,
int& browser_major, int& browser_minor)
{
NPN_Version(&plugin_major, &plugin_minor, &browser_major, &browser_minor);
}
/*!
\fn TQNPInstance* TQNPlugin::newInstance()
Override this function to return an appropriate derived class of
TQNPInstance.
*/
/*!
\fn const char* TQNPlugin::getMIMEDescription() const
Override this function to return the MIME description of the data formats
supported by your plugin. The format of this string is shown by
the following example:
\code
const char* getMIMEDescription() const
{
return "image/x-png:png:PNG Image;"
"image/png:png:PNG Image;"
"image/x-portable-bitmap:pbm:PBM Image;"
"image/x-portable-graymap:pgm:PGM Image;"
"image/x-portable-pixmap:ppm:PPM Image;"
"image/bmp:bmp:BMP Image;"
"image/x-ms-bmp:bmp:BMP Image;"
"image/x-xpixmap:xpm:XPM Image;"
"image/xpm:xpm:XPM Image";
}
\endcode
*/
/*!
\fn const char* TQNPlugin::getPluginNameString() const
Returns a pointer to the plain-text name of the plugin.
*/
/*!
\fn const char* TQNPlugin::getPluginDescriptionString() const
Returns a pointer to the plain-text description of the plugin.
*/
/*!
Override this function to return a reference to the Java class that represents
the plugin. The default returns 0, indicating no class.
If you override this class, you must also override
TQNPlugin::unuseJavaClass().
The return value is actually a \c{jref}; we use \c{void*} so as to
avoid burdening plugins which do not require Java.
\sa getJavaEnv(), TQNPInstance::getJavaPeer()
*/
void* TQNPlugin::getJavaClass()
{
return NULL;
}
/*!
This function is called when the plugin is shutting down. The
function should \e unuse the Java class returned earlier by
getJavaClass().
*/
void TQNPlugin::unuseJavaClass()
{
qFatal("TQNPlugin::unuseJavaClass() must be overridden along with getJavaClass()");
}
/*!
Returns a pointer to the Java execution environment, or 0 if
either Java is disabled or an error occurred.
The return value is actually a \c{JRIEnv*}; we use \c{void*} so as
to avoid burdening plugins which do not require Java.
\sa getJavaClass(), TQNPInstance::getJavaPeer()
*/
void* TQNPlugin::getJavaEnv() const
{
return NPN_GetJavaEnv();
}
#ifdef Q_WS_X11
#include <ntqapplication.h>
#include <ntqwidgetintdict.h>
// resolve the conflict between X11's FocusIn and TQEvent::FocusIn
const int XFocusOut = FocusOut;
const int XFocusIn = FocusIn;
#undef FocusOut
#undef FocusIn
const int XKeyPress = KeyPress;
const int XKeyRelease = KeyRelease;
#undef KeyPress
#undef KeyRelease
Boolean qnpxt_event_dispatcher( XEvent *event );
static void qnpxt_keep_alive();
void qnpxt_timeout_handler( XtPointer, XtIntervalId * );
class TQNPXtPrivate
{
public:
TQNPXtPrivate();
void hookMeUp();
void unhook();
XtAppContext appContext, ownContext;
TQMemArray<XtEventDispatchProc> dispatchers;
TQWidgetIntDict mapper;
TQIntDict<TQSocketNotifier> socknotDict;
uint pending_socknots;
bool activate_timers;
int timerid;
// arguments for Xt display initialization
const char* applicationClass;
XrmOptionDescRec* options;
int numOptions;
};
static TQNPXtPrivate *static_d = 0;
static XEvent* last_xevent = 0;
bool TQNPXt::redeliverEvent( XEvent *event )
{
// redeliver the event to Xt, NOT through TQt
if ( static_d->dispatchers[ event->type ]( event ) ) {
// qDebug( "Xt: redelivered event" );
return TRUE;
}
return FALSE;
};
XEvent* TQNPXt::lastEvent()
{
return last_xevent;
}
TQNPXtPrivate::TQNPXtPrivate()
: appContext(NULL), ownContext(NULL),
pending_socknots(0), activate_timers(FALSE), timerid(-1)
{
}
void TQNPXtPrivate::hookMeUp()
{
// worker to plug TQt into Xt (event dispatchers)
// and Xt into TQt (TQNPXtEventLoop)
// ### TODO extensions?
dispatchers.resize( LASTEvent );
dispatchers.fill( 0 );
int et;
for ( et = 2; et < LASTEvent; et++ )
dispatchers[ et ] =
XtSetEventDispatcher( TQPaintDevice::x11AppDisplay(),
et, ::qnpxt_event_dispatcher );
}
void TQNPXtPrivate::unhook()
{
// unhook TQt from Xt (event dispatchers)
// unhook Xt from TQt? (TQNPXtEventLoop)
// ### TODO extensions?
int et;
for ( et = 2; et < LASTEvent; et++ )
(void) XtSetEventDispatcher( TQPaintDevice::x11AppDisplay(),
et, dispatchers[ et ] );
dispatchers.resize( 0 );
/*
We cannot destroy the app context here because it closes the X
display, something TQApplication does as well a bit later.
if ( ownContext )
XtDestroyApplicationContext( ownContext );
*/
appContext = ownContext = 0;
}
extern bool qt_try_modal( TQWidget *, XEvent * ); // defined in qapplication_x11.cpp
Boolean qnpxt_event_dispatcher( XEvent *event )
{
static bool grabbed = FALSE;
TQApplication::sendPostedEvents();
TQWidgetIntDict *mapper = &static_d->mapper;
TQWidget* qnpxt = mapper->find( event->xany.window );
if ( !qnpxt && TQWidget::find( event->xany.window) == 0 ) {
// event is not for TQt, try Xt
Widget w = XtWindowToWidget( TQPaintDevice::x11AppDisplay(),
event->xany.window );
while ( w && ! ( qnpxt = mapper->find( XtWindow( w ) ) ) ) {
if ( XtIsShell( w ) ) {
break;
}
w = XtParent( w );
}
if ( qnpxt && ( event->type == XKeyPress ||
event->type == XKeyRelease ) ) {
// remap key events to keep accelerators working
event->xany.window = qnpxt->winId();
}
if ( w ) {
if ( !grabbed && ( event->type == XFocusIn &&
event->xfocus.mode == NotifyGrab ) ) {
// qDebug( "Xt: grab started" );
grabbed = TRUE;
} else if ( grabbed && ( event->type == XFocusOut &&
event->xfocus.mode == NotifyUngrab ) ) {
// qDebug( "Xt: grab ended" );
grabbed = FALSE;
}
}
}
/*
If the mouse has been grabbed for a window that we don't know
about, we shouldn't deliver any pointer events, since this will
intercept the event that ends the mouse grab that Xt/Motif
started.
*/
bool do_deliver = TRUE;
if ( grabbed && ( event->type == ButtonPress ||
event->type == ButtonRelease ||
event->type == MotionNotify ||
event->type == EnterNotify ||
event->type == LeaveNotify ) )
do_deliver = FALSE;
last_xevent = event;
bool delivered = do_deliver && ( tqApp->x11ProcessEvent( event ) != -1 );
last_xevent = 0;
if ( qnpxt ) {
switch ( event->type ) {
case EnterNotify:
case LeaveNotify:
event->xcrossing.focus = False;
delivered = FALSE;
break;
case XKeyPress:
case XKeyRelease:
delivered = TRUE;
break;
case XFocusIn:
case XFocusOut:
delivered = FALSE;
break;
default:
delivered = FALSE;
break;
}
}
qnpxt_keep_alive();
if ( delivered ) {
// qDebug( "TQt: delivered event" );
return True;
}
// discard user input events when we have an active popup widget
if ( TQApplication::activePopupWidget() ) {
switch ( event->type ) {
case ButtonPress: // disallow mouse/key events
case ButtonRelease:
case MotionNotify:
case XKeyPress:
case XKeyRelease:
case EnterNotify:
case LeaveNotify:
case ClientMessage:
// qDebug( "TQt: active popup - discarding event" );
return True;
default:
break;
}
}
if ( TQApplication::activeModalWidget() ) {
if ( qnpxt ) {
// send event through TQt modality handling...
if ( !qt_try_modal( qnpxt, event ) ) {
// qDebug( "TQt: active modal widget discarded event" );
return True;
}
} else if ( !grabbed ) {
// we could have a pure Xt shell as a child of the active
// modal widget
TQWidget *qw = 0;
Widget xw = XtWindowToWidget( TQPaintDevice::x11AppDisplay(),
event->xany.window );
while ( xw && !( qw = mapper->find( XtWindow( xw ) ) ) )
xw = XtParent( xw );
while ( qw && qw != TQApplication::activeModalWidget() )
qw = qw->parentWidget();
if ( !qw ) {
// event is destined for an Xt widget, but since TQt has an
// active modal widget, we stop here...
switch ( event->type ) {
case ButtonPress: // disallow mouse/key events
case ButtonRelease:
case MotionNotify:
case XKeyPress:
case XKeyRelease:
case EnterNotify:
case LeaveNotify:
case ClientMessage:
// qDebug( "TQt: active modal widget discarded unknown event" );
return True;
default:
break;
}
}
}
}
if ( static_d->dispatchers[ event->type ]( event ) ) {
// qDebug( "Xt: delivered event" );
// Xt handled the event.
return True;
}
return False;
}
TQNPXt::TQNPXt( const char *applicationClass, XtAppContext context,
XrmOptionDescRec *options , int numOptions)
{
#if defined(QT_CHECK_STATE)
if ( static_d )
qWarning( "TQNPXt: should only have one TQNPXt instance!" );
#endif
d = static_d = new TQNPXtPrivate;
XtToolkitInitialize();
if ( context )
d->appContext = context;
else
d->ownContext = d->appContext = XtCreateApplicationContext();
d->applicationClass = applicationClass;
d->options = options;
d->numOptions = numOptions;
}
TQNPXt::~TQNPXt()
{
delete d;
static_d = 0;
}
XtAppContext TQNPXt::applicationContext() const
{
return d->appContext;
}
void TQNPXt::appStartingUp()
{
/*
TQApplication could be using a Display from an outside source, so
we should only initialize the display if the current application
context does not contain the TQApplication display
*/
bool display_found = FALSE;
Display **displays;
Cardinal x, count;
XtGetDisplays( d->appContext, &displays, &count );
for ( x = 0; x < count && ! display_found; ++x ) {
if ( displays[x] == TQPaintDevice::x11AppDisplay() )
display_found = TRUE;
}
if ( displays )
XtFree( (char *) displays );
if ( ! display_found ) {
int argc = tqApp->argc();
XtDisplayInitialize( d->appContext,
TQPaintDevice::x11AppDisplay(),
tqApp->name(),
d->applicationClass,
d->options,
d->numOptions,
&argc,
tqApp->argv() );
}
d->hookMeUp();
// start a zero-timer to get the timer keep-alive working
d->timerid = XtAppAddTimeOut( d->appContext, 0, qnpxt_timeout_handler, 0 );
}
void TQNPXt::appClosingDown()
{
if ( d->timerid != -1 )
XtRemoveTimeOut( d->timerid );
d->timerid = -1;
d->unhook();
}
void TQNPXt::registerWidget( TQWidget* w )
{
if ( !static_d )
return;
static_d->mapper.insert( w->winId(), w );
}
void TQNPXt::unregisterWidget( TQWidget* w )
{
if ( !static_d )
return;
static_d->mapper.remove( w->winId() );
}
void qnpxt_socknot_handler( XtPointer pointer, int *, XtInputId *id )
{
TQNPXt *eventloop = (TQNPXt *) pointer;
TQSocketNotifier *socknot = static_d->socknotDict.find( *id );
if ( ! socknot ) // this shouldn't happen
return;
eventloop->setSocketNotifierPending( socknot );
if ( ++static_d->pending_socknots > static_d->socknotDict.count() ) {
/*
We have too many pending socket notifiers. Since Xt prefers
socket notifiers over X events, we should go ahead and
activate all our pending socket notifiers so that the event
loop doesn't freeze up because of this.
*/
eventloop->activateSocketNotifiers();
static_d->pending_socknots = 0;
}
}
void TQNPXt::registerSocketNotifier( TQSocketNotifier *notifier )
{
XtInputMask mask;
switch ( notifier->type() ) {
case TQSocketNotifier::Read:
mask = XtInputReadMask;
break;
case TQSocketNotifier::Write:
mask = XtInputWriteMask;
break;
case TQSocketNotifier::Exception:
mask = XtInputExceptMask;
break;
default:
qWarning( "TQNPXtEventLoop: socket notifier has invalid type" );
return;
}
XtInputId id = XtAppAddInput( d->appContext,
notifier->socket(), (XtPointer) mask,
qnpxt_socknot_handler, this );
d->socknotDict.insert( id, notifier );
TQEventLoop::registerSocketNotifier( notifier );
}
void TQNPXt::unregisterSocketNotifier( TQSocketNotifier *notifier )
{
TQIntDictIterator<TQSocketNotifier> it( d->socknotDict );
while ( it.current() && notifier != it.current() )
++it;
if ( ! it.current() ) {
// this shouldn't happen
qWarning( "TQNPXtEventLoop: failed to unregister socket notifier" );
return;
}
XtRemoveInput( it.currentKey() );
d->socknotDict.remove( it.currentKey() );
TQEventLoop::unregisterSocketNotifier( notifier );
}
static void qnpxt_keep_alive() {
// make sure we fire off TQt's timers
int ttw = TQApplication::eventLoop()->timeToWait();
if ( static_d->timerid != -1 )
XtRemoveTimeOut( static_d->timerid );
static_d->timerid = -1;
if ( ttw != -1 ) {
static_d->timerid =
XtAppAddTimeOut( static_d->appContext, ttw, qnpxt_timeout_handler, 0 );
}
}
void qnpxt_timeout_handler( XtPointer, XtIntervalId * )
{
static_d->timerid = -1;
if ( ! TQApplication::eventLoop()->loopLevel() ) {
/*
when the TQt eventloop is not running, make sure that TQt
timers still work with an Xt keep-alive timer
*/
TQApplication::eventLoop()->activateTimers();
static_d->activate_timers = FALSE;
qnpxt_keep_alive();
} else {
static_d->activate_timers = TRUE;
}
}
bool TQNPXt::processEvents( ProcessEventsFlags flags )
{
// TQt uses posted events to do lots of delayed operations, like
// repaints... these need to be delivered before we go to sleep
TQApplication::sendPostedEvents();
bool canWait = ( flags & WaitForMore );
qnpxt_keep_alive();
// get the pending event mask from Xt and process the next event
XtInputMask pendingmask = XtAppPending( d->appContext );
XtInputMask mask = pendingmask;
if ( pendingmask & XtIMTimer ) {
mask &= ~XtIMTimer;
// zero timers will starve the Xt X event dispatcher... so
// process something *instead* of a timer first...
if ( mask != 0 )
XtAppProcessEvent( d->appContext, mask );
// and process a timer afterwards
mask = pendingmask & XtIMTimer;
}
if ( canWait )
XtAppProcessEvent( d->appContext, XtIMAll );
else
XtAppProcessEvent( d->appContext, mask );
int nevents = 0;
if ( ! ( flags & ExcludeSocketNotifiers ) ) {
nevents += activateSocketNotifiers();
d->pending_socknots = 0;
}
if ( d->activate_timers ) {
nevents += activateTimers();
}
d->activate_timers = FALSE;
return ( canWait || ( pendingmask != 0 ) || nevents > 0 );
}
#endif // Q_WS_X11