]> git.saurik.com Git - wxWidgets.git/blame - src/motif/window.cpp
ADDED wxEVT_COMMAND_LIST_ITEM_RIGHT_CLICK
[wxWidgets.git] / src / motif / window.cpp
CommitLineData
4bb6408c
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: windows.cpp
3// Purpose: wxWindow
4// Author: Julian Smart
5// Modified by:
6// Created: 17/09/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation "window.h"
14#endif
15
16#include "wx/setup.h"
17#include "wx/menu.h"
18#include "wx/dc.h"
19#include "wx/dcclient.h"
20#include "wx/utils.h"
21#include "wx/app.h"
22#include "wx/panel.h"
23#include "wx/layout.h"
24#include "wx/dialog.h"
25#include "wx/listbox.h"
26#include "wx/button.h"
27#include "wx/settings.h"
28#include "wx/msgdlg.h"
29#include "wx/frame.h"
30
31#include "wx/menuitem.h"
32#include "wx/log.h"
33
47d67540 34#if wxUSE_DRAG_AND_DROP
4bb6408c
JS
35#include "wx/dnd.h"
36#endif
37
38#include <Xm/Xm.h>
50414e24
JS
39
40#include <Xm/DrawingA.h>
41#include <Xm/ScrolledW.h>
42#include <Xm/ScrollBar.h>
43#include <Xm/Frame.h>
44#include <Xm/Label.h>
45
4bb6408c
JS
46#include "wx/motif/private.h"
47
48#include <string.h>
49
50414e24
JS
50#define SCROLL_MARGIN 4
51void wxCanvasRepaintProc (Widget, XtPointer, XmDrawingAreaCallbackStruct * cbs);
52void wxCanvasInputEvent (Widget drawingArea, XtPointer data, XmDrawingAreaCallbackStruct * cbs);
53void wxCanvasMotionEvent (Widget, XButtonEvent * event);
54void wxCanvasEnterLeave (Widget drawingArea, XtPointer clientData, XCrossingEvent * event);
8aa04e8b 55static void wxScrollBarCallback(Widget widget, XtPointer clientData,
47bc1060 56 XmScaleCallbackStruct *cbs);
02e8b2f9
JS
57void wxPanelItemEventHandler (Widget wid,
58 XtPointer client_data,
59 XEvent* event,
60 Boolean *continueToDispatch);
50414e24
JS
61
62#define event_left_is_down(x) ((x)->xbutton.state & Button1Mask)
63#define event_middle_is_down(x) ((x)->xbutton.state & Button2Mask)
64#define event_right_is_down(x) ((x)->xbutton.state & Button3Mask)
65
4bb6408c
JS
66extern wxList wxPendingDelete;
67
68#if !USE_SHARED_LIBRARY
69IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxEvtHandler)
70
71BEGIN_EVENT_TABLE(wxWindow, wxEvtHandler)
72 EVT_CHAR(wxWindow::OnChar)
73 EVT_ERASE_BACKGROUND(wxWindow::OnEraseBackground)
74 EVT_SYS_COLOUR_CHANGED(wxWindow::OnSysColourChanged)
75 EVT_INIT_DIALOG(wxWindow::OnInitDialog)
76 EVT_IDLE(wxWindow::OnIdle)
77END_EVENT_TABLE()
78
79#endif
80
81
82// Constructor
83wxWindow::wxWindow()
84{
85 // Generic
86 m_windowId = 0;
87 m_windowStyle = 0;
88 m_windowParent = NULL;
89 m_windowEventHandler = this;
90 m_windowName = "";
91 m_windowCursor = *wxSTANDARD_CURSOR;
92 m_children = new wxList;
93 m_constraints = NULL;
94 m_constraintsInvolvedIn = NULL;
95 m_windowSizer = NULL;
96 m_sizerParent = NULL;
97 m_autoLayout = FALSE;
98 m_windowValidator = NULL;
99 m_defaultItem = NULL;
100 m_returnCode = 0;
101 m_caretWidth = 0; m_caretHeight = 0;
102 m_caretEnabled = FALSE;
103 m_caretShown = FALSE;
fd71308f
JS
104 // m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW) ; ;
105 m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE) ;
4bb6408c 106 m_foregroundColour = *wxBLACK;
4bb6408c 107
47d67540 108#if wxUSE_DRAG_AND_DROP
4bb6408c
JS
109 m_pDropTarget = NULL;
110#endif
3dd4e4e0
JS
111 m_clientObject = (wxClientData*) NULL;
112 m_clientData = NULL;
4bb6408c 113
50414e24 114 /// Motif-specific
4bb6408c
JS
115 m_mainWidget = (WXWidget) 0;
116 m_button1Pressed = FALSE;
117 m_button2Pressed = FALSE;
118 m_button3Pressed = FALSE;
119 m_winCaptured = FALSE;
120 m_isShown = TRUE;
50414e24
JS
121 m_hScrollBar = (WXWidget) 0;
122 m_vScrollBar = (WXWidget) 0;
123 m_borderWidget = (WXWidget) 0;
124 m_scrolledWindow = (WXWidget) 0;
125 m_drawingArea = (WXWidget) 0;
126 m_hScroll = FALSE;
127 m_vScroll = FALSE;
50414e24
JS
128 m_backingPixmap = (WXPixmap) 0;
129 m_pixmapWidth = 0;
130 m_pixmapHeight = 0;
131 m_pixmapOffsetX = 0;
132 m_pixmapOffsetY = 0;
133 m_lastTS = 0;
134 m_lastButton = 0;
02e8b2f9 135 m_canAddEventHandler = FALSE;
47bc1060
JS
136 m_scrollPosX = 0;
137 m_scrollPosY = 0;
4bb6408c
JS
138}
139
140// Destructor
141wxWindow::~wxWindow()
142{
f97c9854 143 //// Motif-specific
50414e24 144
f97c9854
JS
145 if (GetMainWidget())
146 DetachWidget(GetMainWidget()); // Removes event handlers
02e8b2f9 147
f97c9854
JS
148 // If m_drawingArea, we're a fully-fledged window with drawing area, scrollbars etc. (what wxCanvas used to be)
149 if (m_drawingArea)
150 {
151 // Destroy children before destroying self
152 DestroyChildren();
50414e24 153
f97c9854
JS
154 if (m_backingPixmap)
155 XFreePixmap (XtDisplay ((Widget) GetMainWidget()), (Pixmap) m_backingPixmap);
50414e24 156
f97c9854
JS
157 Widget w = (Widget) m_drawingArea;
158 wxDeleteWindowFromTable(w);
50414e24 159
f97c9854
JS
160 if (w)
161 XtDestroyWidget(w);
162 m_mainWidget = (WXWidget) 0;
50414e24 163
f97c9854
JS
164 // Only if we're _really_ a canvas (not a dialog box/panel)
165 if (m_scrolledWindow)
166 {
167 wxDeleteWindowFromTable((Widget) m_scrolledWindow);
168 }
50414e24 169
f97c9854
JS
170 if (m_hScrollBar)
171 {
172 XtUnmanageChild ((Widget) m_hScrollBar);
173 XtDestroyWidget ((Widget) m_hScrollBar);
174 }
175 if (m_vScrollBar)
176 {
177 XtUnmanageChild ((Widget) m_vScrollBar);
178 XtDestroyWidget ((Widget) m_vScrollBar);
179 }
180 if (m_scrolledWindow)
181 {
182 XtUnmanageChild ((Widget) m_scrolledWindow);
183 XtDestroyWidget ((Widget) m_scrolledWindow);
184 }
50414e24 185
f97c9854
JS
186 if (m_borderWidget)
187 {
188 XtDestroyWidget ((Widget) m_borderWidget);
189 m_borderWidget = (WXWidget) 0;
190 }
50414e24 191 }
50414e24 192
f97c9854 193 //// Generic stuff
50414e24 194
4bb6408c
JS
195 // Have to delete constraints/sizer FIRST otherwise
196 // sizers may try to look at deleted windows as they
197 // delete themselves.
47d67540 198#if wxUSE_CONSTRAINTS
4bb6408c
JS
199 DeleteRelatedConstraints();
200 if (m_constraints)
201 {
202 // This removes any dangling pointers to this window
203 // in other windows' constraintsInvolvedIn lists.
204 UnsetConstraints(m_constraints);
205 delete m_constraints;
206 m_constraints = NULL;
207 }
208 if (m_windowSizer)
209 {
210 delete m_windowSizer;
211 m_windowSizer = NULL;
212 }
213 // If this is a child of a sizer, remove self from parent
214 if (m_sizerParent)
215 m_sizerParent->RemoveChild((wxWindow *)this);
216#endif
217
218 if (m_windowParent)
219 m_windowParent->RemoveChild(this);
220
221 DestroyChildren();
222
223 // Destroy the window
224 if (GetMainWidget())
225 {
226 wxDeleteWindowFromTable((Widget) GetMainWidget());
227 XtDestroyWidget((Widget) GetMainWidget());
228 SetMainWidget((WXWidget) NULL);
229 }
230
231 delete m_children;
232 m_children = NULL;
233
234 // Just in case the window has been Closed, but
235 // we're then deleting immediately: don't leave
236 // dangling pointers.
237 wxPendingDelete.DeleteObject(this);
238
3dd4e4e0
JS
239 if ( m_windowValidator ) delete m_windowValidator;
240 if (m_clientObject) delete m_clientObject;
55acd85e
JS
241
242 ClearUpdateRects();
4bb6408c
JS
243}
244
245// Destroy the window (delayed, if a managed window)
246bool wxWindow::Destroy()
247{
248 delete this;
249 return TRUE;
250}
251
252// Constructor
253bool wxWindow::Create(wxWindow *parent, wxWindowID id,
254 const wxPoint& pos,
255 const wxSize& size,
256 long style,
257 const wxString& name)
258{
259 // Generic
260 m_windowId = 0;
261 m_windowStyle = 0;
262 m_windowParent = NULL;
263 m_windowEventHandler = this;
264 m_windowName = "";
265 m_windowCursor = *wxSTANDARD_CURSOR;
266 m_constraints = NULL;
267 m_constraintsInvolvedIn = NULL;
268 m_windowSizer = NULL;
269 m_sizerParent = NULL;
270 m_autoLayout = FALSE;
271 m_windowValidator = NULL;
47d67540 272#if wxUSE_DRAG_AND_DROP
4bb6408c
JS
273 m_pDropTarget = NULL;
274#endif
4bb6408c
JS
275 m_caretWidth = 0; m_caretHeight = 0;
276 m_caretEnabled = FALSE;
277 m_caretShown = FALSE;
278 m_minSizeX = -1;
279 m_minSizeY = -1;
280 m_maxSizeX = -1;
281 m_maxSizeY = -1;
282 m_defaultItem = NULL;
283 m_windowParent = NULL;
3dd4e4e0
JS
284 m_clientObject = (wxClientData*) NULL;
285 m_clientData = NULL;
50414e24
JS
286
287 // Motif-specific
02e8b2f9 288 m_canAddEventHandler = FALSE;
50414e24
JS
289 m_mainWidget = (WXWidget) 0;
290 m_button1Pressed = FALSE;
291 m_button2Pressed = FALSE;
292 m_button3Pressed = FALSE;
293 m_winCaptured = FALSE;
294 m_isShown = TRUE;
295 m_hScrollBar = (WXWidget) 0;
296 m_vScrollBar = (WXWidget) 0;
297 m_borderWidget = (WXWidget) 0;
298 m_scrolledWindow = (WXWidget) 0;
299 m_drawingArea = (WXWidget) 0;
300 m_hScroll = FALSE;
301 m_vScroll = FALSE;
50414e24
JS
302 m_backingPixmap = (WXPixmap) 0;
303 m_pixmapWidth = 0;
304 m_pixmapHeight = 0;
305 m_pixmapOffsetX = 0;
306 m_pixmapOffsetY = 0;
47bc1060
JS
307 m_scrollPosX = 0;
308 m_scrollPosY = 0;
50414e24 309
4bb6408c
JS
310 if (!parent)
311 return FALSE;
312
313 if (parent) parent->AddChild(this);
314
315 m_returnCode = 0;
316
317 SetName(name);
318
319 if ( id == -1 )
320 m_windowId = (int)NewControlId();
321 else
322 m_windowId = id;
323
fd71308f
JS
324 // m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_WINDOW) ; ;
325 m_backgroundColour = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE) ;
4bb6408c 326 m_foregroundColour = *wxBLACK;
4bb6408c
JS
327
328 m_windowStyle = style;
329
330 if ( id == -1 )
331 m_windowId = (int)NewControlId();
332 else
333 m_windowId = id;
334
50414e24
JS
335 //// TODO: we should probably optimize by only creating a
336 //// a drawing area if we have one or more scrollbars (wxVSCROLL/wxHSCROLL).
337 //// But for now, let's simplify things by always creating the
338 //// drawing area, since otherwise the translations are different.
339
340 // New translations for getting mouse motion feedback
341 String translations =
342 "<Btn1Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
343 <Btn2Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
344 <Btn3Motion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
345 <BtnMotion>: wxCanvasMotionEvent() DrawingAreaInput() ManagerGadgetButtonMotion()\n\
346 <Btn1Down>: DrawingAreaInput() ManagerGadgetArm()\n\
347 <Btn2Down>: DrawingAreaInput() ManagerGadgetArm()\n\
348 <Btn3Down>: DrawingAreaInput() ManagerGadgetArm()\n\
349 <Btn1Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
350 <Btn2Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
351 <Btn3Up>: DrawingAreaInput() ManagerGadgetActivate()\n\
352 <Motion>: wxCanvasMotionEvent() DrawingAreaInput()\n\
353 <EnterWindow>: wxCanvasMotionEvent() DrawingAreaInput()\n\
354 <LeaveWindow>: wxCanvasMotionEvent() DrawingAreaInput()\n\
355 <Key>: DrawingAreaInput()";
356
357 XtActionsRec actions[1];
358 actions[0].string = "wxCanvasMotionEvent";
359 actions[0].proc = (XtActionProc) wxCanvasMotionEvent;
360 XtAppAddActions ((XtAppContext) wxTheApp->GetAppContext(), actions, 1);
361
362 Widget parentWidget = (Widget) parent->GetClientWidget();
363 if (style & wxBORDER)
364 m_borderWidget = (WXWidget) XtVaCreateManagedWidget ("canvasBorder",
365 xmFrameWidgetClass, parentWidget,
366 XmNshadowType, XmSHADOW_IN,
367 NULL);
368
369 m_scrolledWindow = (WXWidget) XtVaCreateManagedWidget ("scrolledWindow",
370 xmScrolledWindowWidgetClass, m_borderWidget ? (Widget) m_borderWidget : parentWidget,
371 XmNspacing, 0,
372 XmNscrollingPolicy, XmAPPLICATION_DEFINED,
373 NULL);
374
375 XtTranslations ptr;
376 m_drawingArea = (WXWidget) XtVaCreateWidget ((char*) (const char*) name,
377 xmDrawingAreaWidgetClass, (Widget) m_scrolledWindow,
378 XmNunitType, XmPIXELS,
379// XmNresizePolicy, XmRESIZE_ANY,
380 XmNresizePolicy, XmRESIZE_NONE,
381 XmNmarginHeight, 0,
382 XmNmarginWidth, 0,
383 XmNtranslations, ptr = XtParseTranslationTable (translations),
384 NULL);
385 /*
386 if (GetWindowStyleFlag() & wxOVERRIDE_KEY_TRANSLATIONS)
387 {
388 XtFree ((char *) ptr);
389 ptr = XtParseTranslationTable ("<Key>: DrawingAreaInput()");
390 XtOverrideTranslations ((Widget) m_drawingArea, ptr);
391 XtFree ((char *) ptr);
392 }
393 */
394
395 wxAddWindowToTable((Widget) m_drawingArea, this);
396 wxAddWindowToTable((Widget) m_scrolledWindow, this);
397
398 /*
399 * This order is very important in Motif 1.2.1
400 *
401 */
402
403 XtRealizeWidget ((Widget) m_scrolledWindow);
404 XtRealizeWidget ((Widget) m_drawingArea);
405 XtManageChild ((Widget) m_drawingArea);
406
407 XtOverrideTranslations ((Widget) m_drawingArea,
408 ptr = XtParseTranslationTable ("<Configure>: resize()"));
409 XtFree ((char *) ptr);
410
411 XtAddCallback ((Widget) m_drawingArea, XmNexposeCallback, (XtCallbackProc) wxCanvasRepaintProc, (XtPointer) this);
412 XtAddCallback ((Widget) m_drawingArea, XmNinputCallback, (XtCallbackProc) wxCanvasInputEvent, (XtPointer) this);
413
414 /* TODO?
415 display = XtDisplay (scrolledWindow);
416 xwindow = XtWindow (drawingArea);
417 */
418
419 XtAddEventHandler ((Widget) m_drawingArea, PointerMotionHintMask | EnterWindowMask | LeaveWindowMask | FocusChangeMask,
420 False, (XtEventHandler) wxCanvasEnterLeave, (XtPointer) this);
4bb6408c 421
47bc1060
JS
422 // Add scrollbars if required
423 if (m_windowStyle & wxHSCROLL)
424 {
425 Widget hScrollBar = XtVaCreateManagedWidget ("hsb",
426 xmScrollBarWidgetClass, (Widget) m_scrolledWindow,
427 XmNorientation, XmHORIZONTAL,
428 NULL);
429 // XtAddCallback (hScrollBar, XmNvalueChangedCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
430 XtAddCallback (hScrollBar, XmNdragCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
431 XtAddCallback (hScrollBar, XmNincrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
432 XtAddCallback (hScrollBar, XmNdecrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
433 XtAddCallback (hScrollBar, XmNpageIncrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
434 XtAddCallback (hScrollBar, XmNpageDecrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
435 XtAddCallback (hScrollBar, XmNtoTopCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
436 XtAddCallback (hScrollBar, XmNtoBottomCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmHORIZONTAL);
437
438 XtVaSetValues (hScrollBar,
439 XmNincrement, 1,
440 XmNvalue, 0,
441 NULL);
442
443 m_hScrollBar = (WXWidget) hScrollBar;
444 m_hScroll = TRUE;
445 }
446 if (m_windowStyle & wxVSCROLL)
447 {
448 Widget vScrollBar = XtVaCreateManagedWidget ("vsb",
449 xmScrollBarWidgetClass, (Widget) m_scrolledWindow,
450 XmNorientation, XmVERTICAL,
451 NULL);
452 // XtAddCallback (vScrollBar, XmNvalueChangedCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
453 XtAddCallback (vScrollBar, XmNdragCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
454 XtAddCallback (vScrollBar, XmNincrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
455 XtAddCallback (vScrollBar, XmNdecrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
456 XtAddCallback (vScrollBar, XmNpageIncrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
457 XtAddCallback (vScrollBar, XmNpageDecrementCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
458 XtAddCallback (vScrollBar, XmNtoTopCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
459 XtAddCallback (vScrollBar, XmNtoBottomCallback, (XtCallbackProc) wxScrollBarCallback, (XtPointer) XmVERTICAL);
460
461 XtVaSetValues (vScrollBar,
462 XmNincrement, 1,
463 XmNvalue, 0,
464 NULL);
465
466 m_vScrollBar = (WXWidget) vScrollBar;
467 m_vScroll = TRUE;
468 }
469
470 if (m_hScrollBar || m_vScrollBar)
471 XmScrolledWindowSetAreas ((Widget) m_scrolledWindow, (Widget) m_hScrollBar, (Widget) m_vScrollBar, (Widget) m_drawingArea);
472
473 if (m_hScrollBar)
474 XtRealizeWidget ((Widget) m_hScrollBar);
475 if (m_vScrollBar)
476 XtRealizeWidget ((Widget) m_vScrollBar);
477
a4294b78
JS
478 // Without this, the cursor may not be restored properly
479 // (e.g. in splitter sample).
480 SetCursor(*wxSTANDARD_CURSOR);
a367b9b3 481 SetFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
e97f20a0
JS
482 SetSize(pos.x, pos.y, size.x, size.y);
483
484 return TRUE;
4bb6408c
JS
485}
486
487void wxWindow::SetFocus()
488{
489 XmProcessTraversal((Widget) GetMainWidget(), XmTRAVERSE_CURRENT);
490 XmProcessTraversal((Widget) GetMainWidget(), XmTRAVERSE_CURRENT);
491}
492
493void wxWindow::Enable(bool enable)
494{
495 if (GetMainWidget())
496 {
497 XtSetSensitive((Widget) GetMainWidget(), enable);
498 XmUpdateDisplay((Widget) GetMainWidget());
499 }
500}
501
502void wxWindow::CaptureMouse()
503{
504 if (m_winCaptured)
505 return;
506
507 if (GetMainWidget())
508 XtAddGrab((Widget) GetMainWidget(), TRUE, FALSE);
509
510 m_winCaptured = TRUE;
511}
512
513void wxWindow::ReleaseMouse()
514{
515 if (!m_winCaptured)
516 return;
517
518 if (GetMainWidget())
519 XtRemoveGrab((Widget) GetMainWidget());
520 m_winCaptured = FALSE;
521}
522
523// Push/pop event handler (i.e. allow a chain of event handlers
524// be searched)
525void wxWindow::PushEventHandler(wxEvtHandler *handler)
526{
527 handler->SetNextHandler(GetEventHandler());
528 SetEventHandler(handler);
529}
530
531wxEvtHandler *wxWindow::PopEventHandler(bool deleteHandler)
532{
533 if ( GetEventHandler() )
534 {
535 wxEvtHandler *handlerA = GetEventHandler();
536 wxEvtHandler *handlerB = handlerA->GetNextHandler();
537 handlerA->SetNextHandler(NULL);
538 SetEventHandler(handlerB);
539 if ( deleteHandler )
540 {
541 delete handlerA;
542 return NULL;
543 }
544 else
545 return handlerA;
546 }
547 else
548 return NULL;
549}
550
47d67540 551#if wxUSE_DRAG_AND_DROP
4bb6408c
JS
552
553void wxWindow::SetDropTarget(wxDropTarget *pDropTarget)
554{
555 if ( m_pDropTarget != 0 ) {
556 delete m_pDropTarget;
557 }
558
559 m_pDropTarget = pDropTarget;
560 if ( m_pDropTarget != 0 )
561 {
562 // TODO
563 }
564}
565
566#endif
567
568// Old style file-manager drag&drop
569void wxWindow::DragAcceptFiles(bool accept)
570{
571 // TODO
572}
573
574// Get total size
575void wxWindow::GetSize(int *x, int *y) const
576{
50414e24
JS
577 if (m_drawingArea)
578 {
579 CanvasGetSize(x, y);
580 return;
581 }
582
02e8b2f9 583 Widget widget = (Widget) GetTopWidget();
4bb6408c
JS
584 Dimension xx, yy;
585 XtVaGetValues(widget, XmNwidth, &xx, XmNheight, &yy, NULL);
586 *x = xx; *y = yy;
587}
588
589void wxWindow::GetPosition(int *x, int *y) const
590{
a4294b78
JS
591 if (m_drawingArea)
592 {
593 CanvasGetPosition(x, y);
594 return;
595 }
596 Widget widget = (Widget) GetTopWidget();
597 Position xx, yy;
598 XtVaGetValues(widget, XmNx, &xx, XmNy, &yy, NULL);
599
600 // We may be faking the client origin.
601 // So a window that's really at (0, 30) may appear
602 // (to wxWin apps) to be at (0, 0).
603 if (GetParent())
604 {
605 wxPoint pt(GetParent()->GetClientAreaOrigin());
606 xx -= pt.x;
607 yy -= pt.y;
608 }
609
610 *x = xx; *y = yy;
4bb6408c
JS
611}
612
613void wxWindow::ScreenToClient(int *x, int *y) const
614{
47bc1060
JS
615 Widget widget = (Widget) GetClientWidget();
616 Display *display = XtDisplay((Widget) GetMainWidget());
617 Window rootWindow = RootWindowOfScreen(XtScreen(widget));
618 Window thisWindow = XtWindow(widget);
619
620 Window childWindow;
621 int xx = *x;
622 int yy = *y;
623 XTranslateCoordinates(display, rootWindow, thisWindow, xx, yy, x, y, &childWindow);
4bb6408c
JS
624}
625
626void wxWindow::ClientToScreen(int *x, int *y) const
627{
02e8b2f9 628 Widget widget = (Widget) GetClientWidget();
4bb6408c
JS
629 Display *display = XtDisplay(widget);
630 Window rootWindow = RootWindowOfScreen(XtScreen(widget));
47bc1060 631 Window thisWindow = XtWindow(widget);
4bb6408c
JS
632
633 Window childWindow;
634 int xx = *x;
635 int yy = *y;
636 XTranslateCoordinates(display, thisWindow, rootWindow, xx, yy, x, y, &childWindow);
637}
638
639void wxWindow::SetCursor(const wxCursor& cursor)
640{
641 m_windowCursor = cursor;
642 if (m_windowCursor.Ok())
643 {
4bb6408c 644 WXDisplay *dpy = GetXDisplay();
47bc1060 645 WXCursor x_cursor = ((wxCursor&)cursor).GetXCursor(dpy);
4bb6408c
JS
646
647 Widget w = (Widget) GetMainWidget();
648 Window win = XtWindow(w);
47bc1060 649 XDefineCursor((Display*) dpy, win, (Cursor) x_cursor);
4bb6408c
JS
650 }
651}
652
653
654// Get size *available for subwindows* i.e. excluding menu bar etc.
655void wxWindow::GetClientSize(int *x, int *y) const
656{
47bc1060 657 Widget widget = (Widget) GetClientWidget();
4bb6408c
JS
658 Dimension xx, yy;
659 XtVaGetValues(widget, XmNwidth, &xx, XmNheight, &yy, NULL);
660 *x = xx; *y = yy;
661}
662
663void wxWindow::SetSize(int x, int y, int width, int height, int sizeFlags)
664{
7fe7d506
JS
665 // A bit of optimization to help sort out the flickers.
666 int oldX, oldY, oldW, oldH;
667 GetSize(& oldW, & oldH);
668 GetPosition(& oldX, & oldY);
669
670 bool useOldPos = FALSE;
671 bool useOldSize = FALSE;
672
673 if ((x == -1) && (x == -1) && ((sizeFlags & wxSIZE_ALLOW_MINUS_ONE) == 0))
674 useOldPos = TRUE;
675 else if (x == oldX && y == oldY)
676 useOldPos = TRUE;
677
678 if ((width == -1) && (height == -1))
679 useOldSize = TRUE;
680 else if (width == oldW && height == oldH)
681 useOldSize = TRUE;
682
683 if (useOldPos && useOldSize)
684 return;
685
50414e24
JS
686 if (m_drawingArea)
687 {
688 CanvasSetSize(x, y, width, height, sizeFlags);
689 return;
690 }
02e8b2f9
JS
691 Widget widget = (Widget) GetTopWidget();
692 if (!widget)
693 return;
694
695 bool managed = XtIsManaged( widget );
696 if (managed)
697 XtUnmanageChild(widget);
4bb6408c 698
a4294b78
JS
699 int xx = x; int yy = y;
700 AdjustForParentClientOrigin(xx, yy, sizeFlags);
701
7fe7d506
JS
702 if (!useOldPos)
703 {
704 if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
705 XtVaSetValues(widget, XmNx, xx, NULL);
706 if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
707 XtVaSetValues(widget, XmNy, yy, NULL);
708 }
709 if (!useOldSize)
710 {
711 if (width > -1)
712 XtVaSetValues(widget, XmNwidth, width, NULL);
713 if (height > -1)
714 XtVaSetValues(widget, XmNheight, height, NULL);
715 }
4bb6408c 716
02e8b2f9
JS
717 if (managed)
718 XtManageChild(widget);
719
7fe7d506
JS
720 // How about this bit. Maybe we don't need to generate size events
721 // all the time -- they'll be generated when the window is sized anyway.
722 /*
4bb6408c
JS
723 wxSizeEvent sizeEvent(wxSize(width, height), GetId());
724 sizeEvent.SetEventObject(this);
725
726 GetEventHandler()->ProcessEvent(sizeEvent);
7fe7d506 727 */
4bb6408c
JS
728}
729
730void wxWindow::SetClientSize(int width, int height)
731{
50414e24
JS
732 if (m_drawingArea)
733 {
734 CanvasSetClientSize(width, height);
735 return;
736 }
737
02e8b2f9 738 Widget widget = (Widget) GetTopWidget();
4bb6408c
JS
739
740 if (width > -1)
741 XtVaSetValues(widget, XmNwidth, width, NULL);
742 if (height > -1)
743 XtVaSetValues(widget, XmNheight, height, NULL);
744
745 wxSizeEvent sizeEvent(wxSize(width, height), GetId());
746 sizeEvent.SetEventObject(this);
747
748 GetEventHandler()->ProcessEvent(sizeEvent);
749}
750
751// For implementation purposes - sometimes decorations make the client area
752// smaller
753wxPoint wxWindow::GetClientAreaOrigin() const
754{
755 return wxPoint(0, 0);
756}
757
758// Makes an adjustment to the window position (for example, a frame that has
759// a toolbar that it manages itself).
760void wxWindow::AdjustForParentClientOrigin(int& x, int& y, int sizeFlags)
761{
762 if (((sizeFlags & wxSIZE_NO_ADJUSTMENTS) == 0) && GetParent())
763 {
764 wxPoint pt(GetParent()->GetClientAreaOrigin());
765 x += pt.x; y += pt.y;
766 }
767}
768
769bool wxWindow::Show(bool show)
770{
50414e24
JS
771 if (show)
772 {
773 if (m_borderWidget || m_scrolledWindow)
774 {
02800301
JS
775 if (m_drawingArea)
776 XtMapWidget((Widget) m_drawingArea);
50414e24
JS
777 XtMapWidget(m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow);
778 }
779 else
780 {
621793f4
JS
781 WXWidget topWidget = GetTopWidget();
782 if (GetTopWidget())
783 XtMapWidget((Widget) GetTopWidget());
784 else if (GetMainWidget())
785 XtMapWidget((Widget) GetMainWidget());
50414e24
JS
786 }
787 }
788 else
789 {
790 if (m_borderWidget || m_scrolledWindow)
791 {
02800301
JS
792 if (m_drawingArea)
793 XtUnmapWidget((Widget) m_drawingArea);
50414e24
JS
794 XtUnmapWidget(m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow);
795 }
796 else
797 {
621793f4
JS
798 if (GetTopWidget())
799 XtUnmapWidget((Widget) GetTopWidget());
800 else if (GetMainWidget())
801 XtUnmapWidget((Widget) GetMainWidget());
50414e24
JS
802 }
803 }
804
805 /*
4bb6408c
JS
806 Window xwin = (Window) GetXWindow();
807 Display *xdisp = (Display*) GetXDisplay();
808 if (show)
809 XMapWindow(xdisp, xwin);
810 else
811 XUnmapWindow(xdisp, xwin);
50414e24 812 */
4bb6408c
JS
813
814 m_isShown = show;
815
816 return TRUE;
817}
818
819bool wxWindow::IsShown() const
820{
821 return m_isShown;
822}
823
824int wxWindow::GetCharHeight() const
825{
47bc1060 826 if (!m_windowFont.Ok())
4bb6408c 827 return 0;
47bc1060
JS
828
829 WXFontStructPtr pFontStruct = m_windowFont.GetFontStruct(1.0, GetXDisplay());
830
831 int direction, ascent, descent;
832 XCharStruct overall;
833 XTextExtents ((XFontStruct*) pFontStruct, "x", 1, &direction, &ascent,
834 &descent, &overall);
835// return (overall.ascent + overall.descent);
836 return (ascent + descent);
4bb6408c
JS
837}
838
839int wxWindow::GetCharWidth() const
840{
47bc1060 841 if (!m_windowFont.Ok())
4bb6408c 842 return 0;
47bc1060
JS
843
844 WXFontStructPtr pFontStruct = m_windowFont.GetFontStruct(1.0, GetXDisplay());
845
846 int direction, ascent, descent;
847 XCharStruct overall;
848 XTextExtents ((XFontStruct*) pFontStruct, "x", 1, &direction, &ascent,
849 &descent, &overall);
850 return overall.width;
851}
852
853/* Helper function for 16-bit fonts */
854static int str16len(const char *s)
855{
856 int count = 0;
857
858 while (s[0] && s[1]) {
859 count++;
860 s += 2;
861 }
862
863 return count;
4bb6408c
JS
864}
865
866void wxWindow::GetTextExtent(const wxString& string, int *x, int *y,
47bc1060 867 int *descent, int *externalLeading, const wxFont *theFont, bool use16) const
4bb6408c
JS
868{
869 wxFont *fontToUse = (wxFont *)theFont;
870 if (!fontToUse)
871 fontToUse = (wxFont *) & m_windowFont;
872
47bc1060
JS
873 if (!fontToUse->Ok())
874 return;
875
876 WXFontStructPtr pFontStruct = theFont->GetFontStruct(1.0, GetXDisplay());
877
878 int direction, ascent, descent2;
879 XCharStruct overall;
880 int slen;
881
882 if (use16) slen = str16len(string); else slen = strlen(string);
883
884 if (use16)
885 XTextExtents16((XFontStruct*) pFontStruct, (XChar2b *) (char*) (const char*) string, slen, &direction,
886 &ascent, &descent2, &overall);
887 else
888 XTextExtents((XFontStruct*) pFontStruct, (char*) (const char*) string, slen, &direction,
889 &ascent, &descent2, &overall);
890
891 *x = (overall.width);
892 *y = (ascent + descent2);
893 if (descent)
894 *descent = descent2;
895 if (externalLeading)
896 *externalLeading = 0;
4bb6408c
JS
897}
898
16e93305 899void wxWindow::Refresh(bool eraseBack, const wxRect *rect)
4bb6408c
JS
900{
901 Display *display = XtDisplay((Widget) GetMainWidget());
902 Window thisWindow = XtWindow((Widget) GetMainWidget());
903
904 XExposeEvent dummyEvent;
905 int width, height;
906 GetSize(&width, &height);
907
908 dummyEvent.type = Expose;
909 dummyEvent.display = display;
910 dummyEvent.send_event = True;
911 dummyEvent.window = thisWindow;
912 if (rect)
913 {
914 dummyEvent.x = rect->x;
915 dummyEvent.y = rect->y;
916 dummyEvent.width = rect->width;
917 dummyEvent.height = rect->height;
918 }
919 else
920 {
921 dummyEvent.x = 0;
922 dummyEvent.y = 0;
923 dummyEvent.width = width;
924 dummyEvent.height = height;
925 }
926 dummyEvent.count = 0;
927
928 if (eraseBack)
929 {
930 wxClientDC dc(this);
e97f20a0
JS
931 wxBrush backgroundBrush(GetBackgroundColour(), wxSOLID);
932 dc.SetBackground(backgroundBrush);
a367b9b3
JS
933 if (rect)
934 dc.Clear(*rect);
935 else
936 dc.Clear();
4bb6408c
JS
937 }
938
939 XSendEvent(display, thisWindow, False, ExposureMask, (XEvent *)&dummyEvent);
940}
941
942// Responds to colour changes: passes event on to children.
943void wxWindow::OnSysColourChanged(wxSysColourChangedEvent& event)
944{
c0ed460c 945 wxNode *node = GetChildren().First();
4bb6408c
JS
946 while ( node )
947 {
948 // Only propagate to non-top-level windows
949 wxWindow *win = (wxWindow *)node->Data();
950 if ( win->GetParent() )
951 {
952 wxSysColourChangedEvent event2;
953 event.m_eventObject = win;
954 win->GetEventHandler()->ProcessEvent(event2);
955 }
956
957 node = node->Next();
958 }
959}
960
961// This can be called by the app (or wxWindows) to do default processing for the current
962// event. Save message/event info in wxWindow so they can be used in this function.
963long wxWindow::Default()
964{
965 // TODO
966 return 0;
967}
968
969void wxWindow::InitDialog()
970{
971 wxInitDialogEvent event(GetId());
972 event.SetEventObject( this );
973 GetEventHandler()->ProcessEvent(event);
974}
975
976// Default init dialog behaviour is to transfer data to window
977void wxWindow::OnInitDialog(wxInitDialogEvent& event)
978{
979 TransferDataToWindow();
980}
981
982// Caret manipulation
983void wxWindow::CreateCaret(int w, int h)
984{
985 m_caretWidth = w;
986 m_caretHeight = h;
987 m_caretEnabled = TRUE;
988}
989
990void wxWindow::CreateCaret(const wxBitmap *WXUNUSED(bitmap))
991{
992 // TODO
993}
994
995void wxWindow::ShowCaret(bool show)
996{
997 // TODO
998}
999
1000void wxWindow::DestroyCaret()
1001{
1002 // TODO
1003 m_caretEnabled = FALSE;
1004}
1005
1006void wxWindow::SetCaretPos(int x, int y)
1007{
1008 // TODO
1009}
1010
1011void wxWindow::GetCaretPos(int *x, int *y) const
1012{
1013 // TODO
1014}
1015
1016wxWindow *wxGetActiveWindow()
1017{
1018 // TODO
1019 return NULL;
1020}
1021
1022void wxWindow::SetSizeHints(int minW, int minH, int maxW, int maxH, int incW, int incH)
1023{
1024 m_minSizeX = minW;
1025 m_minSizeY = minH;
1026 m_maxSizeX = maxW;
1027 m_maxSizeY = maxH;
1028
1029 if (!this->IsKindOf(CLASSINFO(wxFrame)))
1030 return;
1031
1032 wxFrame *frame = (wxFrame *)this;
47bc1060 1033 Widget widget = (Widget) frame->GetShellWidget();
4bb6408c 1034
4bb6408c 1035 if (minW > -1)
47bc1060 1036 XtVaSetValues(widget, XmNminWidth, minW, NULL);
4bb6408c 1037 if (minH > -1)
47bc1060 1038 XtVaSetValues(widget, XmNminHeight, minH, NULL);
4bb6408c 1039 if (maxW > -1)
47bc1060 1040 XtVaSetValues(widget, XmNmaxWidth, maxW, NULL);
4bb6408c 1041 if (maxH > -1)
47bc1060 1042 XtVaSetValues(widget, XmNmaxHeight, maxH, NULL);
4bb6408c 1043 if (incW > -1)
47bc1060 1044 XtVaSetValues(widget, XmNwidthInc, incW, NULL);
4bb6408c 1045 if (incH > -1)
47bc1060 1046 XtVaSetValues(widget, XmNheightInc, incH, NULL);
4bb6408c
JS
1047}
1048
1049void wxWindow::Centre(int direction)
1050{
1051 int x, y, width, height, panel_width, panel_height, new_x, new_y;
1052
1053 wxWindow *father = (wxWindow *)GetParent();
1054 if (!father)
1055 return;
1056
1057 father->GetClientSize(&panel_width, &panel_height);
1058 GetSize(&width, &height);
1059 GetPosition(&x, &y);
1060
1061 new_x = -1;
1062 new_y = -1;
1063
1064 if (direction & wxHORIZONTAL)
1065 new_x = (int)((panel_width - width)/2);
1066
1067 if (direction & wxVERTICAL)
1068 new_y = (int)((panel_height - height)/2);
1069
1070 SetSize(new_x, new_y, -1, -1);
1071
1072}
1073
1074// Coordinates relative to the window
50414e24 1075void wxWindow::WarpPointer (int x, int y)
4bb6408c 1076{
50414e24 1077 XWarpPointer (XtDisplay((Widget) GetClientWidget()), None, XtWindow((Widget) GetClientWidget()), 0, 0, 0, 0, x, y);
4bb6408c
JS
1078}
1079
1080void wxWindow::OnEraseBackground(wxEraseEvent& event)
1081{
1082 // TODO
1083 Default();
1084}
1085
1086int wxWindow::GetScrollPos(int orient) const
1087{
47bc1060
JS
1088 if (orient == wxHORIZONTAL)
1089 return m_scrollPosX;
1090 else
1091 return m_scrollPosY;
1092/*
1093 Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar);
1094 if (scrollBar)
1095 {
1096 int pos;
1097 XtVaGetValues(scrollBar,
1098 XmNvalue, &pos, NULL);
1099 return pos;
1100 }
1101 else
1102 return 0;
1103*/
4bb6408c
JS
1104}
1105
1106// This now returns the whole range, not just the number
1107// of positions that we can scroll.
1108int wxWindow::GetScrollRange(int orient) const
1109{
47bc1060
JS
1110 Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar);
1111 if (scrollBar)
1112 {
1113 int range;
1114 XtVaGetValues(scrollBar,
1115 XmNmaximum, &range, NULL);
1116 return range;
1117 }
1118 else
1119 return 0;
4bb6408c
JS
1120}
1121
1122int wxWindow::GetScrollThumb(int orient) const
1123{
47bc1060
JS
1124 Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar);
1125 if (scrollBar)
1126 {
1127 int thumb;
1128 XtVaGetValues(scrollBar,
1129 XmNsliderSize, &thumb, NULL);
1130 return thumb;
1131 }
1132 else
1133 return 0;
4bb6408c
JS
1134}
1135
47bc1060 1136void wxWindow::SetScrollPos(int orient, int pos, bool WXUNUSED(refresh))
4bb6408c 1137{
47bc1060
JS
1138 Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar);
1139 if (scrollBar)
1140 {
1141 XtVaSetValues (scrollBar,
1142 XmNvalue, pos,
1143 NULL);
1144 }
1145 if (orient == wxHORIZONTAL)
1146 m_scrollPosX = pos;
1147 else
1148 m_scrollPosY = pos;
1149
4bb6408c
JS
1150}
1151
1152// New function that will replace some of the above.
1153void wxWindow::SetScrollbar(int orient, int pos, int thumbVisible,
47bc1060 1154 int range, bool WXUNUSED(refresh))
4bb6408c 1155{
47bc1060
JS
1156 Widget scrollBar = (Widget) ((orient == wxHORIZONTAL) ? m_hScrollBar : m_vScrollBar );
1157 if (!scrollBar)
1158 return;
1159
1160 if (range == 0)
1161 range = 1;
1162 if (thumbVisible == 0)
1163 thumbVisible = 1;
1164
1165 XtVaSetValues(scrollBar,
1166 XmNvalue, pos,
1167 XmNminimum, 0,
1168 XmNmaximum, range,
1169 XmNsliderSize, thumbVisible,
1170 NULL);
1171
1172 if (orient == wxHORIZONTAL)
1173 m_scrollPosX = pos;
1174 else
1175 m_scrollPosY = pos;
4bb6408c
JS
1176}
1177
1178// Does a physical scroll
16e93305 1179void wxWindow::ScrollWindow(int dx, int dy, const wxRect *rect)
4bb6408c 1180{
47bc1060
JS
1181// cerr << "Scrolling. delta = " << dx << ", " << dy << endl;
1182 int x, y, w, h;
1183 if (rect)
1184 {
1185 // Use specified rectangle
1186 x = rect->x; y = rect->y; w = rect->width; h = rect->height;
1187 }
1188 else
1189 {
1190 // Use whole client area
1191 x = 0; y = 0;
1192 GetClientSize(& w, & h);
1193 }
1194
1195 int x1 = (dx >= 0) ? x : x - dx ;
1196 int y1 = (dy >= 0) ? y : y - dy;
1197 int w1 = w - abs(dx);
1198 int h1 = h - abs(dy);
1199 int x2 = (dx >= 0) ? x + dx : x;
1200 int y2 = (dy >= 0) ? y + dy : y;
1201
1202 wxClientDC dc(this);
1203
1204 dc.SetLogicalFunction (wxCOPY);
1205
1206 Widget widget = (Widget) GetMainWidget();
1207 Window window = XtWindow(widget);
1208 Display* display = XtDisplay(widget);
1209
1210 XCopyArea(display, window,
1211 window, (GC) dc.GetGC(),
1212 x1, y1,
1213 w1, h1,
1214 x2, y2);
1215
1216 dc.SetAutoSetting(TRUE);
1217 wxBrush brush(GetBackgroundColour(), wxSOLID);
1218 dc.SetBrush(brush); // ??
1219
1220 // We'll add rectangles to the list of update rectangles
1221 // according to which bits we've exposed.
1222 wxList updateRects;
1223
1224 if (dx > 0)
1225 {
1226 wxRect *rect = new wxRect;
1227 rect->x = x;
1228 rect->y = y;
1229 rect->width = dx;
1230 rect->height = h;
1231
1232 XFillRectangle(display, window,
1233 (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
1234
1235 rect->x = rect->x;
1236 rect->y = rect->y;
1237 rect->width = rect->width;
1238 rect->height = rect->height;
1239
1240 updateRects.Append((wxObject*) rect);
1241 }
1242 else if (dx < 0)
1243 {
1244 wxRect *rect = new wxRect;
1245
1246 rect->x = x + w + dx;
1247 rect->y = y;
1248 rect->width = -dx;
1249 rect->height = h;
1250
1251 XFillRectangle(display, window,
1252 (GC) dc.GetGC(), rect->x, rect->y, rect->width,
1253 rect->height);
1254
1255 rect->x = rect->x;
1256 rect->y = rect->y;
1257 rect->width = rect->width;
1258 rect->height = rect->height;
1259
1260 updateRects.Append((wxObject*) rect);
1261 }
1262 if (dy > 0)
1263 {
1264 wxRect *rect = new wxRect;
1265
1266 rect->x = x;
1267 rect->y = y;
1268 rect->width = w;
1269 rect->height = dy;
1270
1271 XFillRectangle(display, window,
1272 (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
1273
1274 rect->x = rect->x;
1275 rect->y = rect->y;
1276 rect->width = rect->width;
1277 rect->height = rect->height;
1278
1279 updateRects.Append((wxObject*) rect);
1280 }
1281 else if (dy < 0)
1282 {
1283 wxRect *rect = new wxRect;
1284
1285 rect->x = x;
1286 rect->y = y + h + dy;
1287 rect->width = w;
1288 rect->height = -dy;
1289
1290 XFillRectangle(display, window,
1291 (GC) dc.GetGC(), rect->x, rect->y, rect->width, rect->height);
1292
1293 rect->x = rect->x;
1294 rect->y = rect->y;
1295 rect->width = rect->width;
1296 rect->height = rect->height;
1297
1298 updateRects.Append((wxObject*) rect);
1299 }
1300 dc.SetBrush(wxNullBrush);
1301
1302 // Now send expose events
1303
1304 wxNode* node = updateRects.First();
1305 while (node)
1306 {
1307 wxRect* rect = (wxRect*) node->Data();
1308 XExposeEvent event;
1309
1310 event.type = Expose;
1311 event.display = display;
1312 event.send_event = True;
1313 event.window = window;
1314
1315 event.x = rect->x;
1316 event.y = rect->y;
1317 event.width = rect->width;
1318 event.height = rect->height;
1319
1320 event.count = 0;
1321
1322 XSendEvent(display, window, False, ExposureMask, (XEvent *)&event);
1323
1324 node = node->Next();
1325
1326 }
4fabb575
JS
1327
1328 // Delete the update rects
1329 node = updateRects.First();
1330 while (node)
1331 {
1332 wxRect* rect = (wxRect*) node->Data();
1333 delete rect;
1334 node = node->Next();
1335 }
1336
4bb6408c
JS
1337}
1338
4bb6408c
JS
1339void wxWindow::OnChar(wxKeyEvent& event)
1340{
1341 if ( event.KeyCode() == WXK_TAB ) {
1342 // propagate the TABs to the parent - it's up to it to decide what
1343 // to do with it
1344 if ( GetParent() ) {
1345 if ( GetParent()->ProcessEvent(event) )
1346 return;
1347 }
1348 }
1349}
1350
1351void wxWindow::OnPaint(wxPaintEvent& event)
1352{
1353 Default();
1354}
1355
1356bool wxWindow::IsEnabled() const
1357{
47bc1060
JS
1358 // TODO. Is this right?
1359 // return XtGetSensitive((Widget) GetMainWidget());
4bb6408c
JS
1360 return FALSE;
1361}
1362
1363// Dialog support: override these and call
1364// base class members to add functionality
1365// that can't be done using validators.
1366// NOTE: these functions assume that controls
1367// are direct children of this window, not grandchildren
1368// or other levels of descendant.
1369
1370// Transfer values to controls. If returns FALSE,
1371// it's an application error (pops up a dialog)
1372bool wxWindow::TransferDataToWindow()
1373{
c0ed460c 1374 wxNode *node = GetChildren().First();
4bb6408c
JS
1375 while ( node )
1376 {
1377 wxWindow *child = (wxWindow *)node->Data();
1378 if ( child->GetValidator() &&
1379 !child->GetValidator()->TransferToWindow() )
1380 {
1381 wxMessageBox("Application Error", "Could not transfer data to window", wxOK|wxICON_EXCLAMATION);
1382 return FALSE;
1383 }
1384
1385 node = node->Next();
1386 }
1387 return TRUE;
1388}
1389
1390// Transfer values from controls. If returns FALSE,
1391// validation failed: don't quit
1392bool wxWindow::TransferDataFromWindow()
1393{
c0ed460c 1394 wxNode *node = GetChildren().First();
4bb6408c
JS
1395 while ( node )
1396 {
1397 wxWindow *child = (wxWindow *)node->Data();
1398 if ( child->GetValidator() && !child->GetValidator()->TransferFromWindow() )
1399 {
1400 return FALSE;
1401 }
1402
1403 node = node->Next();
1404 }
1405 return TRUE;
1406}
1407
1408bool wxWindow::Validate()
1409{
c0ed460c 1410 wxNode *node = GetChildren().First();
4bb6408c
JS
1411 while ( node )
1412 {
1413 wxWindow *child = (wxWindow *)node->Data();
1414 if ( child->GetValidator() && /* child->GetValidator()->Ok() && */ !child->GetValidator()->Validate(this) )
1415 {
1416 return FALSE;
1417 }
1418
1419 node = node->Next();
1420 }
1421 return TRUE;
1422}
1423
1424// Get the window with the focus
1425wxWindow *wxWindow::FindFocus()
1426{
1427 // TODO
1428 return NULL;
1429}
1430
1431void wxWindow::AddChild(wxWindow *child)
1432{
c0ed460c 1433 GetChildren().Append(child);
4bb6408c
JS
1434 child->m_windowParent = this;
1435}
1436
1437void wxWindow::RemoveChild(wxWindow *child)
1438{
c0ed460c 1439 GetChildren().DeleteObject(child);
4bb6408c
JS
1440 child->m_windowParent = NULL;
1441}
1442
4fabb575
JS
1443// Reparents this window to have the new parent.
1444bool wxWindow::Reparent(wxWindow* WXUNUSED(parent))
1445{
1446 // For now, we indicate that this isn't implemented.
1447 return FALSE;
1448}
1449
4bb6408c
JS
1450void wxWindow::DestroyChildren()
1451{
c0ed460c 1452 wxNode *node = GetChildren().First();
02800301
JS
1453 while (node)
1454 {
1455 wxNode* next = node->Next();
1456 wxWindow* child = (wxWindow*) node->Data();
1457 delete child;
1458 node = next;
1459 }
c0ed460c 1460 GetChildren().Clear();
02800301 1461#if 0
4bb6408c 1462 wxNode *node;
c0ed460c 1463 while ((node = GetChildren().First()) != (wxNode *)NULL) {
4bb6408c
JS
1464 wxWindow *child;
1465 if ((child = (wxWindow *)node->Data()) != (wxWindow *)NULL) {
1466 delete child;
c0ed460c 1467 if ( GetChildren().Member(child) )
4bb6408c
JS
1468 delete node;
1469 }
1470 } /* while */
02800301 1471#endif
4bb6408c
JS
1472}
1473
1474void wxWindow::MakeModal(bool modal)
1475{
1476 // Disable all other windows
1477 if (this->IsKindOf(CLASSINFO(wxDialog)) || this->IsKindOf(CLASSINFO(wxFrame)))
1478 {
1479 wxNode *node = wxTopLevelWindows.First();
1480 while (node)
1481 {
1482 wxWindow *win = (wxWindow *)node->Data();
1483 if (win != this)
1484 win->Enable(!modal);
1485
1486 node = node->Next();
1487 }
1488 }
1489}
1490
02e8b2f9
JS
1491// If nothing defined for this, try the parent.
1492// E.g. we may be a button loaded from a resource, with no callback function
1493// defined.
1494void wxWindow::OnCommand(wxWindow& win, wxCommandEvent& event)
1495{
1496 if (GetEventHandler()->ProcessEvent(event) )
1497 return;
1498 if (m_windowParent)
1499 m_windowParent->GetEventHandler()->OnCommand(win, event);
1500}
1501
4bb6408c
JS
1502void wxWindow::SetConstraints(wxLayoutConstraints *c)
1503{
1504 if (m_constraints)
1505 {
1506 UnsetConstraints(m_constraints);
1507 delete m_constraints;
1508 }
1509 m_constraints = c;
1510 if (m_constraints)
1511 {
1512 // Make sure other windows know they're part of a 'meaningful relationship'
1513 if (m_constraints->left.GetOtherWindow() && (m_constraints->left.GetOtherWindow() != this))
1514 m_constraints->left.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1515 if (m_constraints->top.GetOtherWindow() && (m_constraints->top.GetOtherWindow() != this))
1516 m_constraints->top.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1517 if (m_constraints->right.GetOtherWindow() && (m_constraints->right.GetOtherWindow() != this))
1518 m_constraints->right.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1519 if (m_constraints->bottom.GetOtherWindow() && (m_constraints->bottom.GetOtherWindow() != this))
1520 m_constraints->bottom.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1521 if (m_constraints->width.GetOtherWindow() && (m_constraints->width.GetOtherWindow() != this))
1522 m_constraints->width.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1523 if (m_constraints->height.GetOtherWindow() && (m_constraints->height.GetOtherWindow() != this))
1524 m_constraints->height.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1525 if (m_constraints->centreX.GetOtherWindow() && (m_constraints->centreX.GetOtherWindow() != this))
1526 m_constraints->centreX.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1527 if (m_constraints->centreY.GetOtherWindow() && (m_constraints->centreY.GetOtherWindow() != this))
1528 m_constraints->centreY.GetOtherWindow()->AddConstraintReference((wxWindow *)this);
1529 }
1530}
1531
1532// This removes any dangling pointers to this window
1533// in other windows' constraintsInvolvedIn lists.
1534void wxWindow::UnsetConstraints(wxLayoutConstraints *c)
1535{
1536 if (c)
1537 {
1538 if (c->left.GetOtherWindow() && (c->top.GetOtherWindow() != this))
1539 c->left.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1540 if (c->top.GetOtherWindow() && (c->top.GetOtherWindow() != this))
1541 c->top.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1542 if (c->right.GetOtherWindow() && (c->right.GetOtherWindow() != this))
1543 c->right.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1544 if (c->bottom.GetOtherWindow() && (c->bottom.GetOtherWindow() != this))
1545 c->bottom.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1546 if (c->width.GetOtherWindow() && (c->width.GetOtherWindow() != this))
1547 c->width.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1548 if (c->height.GetOtherWindow() && (c->height.GetOtherWindow() != this))
1549 c->height.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1550 if (c->centreX.GetOtherWindow() && (c->centreX.GetOtherWindow() != this))
1551 c->centreX.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1552 if (c->centreY.GetOtherWindow() && (c->centreY.GetOtherWindow() != this))
1553 c->centreY.GetOtherWindow()->RemoveConstraintReference((wxWindow *)this);
1554 }
1555}
1556
1557// Back-pointer to other windows we're involved with, so if we delete
1558// this window, we must delete any constraints we're involved with.
1559void wxWindow::AddConstraintReference(wxWindow *otherWin)
1560{
1561 if (!m_constraintsInvolvedIn)
1562 m_constraintsInvolvedIn = new wxList;
1563 if (!m_constraintsInvolvedIn->Member(otherWin))
1564 m_constraintsInvolvedIn->Append(otherWin);
1565}
1566
1567// REMOVE back-pointer to other windows we're involved with.
1568void wxWindow::RemoveConstraintReference(wxWindow *otherWin)
1569{
1570 if (m_constraintsInvolvedIn)
1571 m_constraintsInvolvedIn->DeleteObject(otherWin);
1572}
1573
1574// Reset any constraints that mention this window
1575void wxWindow::DeleteRelatedConstraints()
1576{
1577 if (m_constraintsInvolvedIn)
1578 {
1579 wxNode *node = m_constraintsInvolvedIn->First();
1580 while (node)
1581 {
1582 wxWindow *win = (wxWindow *)node->Data();
1583 wxNode *next = node->Next();
1584 wxLayoutConstraints *constr = win->GetConstraints();
1585
1586 // Reset any constraints involving this window
1587 if (constr)
1588 {
1589 constr->left.ResetIfWin((wxWindow *)this);
1590 constr->top.ResetIfWin((wxWindow *)this);
1591 constr->right.ResetIfWin((wxWindow *)this);
1592 constr->bottom.ResetIfWin((wxWindow *)this);
1593 constr->width.ResetIfWin((wxWindow *)this);
1594 constr->height.ResetIfWin((wxWindow *)this);
1595 constr->centreX.ResetIfWin((wxWindow *)this);
1596 constr->centreY.ResetIfWin((wxWindow *)this);
1597 }
1598 delete node;
1599 node = next;
1600 }
1601 delete m_constraintsInvolvedIn;
1602 m_constraintsInvolvedIn = NULL;
1603 }
1604}
1605
1606void wxWindow::SetSizer(wxSizer *sizer)
1607{
1608 m_windowSizer = sizer;
1609 if (sizer)
1610 sizer->SetSizerParent((wxWindow *)this);
1611}
1612
1613/*
1614 * New version
1615 */
1616
1617bool wxWindow::Layout()
1618{
1619 if (GetConstraints())
1620 {
1621 int w, h;
1622 GetClientSize(&w, &h);
1623 GetConstraints()->width.SetValue(w);
1624 GetConstraints()->height.SetValue(h);
1625 }
1626
1627 // If top level (one sizer), evaluate the sizer's constraints.
1628 if (GetSizer())
1629 {
1630 int noChanges;
1631 GetSizer()->ResetConstraints(); // Mark all constraints as unevaluated
1632 GetSizer()->LayoutPhase1(&noChanges);
1633 GetSizer()->LayoutPhase2(&noChanges);
1634 GetSizer()->SetConstraintSizes(); // Recursively set the real window sizes
1635 return TRUE;
1636 }
1637 else
1638 {
1639 // Otherwise, evaluate child constraints
1640 ResetConstraints(); // Mark all constraints as unevaluated
1641 DoPhase(1); // Just one phase need if no sizers involved
1642 DoPhase(2);
1643 SetConstraintSizes(); // Recursively set the real window sizes
1644 }
1645 return TRUE;
1646}
1647
1648
1649// Do a phase of evaluating constraints:
1650// the default behaviour. wxSizers may do a similar
1651// thing, but also impose their own 'constraints'
1652// and order the evaluation differently.
1653bool wxWindow::LayoutPhase1(int *noChanges)
1654{
1655 wxLayoutConstraints *constr = GetConstraints();
1656 if (constr)
1657 {
1658 return constr->SatisfyConstraints((wxWindow *)this, noChanges);
1659 }
1660 else
1661 return TRUE;
1662}
1663
1664bool wxWindow::LayoutPhase2(int *noChanges)
1665{
1666 *noChanges = 0;
1667
1668 // Layout children
1669 DoPhase(1);
1670 DoPhase(2);
1671 return TRUE;
1672}
1673
1674// Do a phase of evaluating child constraints
1675bool wxWindow::DoPhase(int phase)
1676{
1677 int noIterations = 0;
1678 int maxIterations = 500;
1679 int noChanges = 1;
1680 int noFailures = 0;
1681 wxList succeeded;
1682 while ((noChanges > 0) && (noIterations < maxIterations))
1683 {
1684 noChanges = 0;
1685 noFailures = 0;
c0ed460c 1686 wxNode *node = GetChildren().First();
4bb6408c
JS
1687 while (node)
1688 {
1689 wxWindow *child = (wxWindow *)node->Data();
1690 if (!child->IsKindOf(CLASSINFO(wxFrame)) && !child->IsKindOf(CLASSINFO(wxDialog)))
1691 {
1692 wxLayoutConstraints *constr = child->GetConstraints();
1693 if (constr)
1694 {
1695 if (succeeded.Member(child))
1696 {
1697 }
1698 else
1699 {
1700 int tempNoChanges = 0;
1701 bool success = ( (phase == 1) ? child->LayoutPhase1(&tempNoChanges) : child->LayoutPhase2(&tempNoChanges) ) ;
1702 noChanges += tempNoChanges;
1703 if (success)
1704 {
1705 succeeded.Append(child);
1706 }
1707 }
1708 }
1709 }
1710 node = node->Next();
1711 }
1712 noIterations ++;
1713 }
1714 return TRUE;
1715}
1716
1717void wxWindow::ResetConstraints()
1718{
1719 wxLayoutConstraints *constr = GetConstraints();
1720 if (constr)
1721 {
1722 constr->left.SetDone(FALSE);
1723 constr->top.SetDone(FALSE);
1724 constr->right.SetDone(FALSE);
1725 constr->bottom.SetDone(FALSE);
1726 constr->width.SetDone(FALSE);
1727 constr->height.SetDone(FALSE);
1728 constr->centreX.SetDone(FALSE);
1729 constr->centreY.SetDone(FALSE);
1730 }
c0ed460c 1731 wxNode *node = GetChildren().First();
4bb6408c
JS
1732 while (node)
1733 {
1734 wxWindow *win = (wxWindow *)node->Data();
1735 if (!win->IsKindOf(CLASSINFO(wxFrame)) && !win->IsKindOf(CLASSINFO(wxDialog)))
1736 win->ResetConstraints();
1737 node = node->Next();
1738 }
1739}
1740
1741// Need to distinguish between setting the 'fake' size for
1742// windows and sizers, and setting the real values.
1743void wxWindow::SetConstraintSizes(bool recurse)
1744{
1745 wxLayoutConstraints *constr = GetConstraints();
1746 if (constr && constr->left.GetDone() && constr->right.GetDone() &&
1747 constr->width.GetDone() && constr->height.GetDone())
1748 {
1749 int x = constr->left.GetValue();
1750 int y = constr->top.GetValue();
1751 int w = constr->width.GetValue();
1752 int h = constr->height.GetValue();
1753
1754 // If we don't want to resize this window, just move it...
1755 if ((constr->width.GetRelationship() != wxAsIs) ||
1756 (constr->height.GetRelationship() != wxAsIs))
1757 {
1758 // Calls Layout() recursively. AAAGH. How can we stop that.
1759 // Simply take Layout() out of non-top level OnSizes.
1760 SizerSetSize(x, y, w, h);
1761 }
1762 else
1763 {
1764 SizerMove(x, y);
1765 }
1766 }
1767 else if (constr)
1768 {
1769 char *windowClass = this->GetClassInfo()->GetClassName();
1770
1771 wxString winName;
1772 if (GetName() == "")
1773 winName = "unnamed";
1774 else
1775 winName = GetName();
1776 wxDebugMsg("Constraint(s) not satisfied for window of type %s, name %s:\n", (const char *)windowClass, (const char *)winName);
1777 if (!constr->left.GetDone())
1778 wxDebugMsg(" unsatisfied 'left' constraint.\n");
1779 if (!constr->right.GetDone())
1780 wxDebugMsg(" unsatisfied 'right' constraint.\n");
1781 if (!constr->width.GetDone())
1782 wxDebugMsg(" unsatisfied 'width' constraint.\n");
1783 if (!constr->height.GetDone())
1784 wxDebugMsg(" unsatisfied 'height' constraint.\n");
1785 wxDebugMsg("Please check constraints: try adding AsIs() constraints.\n");
1786 }
1787
1788 if (recurse)
1789 {
c0ed460c 1790 wxNode *node = GetChildren().First();
4bb6408c
JS
1791 while (node)
1792 {
1793 wxWindow *win = (wxWindow *)node->Data();
1794 if (!win->IsKindOf(CLASSINFO(wxFrame)) && !win->IsKindOf(CLASSINFO(wxDialog)))
1795 win->SetConstraintSizes();
1796 node = node->Next();
1797 }
1798 }
1799}
1800
1801// This assumes that all sizers are 'on' the same
1802// window, i.e. the parent of this window.
1803void wxWindow::TransformSizerToActual(int *x, int *y) const
1804{
1805 if (!m_sizerParent || m_sizerParent->IsKindOf(CLASSINFO(wxDialog)) ||
1806 m_sizerParent->IsKindOf(CLASSINFO(wxFrame)) )
1807 return;
1808
1809 int xp, yp;
1810 m_sizerParent->GetPosition(&xp, &yp);
1811 m_sizerParent->TransformSizerToActual(&xp, &yp);
1812 *x += xp;
1813 *y += yp;
1814}
1815
1816void wxWindow::SizerSetSize(int x, int y, int w, int h)
1817{
1818 int xx = x;
1819 int yy = y;
1820 TransformSizerToActual(&xx, &yy);
1821 SetSize(xx, yy, w, h);
1822}
1823
1824void wxWindow::SizerMove(int x, int y)
1825{
1826 int xx = x;
1827 int yy = y;
1828 TransformSizerToActual(&xx, &yy);
1829 Move(xx, yy);
1830}
1831
1832// Only set the size/position of the constraint (if any)
1833void wxWindow::SetSizeConstraint(int x, int y, int w, int h)
1834{
1835 wxLayoutConstraints *constr = GetConstraints();
1836 if (constr)
1837 {
1838 if (x != -1)
1839 {
1840 constr->left.SetValue(x);
1841 constr->left.SetDone(TRUE);
1842 }
1843 if (y != -1)
1844 {
1845 constr->top.SetValue(y);
1846 constr->top.SetDone(TRUE);
1847 }
1848 if (w != -1)
1849 {
1850 constr->width.SetValue(w);
1851 constr->width.SetDone(TRUE);
1852 }
1853 if (h != -1)
1854 {
1855 constr->height.SetValue(h);
1856 constr->height.SetDone(TRUE);
1857 }
1858 }
1859}
1860
1861void wxWindow::MoveConstraint(int x, int y)
1862{
1863 wxLayoutConstraints *constr = GetConstraints();
1864 if (constr)
1865 {
1866 if (x != -1)
1867 {
1868 constr->left.SetValue(x);
1869 constr->left.SetDone(TRUE);
1870 }
1871 if (y != -1)
1872 {
1873 constr->top.SetValue(y);
1874 constr->top.SetDone(TRUE);
1875 }
1876 }
1877}
1878
1879void wxWindow::GetSizeConstraint(int *w, int *h) const
1880{
1881 wxLayoutConstraints *constr = GetConstraints();
1882 if (constr)
1883 {
1884 *w = constr->width.GetValue();
1885 *h = constr->height.GetValue();
1886 }
1887 else
1888 GetSize(w, h);
1889}
1890
1891void wxWindow::GetClientSizeConstraint(int *w, int *h) const
1892{
1893 wxLayoutConstraints *constr = GetConstraints();
1894 if (constr)
1895 {
1896 *w = constr->width.GetValue();
1897 *h = constr->height.GetValue();
1898 }
1899 else
1900 GetClientSize(w, h);
1901}
1902
1903void wxWindow::GetPositionConstraint(int *x, int *y) const
1904{
1905 wxLayoutConstraints *constr = GetConstraints();
1906 if (constr)
1907 {
1908 *x = constr->left.GetValue();
1909 *y = constr->top.GetValue();
1910 }
1911 else
1912 GetPosition(x, y);
1913}
1914
1915bool wxWindow::Close(bool force)
1916{
1917 wxCloseEvent event(wxEVT_CLOSE_WINDOW, m_windowId);
1918 event.SetEventObject(this);
1919 event.SetForce(force);
1920
1921 return GetEventHandler()->ProcessEvent(event);
1922}
1923
1924wxObject* wxWindow::GetChild(int number) const
1925{
1926 // Return a pointer to the Nth object in the window
c0ed460c 1927 wxNode *node = GetChildren().First();
4bb6408c
JS
1928 int n = number;
1929 while (node && n--)
1930 node = node->Next() ;
1931 if (node)
1932 {
1933 wxObject *obj = (wxObject *)node->Data();
1934 return(obj) ;
1935 }
1936 else
1937 return NULL ;
1938}
1939
1940void wxWindow::OnDefaultAction(wxControl *initiatingItem)
1941{
1942 // Obsolete function
1943}
1944
1945void wxWindow::Clear()
1946{
e97f20a0 1947 wxClientDC dc(this);
4bb6408c
JS
1948 wxBrush brush(GetBackgroundColour(), wxSOLID);
1949 dc.SetBackground(brush);
1950 dc.Clear();
1951}
1952
1953// Fits the panel around the items
1954void wxWindow::Fit()
1955{
1956 int maxX = 0;
1957 int maxY = 0;
c0ed460c 1958 wxNode *node = GetChildren().First();
4bb6408c
JS
1959 while ( node )
1960 {
1961 wxWindow *win = (wxWindow *)node->Data();
1962 int wx, wy, ww, wh;
1963 win->GetPosition(&wx, &wy);
1964 win->GetSize(&ww, &wh);
1965 if ( wx + ww > maxX )
1966 maxX = wx + ww;
1967 if ( wy + wh > maxY )
1968 maxY = wy + wh;
1969
1970 node = node->Next();
1971 }
1972 SetClientSize(maxX + 5, maxY + 5);
1973}
1974
1975void wxWindow::SetValidator(const wxValidator& validator)
1976{
1977 if ( m_windowValidator )
1978 delete m_windowValidator;
1979 m_windowValidator = validator.Clone();
1980
1981 if ( m_windowValidator )
1982 m_windowValidator->SetWindow(this) ;
3dd4e4e0
JS
1983}
1984
1985void wxWindow::SetClientObject( wxClientData *data )
1986{
1987 if (m_clientObject) delete m_clientObject;
1988 m_clientObject = data;
1989}
1990
1991wxClientData *wxWindow::GetClientObject()
1992{
1993 return m_clientObject;
1994}
1995
1996void wxWindow::SetClientData( void *data )
1997{
1998 m_clientData = data;
1999}
2000
2001void *wxWindow::GetClientData()
2002{
2003 return m_clientData;
4bb6408c
JS
2004}
2005
2006// Find a window by id or name
2007wxWindow *wxWindow::FindWindow(long id)
2008{
2009 if ( GetId() == id)
2010 return this;
2011
c0ed460c 2012 wxNode *node = GetChildren().First();
4bb6408c
JS
2013 while ( node )
2014 {
2015 wxWindow *child = (wxWindow *)node->Data();
2016 wxWindow *found = child->FindWindow(id);
2017 if ( found )
2018 return found;
2019 node = node->Next();
2020 }
2021 return NULL;
2022}
2023
2024wxWindow *wxWindow::FindWindow(const wxString& name)
2025{
2026 if ( GetName() == name)
2027 return this;
2028
c0ed460c 2029 wxNode *node = GetChildren().First();
4bb6408c
JS
2030 while ( node )
2031 {
2032 wxWindow *child = (wxWindow *)node->Data();
2033 wxWindow *found = child->FindWindow(name);
2034 if ( found )
2035 return found;
2036 node = node->Next();
2037 }
2038 return NULL;
2039}
2040
2041void wxWindow::OnIdle(wxIdleEvent& event)
2042{
4bb6408c
JS
2043 // This calls the UI-update mechanism (querying windows for
2044 // menu/toolbar/control state information)
0d57be45 2045 UpdateWindowUI();
4bb6408c
JS
2046}
2047
2048// Raise the window to the top of the Z order
2049void wxWindow::Raise()
2050{
02e8b2f9
JS
2051 Window window = XtWindow((Widget) GetTopWidget());
2052 XRaiseWindow(XtDisplay((Widget) GetTopWidget()), window);
4bb6408c
JS
2053}
2054
2055// Lower the window to the bottom of the Z order
2056void wxWindow::Lower()
2057{
02e8b2f9
JS
2058 Window window = XtWindow((Widget) GetTopWidget());
2059 XLowerWindow(XtDisplay((Widget) GetTopWidget()), window);
4bb6408c
JS
2060}
2061
2062bool wxWindow::AcceptsFocus() const
2063{
2064 return IsShown() && IsEnabled();
2065}
2066
2067// Update region access
55acd85e 2068wxRegion& wxWindow::GetUpdateRegion() const
4bb6408c 2069{
55acd85e 2070 return (wxRegion&) m_updateRegion;
4bb6408c
JS
2071}
2072
2073bool wxWindow::IsExposed(int x, int y, int w, int h) const
2074{
2075 return (m_updateRegion.Contains(x, y, w, h) != wxOutRegion);
2076}
2077
2078bool wxWindow::IsExposed(const wxPoint& pt) const
2079{
2080 return (m_updateRegion.Contains(pt) != wxOutRegion);
2081}
2082
2083bool wxWindow::IsExposed(const wxRect& rect) const
2084{
2085 return (m_updateRegion.Contains(rect) != wxOutRegion);
2086}
2087
2088/*
2089 * Allocates control IDs
2090 */
2091
2092int wxWindow::NewControlId()
2093{
2094 static int s_controlId = 0;
2095 s_controlId ++;
2096 return s_controlId;
2097}
2098
2099void wxWindow::SetAcceleratorTable(const wxAcceleratorTable& accel)
2100{
2101 m_acceleratorTable = accel;
2102}
2103
2104// All widgets should have this as their resize proc.
2105// OnSize sent to wxWindow via client data.
2106void wxWidgetResizeProc(Widget w, XConfigureEvent *event, String args[], int *num_args)
2107{
2108 wxWindow *win = (wxWindow *)wxWidgetHashTable->Get((long)w);
2109 if (!win)
2110 return;
2111
2112 if (win->PreResize())
2113 {
2114 int width, height;
2115 win->GetSize(&width, &height);
2116 wxSizeEvent sizeEvent(wxSize(width, height), win->GetId());
2117 sizeEvent.SetEventObject(win);
2118 win->GetEventHandler()->ProcessEvent(sizeEvent);
2119 }
2120}
2121
2122bool wxAddWindowToTable(Widget w, wxWindow *win)
2123{
2124 wxWindow *oldItem = NULL;
4bb6408c 2125// printf("Adding widget %ld, name = %s\n", w, win->GetClassInfo()->GetClassName());
4bb6408c
JS
2126 if ((oldItem = (wxWindow *)wxWidgetHashTable->Get ((long) w)))
2127 {
2128 char buf[300];
2129 sprintf(buf, "Widget table clash: new widget is %ld, %s", (long)w, win->GetClassInfo()->GetClassName());
2130 wxError (buf);
2131 fflush(stderr);
2132 sprintf(buf, "Old widget was %s", oldItem->GetClassInfo()->GetClassName());
2133 wxError (buf);
2134 return FALSE;
2135 }
2136
2137 wxWidgetHashTable->Put ((long) w, win);
2138 return TRUE;
2139}
2140
2141wxWindow *wxGetWindowFromTable(Widget w)
2142{
2143 return (wxWindow *)wxWidgetHashTable->Get ((long) w);
2144}
2145
2146void wxDeleteWindowFromTable(Widget w)
2147{
4bb6408c
JS
2148 wxWidgetHashTable->Delete((long)w);
2149}
2150
2151// Get the underlying X window and display
2152WXWindow wxWindow::GetXWindow() const
2153{
50414e24 2154 return (WXWindow) XtWindow((Widget) GetMainWidget());
4bb6408c
JS
2155}
2156
2157WXDisplay *wxWindow::GetXDisplay() const
2158{
50414e24 2159 return (WXDisplay*) XtDisplay((Widget) GetMainWidget());
4bb6408c
JS
2160}
2161
2162WXWidget wxWindow::GetMainWidget() const
2163{
50414e24
JS
2164 if (m_drawingArea)
2165 return m_drawingArea;
2166 else
2167 return m_mainWidget;
2168}
2169
2170WXWidget wxWindow::GetClientWidget() const
2171{
2172 if (m_drawingArea != (WXWidget) 0)
2173 return m_drawingArea;
2174 else
02e8b2f9
JS
2175 return GetMainWidget();
2176}
2177
2178WXWidget wxWindow::GetTopWidget() const
2179{
2180 return GetMainWidget();
4bb6408c
JS
2181}
2182
50414e24
JS
2183void wxCanvasRepaintProc (Widget drawingArea, XtPointer clientData,
2184 XmDrawingAreaCallbackStruct * cbs)
2185{
2186 if (!wxWidgetHashTable->Get ((long) (Widget) drawingArea))
55acd85e 2187 return;
50414e24
JS
2188
2189 XEvent * event = cbs->event;
55acd85e
JS
2190 wxWindow * win = (wxWindow *) clientData;
2191 Display * display = (Display *) win->GetXDisplay();
50414e24
JS
2192
2193 switch (event->type)
2194 {
55acd85e
JS
2195 case Expose:
2196 {
2197 wxRect* rect = new wxRect(event->xexpose.x, event->xexpose.y,
2198 event->xexpose.width, event->xexpose.height);
2199 /*
2200 cout << "Expose proc. wxRect: " << rect->x << ", " << rect->y << ", ";
2201 cout << rect->width << ", " << rect->height << "\n\n";
2202 */
50414e24 2203
55acd85e 2204 win->m_updateRects.Append((wxObject*) rect);
50414e24 2205
55acd85e
JS
2206 if (event -> xexpose.count == 0)
2207 {
2208 wxPaintEvent event(win->GetId());
2209 event.SetEventObject(win);
2210 win->GetEventHandler()->ProcessEvent(event);
50414e24 2211
55acd85e
JS
2212 win->ClearUpdateRects();
2213 }
2214 break;
2215 }
2216 default:
2217 {
2218 cout << "\n\nNew Event ! is = " << event -> type << "\n";
2219 break;
2220 }
50414e24 2221 }
50414e24
JS
2222}
2223
2224// Unable to deal with Enter/Leave without a separate EventHandler (Motif 1.1.4)
2225void
2226wxCanvasEnterLeave (Widget drawingArea, XtPointer clientData, XCrossingEvent * event)
2227{
2228 XmDrawingAreaCallbackStruct cbs;
2229 XEvent ev;
2230
2231 //if (event->mode!=NotifyNormal)
2232 // return ;
2233
2234// ev = *((XEvent *) event); // Causes Purify error (copying too many bytes)
2235 ((XCrossingEvent &) ev) = *event;
2236
2237 cbs.reason = XmCR_INPUT;
2238 cbs.event = &ev;
2239
2240 wxCanvasInputEvent (drawingArea, (XtPointer) NULL, &cbs);
2241}
2242
2243// Fix to make it work under Motif 1.0 (!)
2244void wxCanvasMotionEvent (Widget drawingArea, XButtonEvent * event)
2245{
2246#if XmVersion<=1000
4bb6408c 2247
50414e24
JS
2248 XmDrawingAreaCallbackStruct cbs;
2249 XEvent ev;
2250
2251 //ev.xbutton = *event;
2252 ev = *((XEvent *) event);
2253 cbs.reason = XmCR_INPUT;
2254 cbs.event = &ev;
2255
2256 wxCanvasInputEvent (drawingArea, (XtPointer) NULL, &cbs);
2257#endif
2258}
2259
2260void wxCanvasInputEvent (Widget drawingArea, XtPointer data, XmDrawingAreaCallbackStruct * cbs)
2261{
2262 wxWindow *canvas = (wxWindow *) wxWidgetHashTable->Get ((long) (Widget) drawingArea);
2263 XEvent local_event;
2264
2265 if (canvas==NULL)
2266 return ;
2267
2268 if (cbs->reason != XmCR_INPUT)
2269 return;
2270
2271 local_event = *(cbs->event); // We must keep a copy!
2272
f57fe24c
JS
2273 /*
2274 switch (local_event.xany.type)
2275 {
2276 case EnterNotify:
2277 cout << "EnterNotify\n";
2278 break;
2279 case LeaveNotify:
2280 cout << "LeaveNotify\n";
2281 break;
2282 case ButtonPress:
2283 cout << "ButtonPress\n";
2284 break;
2285 case ButtonRelease:
2286 cout << "ButtonRelease\n";
2287 break;
2288 case MotionNotify:
2289 cout << "MotionNotify\n";
2290 break;
2291 default:
2292 cout << "Something else\n";
2293 break;
2294 }
2295 */
2296
50414e24
JS
2297 switch (local_event.xany.type)
2298 {
2299 case EnterNotify:
2300 case LeaveNotify:
2301 case ButtonPress:
2302 case ButtonRelease:
2303 case MotionNotify:
2304 {
2305 wxEventType eventType = wxEVT_NULL;
2306
2307 if (local_event.xany.type == EnterNotify)
2308 {
2309 //if (local_event.xcrossing.mode!=NotifyNormal)
2310 // return ; // Ignore grab events
2311 eventType = wxEVT_ENTER_WINDOW;
2312// canvas->GetEventHandler()->OnSetFocus();
2313 }
2314 else if (local_event.xany.type == LeaveNotify)
2315 {
2316 //if (local_event.xcrossing.mode!=NotifyNormal)
2317 // return ; // Ignore grab events
2318 eventType = wxEVT_LEAVE_WINDOW;
2319// canvas->GetEventHandler()->OnKillFocus();
2320 }
2321 else if (local_event.xany.type == MotionNotify)
2322 {
2323 eventType = wxEVT_MOTION;
2324 if (local_event.xmotion.is_hint == NotifyHint)
2325 {
2326 Window root, child;
2327 Display *dpy = XtDisplay (drawingArea);
2328
2329 XQueryPointer (dpy, XtWindow (drawingArea),
2330 &root, &child,
2331 &local_event.xmotion.x_root,
2332 &local_event.xmotion.y_root,
2333 &local_event.xmotion.x,
2334 &local_event.xmotion.y,
2335 &local_event.xmotion.state);
2336 }
2337 else
2338 {
2339 }
2340 }
2341
2342 else if (local_event.xany.type == ButtonPress)
2343 {
2344 if (local_event.xbutton.button == Button1)
2345 {
2346 eventType = wxEVT_LEFT_DOWN;
2347 canvas->m_button1Pressed = TRUE;
2348 }
2349 else if (local_event.xbutton.button == Button2)
2350 {
2351 eventType = wxEVT_MIDDLE_DOWN;
2352 canvas->m_button2Pressed = TRUE;
2353 }
2354 else if (local_event.xbutton.button == Button3)
2355 {
2356 eventType = wxEVT_RIGHT_DOWN;
2357 canvas->m_button3Pressed = TRUE;
2358 }
2359 }
2360 else if (local_event.xany.type == ButtonRelease)
2361 {
2362 if (local_event.xbutton.button == Button1)
2363 {
2364 eventType = wxEVT_LEFT_UP;
2365 canvas->m_button1Pressed = FALSE;
2366 }
2367 else if (local_event.xbutton.button == Button2)
2368 {
2369 eventType = wxEVT_MIDDLE_UP;
2370 canvas->m_button2Pressed = FALSE;
2371 }
2372 else if (local_event.xbutton.button == Button3)
2373 {
2374 eventType = wxEVT_RIGHT_UP;
2375 canvas->m_button3Pressed = FALSE;
2376 }
2377 }
2378
2379 wxMouseEvent wxevent (eventType);
2380 wxevent.m_eventHandle = (char *) &local_event;
2381
2382 wxevent.m_leftDown = ((eventType == wxEVT_LEFT_DOWN)
2383 || (event_left_is_down (&local_event)
2384 && (eventType != wxEVT_LEFT_UP)));
2385 wxevent.m_middleDown = ((eventType == wxEVT_MIDDLE_DOWN)
2386 || (event_middle_is_down (&local_event)
2387 && (eventType != wxEVT_MIDDLE_UP)));
2388 wxevent.m_rightDown = ((eventType == wxEVT_RIGHT_DOWN)
2389 || (event_right_is_down (&local_event)
2390 && (eventType != wxEVT_RIGHT_UP)));
2391
2392 wxevent.m_shiftDown = local_event.xbutton.state & ShiftMask;
2393 wxevent.m_controlDown = local_event.xbutton.state & ControlMask;
2394 wxevent.m_altDown = local_event.xbutton.state & Mod3Mask;
2395 wxevent.m_metaDown = local_event.xbutton.state & Mod1Mask;
2396 wxevent.SetTimestamp(local_event.xbutton.time);
2397
2398 // Now check if we need to translate this event into a double click
2399 if (TRUE) // canvas->doubleClickAllowed)
2400 {
2401 if (wxevent.ButtonDown())
2402 {
2403 long dclickTime = XtGetMultiClickTime((Display*) wxGetDisplay()) ;
2404
2405 // get button and time-stamp
2406 int button = 0;
2407 if (wxevent.LeftDown()) button = 1;
2408 else if (wxevent.MiddleDown()) button = 2;
2409 else if (wxevent.RightDown()) button = 3;
2410 long ts = wxevent.GetTimestamp();
2411 // check, if single or double click
2412 if (canvas->m_lastButton && canvas->m_lastButton==button && (ts - canvas->m_lastTS) < dclickTime)
2413 {
2414 // I have a dclick
2415 canvas->m_lastButton = 0;
2416 switch ( eventType )
2417 {
2418 case wxEVT_LEFT_DOWN:
2419 wxevent.SetEventType(wxEVT_LEFT_DCLICK);
2420 break;
2421 case wxEVT_MIDDLE_DOWN:
2422 wxevent.SetEventType(wxEVT_MIDDLE_DCLICK);
2423 break;
2424 case wxEVT_RIGHT_DOWN:
2425 wxevent.SetEventType(wxEVT_RIGHT_DCLICK);
2426 break;
2427
2428 default :
2429 break;
2430 }
2431
2432 }
2433 else
2434 {
2435 // not fast enough or different button
2436 canvas->m_lastTS = ts;
2437 canvas->m_lastButton = button;
2438 }
2439 }
2440 }
2441
2442 wxevent.SetId(canvas->GetId());
2443 wxevent.SetEventObject(canvas);
a4294b78
JS
2444 wxevent.m_x = local_event.xbutton.x;
2445 wxevent.m_y = local_event.xbutton.y;
50414e24
JS
2446 canvas->GetEventHandler()->ProcessEvent (wxevent);
2447 /*
2448 if (eventType == wxEVT_ENTER_WINDOW ||
2449 eventType == wxEVT_LEAVE_WINDOW ||
2450 eventType == wxEVT_MOTION
2451 )
2452 return;
2453 */
2454 break;
2455 }
2456 case KeyPress:
2457 {
2458 KeySym keySym;
2459// XComposeStatus compose;
2460// (void) XLookupString ((XKeyEvent *) & local_event, wxBuffer, 20, &keySym, &compose);
2461 (void) XLookupString ((XKeyEvent *) & local_event, wxBuffer, 20, &keySym, NULL);
2462 int id = wxCharCodeXToWX (keySym);
2463
2464 wxKeyEvent event (wxEVT_CHAR);
2465
2466 if (local_event.xkey.state & ShiftMask)
2467 event.m_shiftDown = TRUE;
2468 if (local_event.xkey.state & ControlMask)
2469 event.m_controlDown = TRUE;
2470 if (local_event.xkey.state & Mod3Mask)
2471 event.m_altDown = TRUE;
2472 if (local_event.xkey.state & Mod1Mask)
2473 event.m_metaDown = TRUE;
2474 event.SetEventObject(canvas);
2475 event.m_keyCode = id;
2476 event.SetTimestamp(local_event.xkey.time);
2477
2478 if (id > -1)
2479 {
2480 // Implement wxFrame::OnCharHook by checking ancestor.
2481 wxWindow *parent = canvas->GetParent();
2482 while (parent && !parent->IsKindOf(CLASSINFO(wxFrame)))
2483 parent = parent->GetParent();
2484
2485 if (parent)
2486 {
2487 event.SetEventType(wxEVT_CHAR_HOOK);
2488 if (parent->GetEventHandler()->ProcessEvent(event))
2489 return;
2490 event.SetEventType(wxEVT_CHAR);
2491 }
2492
2493 canvas->GetEventHandler()->ProcessEvent (event);
2494 }
2495 break;
2496 }
2497 case FocusIn:
2498 {
2499 if (local_event.xfocus.detail != NotifyPointer)
2500 {
2501 wxFocusEvent event(wxEVT_SET_FOCUS, canvas->GetId());
2502 event.SetEventObject(canvas);
2503 canvas->GetEventHandler()->ProcessEvent(event);
2504 }
2505 break;
2506 }
2507 case FocusOut:
2508 {
2509 if (local_event.xfocus.detail != NotifyPointer)
2510 {
2511 wxFocusEvent event(wxEVT_KILL_FOCUS, canvas->GetId());
2512 event.SetEventObject(canvas);
2513 canvas->GetEventHandler()->ProcessEvent(event);
2514 }
2515 break;
2516 }
2517 default:
2518 break;
2519 }
2520}
2521
2522void wxWindow::DoPaint()
2523{
2524 //TODO : make a temporary gc so we can do the XCopyArea below
2525 if (0) // m_backingPixmap)
2526 {
2527 /*
2528 Widget drawingArea = (Widget) m_drawingArea;
2529 // int orig = GetDC()->GetLogicalFunction();
2530 // GetDC()->SetLogicalFunction (wxCOPY);
2531
2532 // TODO: it may not be necessary to store m_pixmapOffsetX/Y; we
2533 // should be able to calculate them.
2534 XCopyArea (XtDisplay (drawingArea), m_backingPixmap, XtWindow (drawingArea), GetDC ()->gc,
2535 m_pixmapOffsetX, m_pixmapOffsetY,
2536 m_pixmapWidth, m_pixmapHeight,
2537 0, 0);
2538
2539 // GetDC()->SetLogicalFunction (orig);
2540 */
2541 }
2542 else
2543 {
2544 wxPaintEvent event(GetId());
2545 event.SetEventObject(this);
2546 GetEventHandler()->ProcessEvent(event);
2547 }
2548}
2549
2550// SetSize, but as per old wxCanvas (with drawing widget etc.)
2551void wxWindow::CanvasSetSize (int x, int y, int w, int h, int sizeFlags)
2552{
7fe7d506
JS
2553 // A bit of optimization to help sort out the flickers.
2554 int oldX, oldY, oldW, oldH;
2555 GetSize(& oldW, & oldH);
2556 GetPosition(& oldX, & oldY);
2557
2558 bool useOldPos = FALSE;
2559 bool useOldSize = FALSE;
2560
2561 if ((x == -1) && (x == -1) && ((sizeFlags & wxSIZE_ALLOW_MINUS_ONE) == 0))
2562 useOldPos = TRUE;
2563 else if (x == oldX && y == oldY)
2564 useOldPos = TRUE;
2565
2566 if ((w == -1) && (h == -1))
2567 useOldSize = TRUE;
2568 else if (w == oldW && h == oldH)
2569 useOldSize = TRUE;
2570
2571 if (useOldPos && useOldSize)
2572 return;
2573
50414e24
JS
2574 Widget drawingArea = (Widget) m_drawingArea;
2575 bool managed = XtIsManaged(m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow);
2576
2577 if (managed)
2578 XtUnmanageChild (m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow);
2579 XtVaSetValues((Widget) m_drawingArea, XmNresizePolicy, XmRESIZE_ANY, NULL);
2580
a4294b78
JS
2581 int xx = x; int yy = y;
2582 AdjustForParentClientOrigin(xx, yy, sizeFlags);
2583
7fe7d506
JS
2584 if (!useOldPos)
2585 {
2586 if (x > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
50414e24
JS
2587 {
2588 XtVaSetValues (m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow,
a4294b78 2589 XmNx, xx, NULL);
50414e24
JS
2590 }
2591
7fe7d506 2592 if (y > -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
50414e24
JS
2593 {
2594 XtVaSetValues (m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow,
a4294b78 2595 XmNy, yy, NULL);
50414e24 2596 }
7fe7d506 2597 }
50414e24 2598
7fe7d506
JS
2599 if (!useOldSize)
2600 {
2601
2602 if (w > -1)
50414e24
JS
2603 {
2604 if (m_borderWidget)
2605 {
2606 XtVaSetValues ((Widget) m_borderWidget, XmNwidth, w, NULL);
2607 short thick, margin;
2608 XtVaGetValues ((Widget) m_borderWidget,
2609 XmNshadowThickness, &thick,
2610 XmNmarginWidth, &margin,
2611 NULL);
2612 w -= 2 * (thick + margin);
2613 }
2614
2615 XtVaSetValues ((Widget) m_scrolledWindow, XmNwidth, w, NULL);
2616
2617 Dimension spacing;
2618 Widget sbar;
2619 XtVaGetValues ((Widget) m_scrolledWindow,
2620 XmNspacing, &spacing,
2621 XmNverticalScrollBar, &sbar,
2622 NULL);
2623 Dimension wsbar;
2624 if (sbar)
2625 XtVaGetValues (sbar, XmNwidth, &wsbar, NULL);
2626 else
2627 wsbar = 0;
2628
2629 w -= (spacing + wsbar);
2630
2631 XtVaSetValues ((Widget) m_drawingArea, XmNwidth, w, NULL);
2632 }
2633 if (h > -1)
2634 {
2635 if (m_borderWidget)
2636 {
2637 XtVaSetValues ((Widget) m_borderWidget, XmNheight, h, NULL);
2638 short thick, margin;
2639 XtVaGetValues ((Widget) m_borderWidget,
2640 XmNshadowThickness, &thick,
2641 XmNmarginHeight, &margin,
2642 NULL);
2643 h -= 2 * (thick + margin);
2644 }
2645
2646 XtVaSetValues ((Widget) m_scrolledWindow, XmNheight, h, NULL);
2647
2648 Dimension spacing;
2649 Widget sbar;
2650 XtVaGetValues ((Widget) m_scrolledWindow,
2651 XmNspacing, &spacing,
2652 XmNhorizontalScrollBar, &sbar,
2653 NULL);
2654 Dimension wsbar;
2655 if (sbar)
2656 XtVaGetValues (sbar, XmNheight, &wsbar, NULL);
2657 else
2658 wsbar = 0;
2659
2660 h -= (spacing + wsbar);
2661
2662 XtVaSetValues ((Widget) m_drawingArea, XmNheight, h, NULL);
2663 }
7fe7d506
JS
2664 }
2665
50414e24
JS
2666 if (managed)
2667 XtManageChild (m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow);
2668 XtVaSetValues((Widget) m_drawingArea, XmNresizePolicy, XmRESIZE_NONE, NULL);
2669
7fe7d506 2670 /*
50414e24
JS
2671 int ww, hh;
2672 GetClientSize (&ww, &hh);
2673 wxSizeEvent sizeEvent(wxSize(ww, hh), GetId());
2674 sizeEvent.SetEventObject(this);
2675
2676 GetEventHandler()->ProcessEvent(sizeEvent);
7fe7d506
JS
2677 */
2678
50414e24
JS
2679}
2680
2681void wxWindow::CanvasSetClientSize (int w, int h)
2682{
2683 Widget drawingArea = (Widget) m_drawingArea;
2684
2685 XtVaSetValues((Widget) m_drawingArea, XmNresizePolicy, XmRESIZE_ANY, NULL);
2686
2687 if (w > -1)
2688 XtVaSetValues ((Widget) m_drawingArea, XmNwidth, w, NULL);
2689 if (h > -1)
2690 XtVaSetValues ((Widget) m_drawingArea, XmNheight, h, NULL);
2691 /* TODO: is this necessary?
2692 allowRepainting = FALSE;
2693
2694 XSync (XtDisplay (drawingArea), FALSE);
2695 XEvent event;
2696 while (XtAppPending (wxTheApp->appContext))
2697 {
2698 XFlush (XtDisplay (drawingArea));
2699 XtAppNextEvent (wxTheApp->appContext, &event);
2700 XtDispatchEvent (&event);
2701 }
2702 */
2703
2704 XtVaSetValues((Widget) m_drawingArea, XmNresizePolicy, XmRESIZE_NONE, NULL);
2705
2706 /* TODO
2707 allowRepainting = TRUE;
2708 DoRefresh ();
2709 */
2710
7fe7d506 2711 /*
50414e24
JS
2712 wxSizeEvent sizeEvent(wxSize(w, h), GetId());
2713 sizeEvent.SetEventObject(this);
2714
2715 GetEventHandler()->ProcessEvent(sizeEvent);
7fe7d506 2716 */
50414e24
JS
2717}
2718
2719void wxWindow::CanvasGetClientSize (int *w, int *h) const
2720{
2721 // Must return the same thing that was set via SetClientSize
2722 Dimension xx, yy;
2723 XtVaGetValues ((Widget) m_drawingArea, XmNwidth, &xx, XmNheight, &yy, NULL);
2724 *w = xx;
2725 *h = yy;
2726}
2727
2728void wxWindow::CanvasGetSize (int *w, int *h) const
2729{
2730 Dimension xx, yy;
2731 if ((Widget) m_borderWidget)
2732 XtVaGetValues ((Widget) m_borderWidget, XmNwidth, &xx, XmNheight, &yy, NULL);
2733 else if ((Widget) m_scrolledWindow)
2734 XtVaGetValues ((Widget) m_scrolledWindow, XmNwidth, &xx, XmNheight, &yy, NULL);
2735 else
2736 XtVaGetValues ((Widget) m_drawingArea, XmNwidth, &xx, XmNheight, &yy, NULL);
2737
2738 *w = xx;
2739 *h = yy;
2740}
2741
2742void wxWindow::CanvasGetPosition (int *x, int *y) const
2743{
a4294b78
JS
2744 Position xx, yy;
2745 XtVaGetValues (m_borderWidget ? (Widget) m_borderWidget : (Widget) m_scrolledWindow, XmNx, &xx, XmNy, &yy, NULL);
2746
2747 // We may be faking the client origin.
2748 // So a window that's really at (0, 30) may appear
2749 // (to wxWin apps) to be at (0, 0).
2750 if (GetParent())
2751 {
2752 wxPoint pt(GetParent()->GetClientAreaOrigin());
2753 xx -= pt.x;
2754 yy -= pt.y;
2755 }
2756
2757 *x = xx;
2758 *y = yy;
50414e24 2759}
02e8b2f9
JS
2760
2761// Add to hash table, add event handler
2762bool wxWindow::AttachWidget (wxWindow* parent, WXWidget mainWidget,
2763 WXWidget formWidget, int x, int y, int width, int height)
2764{
2765 wxAddWindowToTable((Widget) mainWidget, this);
2766 if (CanAddEventHandler())
2767 {
2768 XtAddEventHandler((Widget) mainWidget,
2769 ButtonPressMask | ButtonReleaseMask | PointerMotionMask, // | KeyPressMask,
2770 False,
2771 wxPanelItemEventHandler,
2772 (XtPointer) this);
2773 }
2774
2775 if (!formWidget)
2776 {
2777 XtTranslations ptr;
2778 XtOverrideTranslations ((Widget) mainWidget,
2779 ptr = XtParseTranslationTable ("<Configure>: resize()"));
2780 XtFree ((char *) ptr);
2781 }
2782
2783 // Some widgets have a parent form widget, e.g. wxRadioBox
2784 if (formWidget)
2785 {
2786 if (!wxAddWindowToTable((Widget) formWidget, this))
2787 return FALSE;
2788
2789 XtTranslations ptr;
2790 XtOverrideTranslations ((Widget) formWidget,
2791 ptr = XtParseTranslationTable ("<Configure>: resize()"));
2792 XtFree ((char *) ptr);
2793 }
2794
2795 if (x == -1)
2796 x = 0;
2797 if (y == -1)
2798 y = 0;
2799 SetSize (x, y, width, height);
2800
2801 return TRUE;
2802}
2803
2804// Remove event handler, remove from hash table
2805bool wxWindow::DetachWidget(WXWidget widget)
2806{
2807 if (CanAddEventHandler())
2808 {
2809 XtRemoveEventHandler((Widget) widget,
2810 ButtonPressMask | ButtonReleaseMask | PointerMotionMask, // | KeyPressMask,
2811 False,
2812 wxPanelItemEventHandler,
2813 (XtPointer)this);
2814 }
2815
2816 wxDeleteWindowFromTable((Widget) widget);
2817 return TRUE;
2818}
2819
2820void wxPanelItemEventHandler (Widget wid,
2821 XtPointer client_data,
2822 XEvent* event,
2823 Boolean *continueToDispatch)
2824{
2825 // Widget can be a label or the actual widget.
2826
2827 wxWindow *window = (wxWindow *)wxWidgetHashTable->Get((long)wid);
2828 if (window)
2829 {
2830 wxMouseEvent wxevent(0);
2831 if (wxTranslateMouseEvent(wxevent, window, wid, event))
2832 {
2833 window->GetEventHandler()->ProcessEvent(wxevent);
2834 }
2835 }
2836 // TODO: probably the key to allowing default behaviour
2837 // to happen.
2838 // Say we set a m_doDefault flag to FALSE at the start of this
2839 // function. Then in e.g. wxWindow::OnMouseEvent we can
2840 // call Default() which sets this flag to TRUE, indicating
2841 // that default processing can happen. Thus, behaviour can appear
2842 // to be overridden just by adding an event handler and not calling
2843 // wxWindow::OnWhatever.
2844 // ALSO, maybe we can use this instead of the current way of handling
2845 // drawing area events, to simplify things.
2846 *continueToDispatch = True;
2847}
2848
8aa04e8b 2849static void wxScrollBarCallback(Widget scrollbar, XtPointer clientData,
47bc1060
JS
2850 XmScaleCallbackStruct *cbs)
2851{
2852 Widget scrolledWindow = XtParent (scrollbar);
2853 wxWindow *win = (wxWindow *) wxWidgetHashTable->Get ((long) scrolledWindow);
2854 int orientation = (int) clientData;
2855
2856 wxEventType eventType = wxEVT_NULL;
2857 switch (cbs->reason)
2858 {
2859 case XmCR_INCREMENT:
2860 {
2861 eventType = wxEVT_SCROLL_LINEDOWN;
2862 break;
2863 }
2864 case XmCR_DECREMENT:
2865 {
2866 eventType = wxEVT_SCROLL_LINEUP;
2867 break;
2868 }
2869 case XmCR_DRAG:
2870 {
2871 eventType = wxEVT_SCROLL_THUMBTRACK;
2872 break;
2873 }
2874 case XmCR_VALUE_CHANGED:
2875 {
2876 // TODO: Should this be intercepted too, or will it cause
2877 // duplicate events?
2878 eventType = wxEVT_SCROLL_THUMBTRACK;
2879 break;
2880 }
2881 case XmCR_PAGE_INCREMENT:
2882 {
2883 eventType = wxEVT_SCROLL_PAGEDOWN;
2884 break;
2885 }
2886 case XmCR_PAGE_DECREMENT:
2887 {
2888 eventType = wxEVT_SCROLL_PAGEUP;
2889 break;
2890 }
2891 case XmCR_TO_TOP:
2892 {
2893 eventType = wxEVT_SCROLL_TOP;
2894 break;
2895 }
2896 case XmCR_TO_BOTTOM:
2897 {
2898 eventType = wxEVT_SCROLL_BOTTOM;
2899 break;
2900 }
2901 default:
2902 {
2903 // Should never get here
2904 wxFAIL_MSG("Unknown scroll event.");
2905 break;
2906 }
2907 }
2908
2909 wxScrollEvent event(eventType, win->GetId());
2910 event.SetEventObject(win);
2911 event.SetPosition(cbs->value);
2912 event.SetOrientation( (orientation == XmHORIZONTAL) ? wxHORIZONTAL : wxVERTICAL );
2913
2914 win->GetEventHandler()->ProcessEvent(event);
2915}
2916
02e8b2f9
JS
2917bool wxTranslateMouseEvent(wxMouseEvent& wxevent, wxWindow *win, Widget widget, XEvent *xevent)
2918{
2919 switch (xevent->xany.type)
2920 {
2921 case EnterNotify:
2922 case LeaveNotify:
2923 case ButtonPress:
2924 case ButtonRelease:
2925 case MotionNotify:
2926 {
2927 wxEventType eventType = wxEVT_NULL;
2928
2929 if (xevent->xany.type == LeaveNotify)
2930 {
2931 win->m_button1Pressed = FALSE;
2932 win->m_button2Pressed = FALSE;
2933 win->m_button3Pressed = FALSE;
2934 return FALSE;
2935 }
2936 else if (xevent->xany.type == MotionNotify)
2937 {
2938 eventType = wxEVT_MOTION;
2939 }
2940 else if (xevent->xany.type == ButtonPress)
2941 {
2942 if (xevent->xbutton.button == Button1)
2943 {
2944 eventType = wxEVT_LEFT_DOWN;
2945 win->m_button1Pressed = TRUE;
2946 }
2947 else if (xevent->xbutton.button == Button2)
2948 {
2949 eventType = wxEVT_MIDDLE_DOWN;
2950 win->m_button2Pressed = TRUE;
2951 }
2952 else if (xevent->xbutton.button == Button3)
2953 {
2954 eventType = wxEVT_RIGHT_DOWN;
2955 win->m_button3Pressed = TRUE;
2956 }
2957 }
2958 else if (xevent->xany.type == ButtonRelease)
2959 {
2960 if (xevent->xbutton.button == Button1)
2961 {
2962 eventType = wxEVT_LEFT_UP;
2963 win->m_button1Pressed = FALSE;
2964 }
2965 else if (xevent->xbutton.button == Button2)
2966 {
2967 eventType = wxEVT_MIDDLE_UP;
2968 win->m_button2Pressed = FALSE;
2969 }
2970 else if (xevent->xbutton.button == Button3)
2971 {
2972 eventType = wxEVT_RIGHT_UP;
2973 win->m_button3Pressed = FALSE;
2974 }
2975 else return FALSE;
2976 }
2977 else return FALSE;
2978
2979 wxevent.m_eventHandle = (char *)xevent;
2980 wxevent.SetEventType(eventType);
2981
2982 Position x1, y1;
2983 XtVaGetValues(widget, XmNx, &x1, XmNy, &y1, NULL);
2984
2985 int x2, y2;
2986 win->GetPosition(&x2, &y2);
2987
2988 // The button x/y must be translated to wxWindows
2989 // window space - the widget might be a label or button,
2990 // within a form.
2991 int dx = 0;
2992 int dy = 0;
2993 if (widget != (Widget)win->GetMainWidget())
2994 {
2995 dx = x1;
2996 dy = y1;
2997 }
2998
2999 wxevent.m_x = xevent->xbutton.x + dx;
3000 wxevent.m_y = xevent->xbutton.y + dy;
3001
3002 wxevent.m_leftDown = ((eventType == wxEVT_LEFT_DOWN)
3003 || (event_left_is_down (xevent)
3004 && (eventType != wxEVT_LEFT_UP)));
3005 wxevent.m_middleDown = ((eventType == wxEVT_MIDDLE_DOWN)
3006 || (event_middle_is_down (xevent)
3007 && (eventType != wxEVT_MIDDLE_UP)));
3008 wxevent.m_rightDown = ((eventType == wxEVT_RIGHT_DOWN)
3009 || (event_right_is_down (xevent)
3010 && (eventType != wxEVT_RIGHT_UP)));
3011
3012 wxevent.m_shiftDown = xevent->xbutton.state & ShiftMask;
3013 wxevent.m_controlDown = xevent->xbutton.state & ControlMask;
3014 return TRUE;
3015 }
3016 }
3017 return FALSE;
3018}
3019
3020bool wxTranslateKeyEvent(wxKeyEvent& wxevent, wxWindow *win, Widget widget, XEvent *xevent)
3021{
3022 switch (xevent->xany.type)
3023 {
3024 case KeyPress:
3025 {
3026 char buf[20];
3027
3028 KeySym keySym;
3029// XComposeStatus compose;
3030// (void) XLookupString ((XKeyEvent *) xevent, buf, 20, &keySym, &compose);
3031 (void) XLookupString ((XKeyEvent *) xevent, buf, 20, &keySym, NULL);
3032 int id = wxCharCodeXToWX (keySym);
3033
3034 if (xevent->xkey.state & ShiftMask)
3035 wxevent.m_shiftDown = TRUE;
3036 if (xevent->xkey.state & ControlMask)
3037 wxevent.m_controlDown = TRUE;
3038 if (xevent->xkey.state & Mod3Mask)
3039 wxevent.m_altDown = TRUE;
3040 if (xevent->xkey.state & Mod1Mask)
3041 wxevent.m_metaDown = TRUE;
3042 wxevent.SetEventObject(win);
3043 wxevent.m_keyCode = id;
3044 wxevent.SetTimestamp(xevent->xkey.time);
3045
3046 wxevent.m_x = xevent->xbutton.x;
3047 wxevent.m_y = xevent->xbutton.y;
3048
3049 if (id > -1)
3050 return TRUE;
3051 else
3052 return FALSE;
3053 break;
3054 }
3055 default:
3056 break;
3057 }
3058 return FALSE;
3059}
3060
02e8b2f9 3061#define YAllocColor XAllocColor
0d57be45
JS
3062XColor g_itemColors[5];
3063int wxComputeColours (Display *display, wxColour * back, wxColour * fore)
02e8b2f9
JS
3064{
3065 int result;
3066 static XmColorProc colorProc;
3067
3068 result = wxNO_COLORS;
3069
3070 if (back)
3071 {
0d57be45
JS
3072 g_itemColors[0].red = (((long) back->Red ()) << 8);
3073 g_itemColors[0].green = (((long) back->Green ()) << 8);
3074 g_itemColors[0].blue = (((long) back->Blue ()) << 8);
3075 g_itemColors[0].flags = DoRed | DoGreen | DoBlue;
02e8b2f9
JS
3076 if (colorProc == (XmColorProc) NULL)
3077 {
3078 // Get a ptr to the actual function
3079 colorProc = XmSetColorCalculation ((XmColorProc) NULL);
3080 // And set it back to motif.
3081 XmSetColorCalculation (colorProc);
3082 }
0d57be45
JS
3083 (*colorProc) (&g_itemColors[wxBACK_INDEX],
3084 &g_itemColors[wxFORE_INDEX],
3085 &g_itemColors[wxSELE_INDEX],
3086 &g_itemColors[wxTOPS_INDEX],
3087 &g_itemColors[wxBOTS_INDEX]);
02e8b2f9
JS
3088 result = wxBACK_COLORS;
3089 }
3090 if (fore)
3091 {
0d57be45
JS
3092 g_itemColors[wxFORE_INDEX].red = (((long) fore->Red ()) << 8);
3093 g_itemColors[wxFORE_INDEX].green = (((long) fore->Green ()) << 8);
3094 g_itemColors[wxFORE_INDEX].blue = (((long) fore->Blue ()) << 8);
3095 g_itemColors[wxFORE_INDEX].flags = DoRed | DoGreen | DoBlue;
02e8b2f9
JS
3096 if (result == wxNO_COLORS)
3097 result = wxFORE_COLORS;
3098 }
3099
3100 Display *dpy = display;
3101 Colormap cmap = (Colormap) wxTheApp->GetMainColormap((WXDisplay*) dpy);
3102
3103 if (back)
3104 {
3105 /* 5 Colours to allocate */
3106 for (int i = 0; i < 5; i++)
0d57be45 3107 if (!YAllocColor (dpy, cmap, &g_itemColors[i]))
02e8b2f9
JS
3108 result = wxNO_COLORS;
3109 }
3110 else if (fore)
3111 {
3112 /* Only 1 colour to allocate */
0d57be45 3113 if (!YAllocColor (dpy, cmap, &g_itemColors[wxFORE_INDEX]))
02e8b2f9
JS
3114 result = wxNO_COLORS;
3115 }
3116
3117 return (result);
3118
3119}
3120
0d57be45
JS
3121// Changes the foreground and background colours to be derived
3122// from the current background colour.
3123// To change the foreground colour, you must call SetForegroundColour
3124// explicitly.
3125void wxWindow::ChangeBackgroundColour()
02e8b2f9 3126{
0d57be45
JS
3127 if (GetMainWidget())
3128 DoChangeBackgroundColour(GetMainWidget(), m_backgroundColour);
3129}
02e8b2f9 3130
0d57be45
JS
3131void wxWindow::ChangeForegroundColour()
3132{
3133 if (GetMainWidget())
3134 DoChangeForegroundColour(GetMainWidget(), m_foregroundColour);
3135}
02e8b2f9 3136
0d57be45
JS
3137// Change a widget's foreground and background colours.
3138
0d57be45
JS
3139void wxWindow::DoChangeForegroundColour(WXWidget widget, wxColour& foregroundColour)
3140{
3141 // When should we specify the foreground, if it's calculated
3142 // by wxComputeColours?
3143 // Solution: say we start with the default (computed) foreground colour.
3144 // If we call SetForegroundColour explicitly for a control or window,
3145 // then the foreground is changed.
3146 // Therefore SetBackgroundColour computes the foreground colour, and
3147 // SetForegroundColour changes the foreground colour. The ordering is
3148 // important.
02e8b2f9 3149
0d57be45
JS
3150 XtVaSetValues ((Widget) widget,
3151 XmNforeground, foregroundColour.AllocColour(XtDisplay((Widget) widget)),
02e8b2f9 3152 NULL);
0d57be45
JS
3153}
3154
3155void wxWindow::DoChangeBackgroundColour(WXWidget widget, wxColour& backgroundColour, bool changeArmColour)
3156{
3157 wxComputeColours (XtDisplay((Widget) widget), & backgroundColour,
3158 (wxColour*) NULL);
3159
3160 XtVaSetValues ((Widget) widget,
3161 XmNbackground, g_itemColors[wxBACK_INDEX].pixel,
3162 XmNtopShadowColor, g_itemColors[wxTOPS_INDEX].pixel,
3163 XmNbottomShadowColor, g_itemColors[wxBOTS_INDEX].pixel,
3164 XmNforeground, g_itemColors[wxFORE_INDEX].pixel,
02e8b2f9 3165 NULL);
0d57be45
JS
3166
3167 if (changeArmColour)
3168 XtVaSetValues ((Widget) widget,
3169 XmNarmColor, g_itemColors[wxSELE_INDEX].pixel,
3170 NULL);
02e8b2f9
JS
3171}
3172
0d57be45 3173void wxWindow::SetBackgroundColour(const wxColour& col)
02e8b2f9 3174{
0d57be45
JS
3175 m_backgroundColour = col;
3176 ChangeBackgroundColour();
3177}
3178
3179void wxWindow::SetForegroundColour(const wxColour& col)
3180{
3181 m_foregroundColour = col;
3182 ChangeForegroundColour();
3183}
3184
4b5f3fe6 3185void wxWindow::ChangeFont(bool keepOriginalSize)
0d57be45
JS
3186{
3187 // Note that this causes the widget to be resized back
3188 // to its original size! We therefore have to set the size
3189 // back again. TODO: a better way in Motif?
0d57be45
JS
3190 Widget w = (Widget) GetLabelWidget(); // Usually the main widget
3191 if (w && m_windowFont.Ok())
3192 {
3193 int width, height, width1, height1;
3194 GetSize(& width, & height);
3195
32c69f2c
RR
3196// lesstif 0.87 hangs here
3197#ifndef LESSTIF_VERSION
0d57be45
JS
3198 XtVaSetValues (w,
3199 XmNfontList, (XmFontList) m_windowFont.GetFontList(1.0, XtDisplay(w)),
02e8b2f9 3200 NULL);
32c69f2c 3201#endif
0d57be45
JS
3202
3203 GetSize(& width1, & height1);
4b5f3fe6 3204 if (keepOriginalSize && (width != width1 || height != height1))
0d57be45
JS
3205 {
3206 SetSize(-1, -1, width, height);
3207 }
3208 }
02e8b2f9 3209}
0d57be45
JS
3210
3211void wxWindow::SetFont(const wxFont& font)
3212{
3213 m_windowFont = font;
3214 ChangeFont();
3215}
3216
55acd85e
JS
3217void wxWindow::ClearUpdateRects()
3218{
3219 wxNode* node = m_updateRects.First();
3220 while (node)
3221 {
3222 wxRect* rect = (wxRect*) node->Data();
3223 delete rect;
3224 node = node->Next();
3225 }
3226 m_updateRects.Clear();
3227}
8aa04e8b
JS
3228
3229bool wxWindow::ProcessAccelerator(wxKeyEvent& event)
3230{
3231 if (!m_acceleratorTable.Ok())
3232 return FALSE;
3233
3234 int count = m_acceleratorTable.GetCount();
3235 wxAcceleratorEntry* entries = m_acceleratorTable.GetEntries();
3236 int i;
3237 for (i = 0; i < count; i++)
3238 {
3239 wxAcceleratorEntry* entry = & (entries[i]);
3240 if (entry->MatchesEvent(event))
3241 {
3242 // Bingo, we have a match. Now find a control
3243 // that matches the entry command id.
3244
3245 // Need to go up to the top of the window hierarchy,
3246 // since it might be e.g. a menu item
3247 wxWindow* parent = this;
3248 while (parent && !parent->IsKindOf(CLASSINFO(wxFrame)) && !parent->IsKindOf(CLASSINFO(wxDialog)))
3249 parent = parent->GetParent();
3250
3251 if (!parent)
3252 return FALSE;
3253
3254 if (parent->IsKindOf(CLASSINFO(wxFrame)))
3255 {
3256 // Try for a menu command
3257 wxFrame* frame = (wxFrame*) parent;
3258 if (frame->GetMenuBar())
3259 {
3260 wxMenuItem* item = frame->GetMenuBar()->FindItemForId(entry->GetCommand());
3261 if (item)
3262 {
3263 wxCommandEvent commandEvent(wxEVT_COMMAND_MENU_SELECTED, entry->GetCommand());
3264 commandEvent.SetEventObject(frame);
3265
3266 // If ProcessEvent returns TRUE (it was handled), then
3267 // the calling code will skip the event handling.
3268 return frame->GetEventHandler()->ProcessEvent(commandEvent);
3269 }
3270 }
3271 }
3272
3273 // Find a child matching the command id
3274 wxWindow* child = parent->FindWindow(entry->GetCommand());
3275
3276 // No such child
3277 if (!child)
3278 return FALSE;
3279
3280 // Now we process those kinds of windows that we can.
3281 // For now, only buttons.
3282 if (child->IsKindOf(CLASSINFO(wxButton)))
3283 {
3284 wxCommandEvent commandEvent (wxEVT_COMMAND_BUTTON_CLICKED, child->GetId());
3285 commandEvent.SetEventObject(child);
3286 return child->GetEventHandler()->ProcessEvent(commandEvent);
3287 }
3288
3289 return FALSE;
3290 } // matches event
3291 }// for
3292
3293 // We didn't match the key event against an accelerator.
3294 return FALSE;
3295}
3296