Got dialog sizing to work, downsized fonts a bit (though it always returns
[wxWidgets.git] / src / x11 / toplevel.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: x11/toplevel.cpp
3 // Purpose: implements wxTopLevelWindow for X11
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 24.09.01
7 // RCS-ID: $Id$
8 // Copyright: (c) 2002 Julian Smart
9 // License: wxWindows licence
10 ///////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 #ifdef __GNUG__
21 #pragma implementation "toplevel.h"
22 #endif
23
24 // For compilers that support precompilation, includes "wx.h".
25 #include "wx/wxprec.h"
26
27 #ifdef __BORLANDC__
28 #pragma hdrstop
29 #endif
30
31 #ifndef WX_PRECOMP
32 #include "wx/app.h"
33 #include "wx/toplevel.h"
34 #include "wx/string.h"
35 #include "wx/log.h"
36 #include "wx/intl.h"
37 #include "wx/frame.h"
38 #include "wx/menu.h"
39 #include "wx/statusbr.h"
40 #endif //WX_PRECOMP
41
42 #include "wx/settings.h"
43 #include "wx/x11/private.h"
44 #include "X11/Xutil.h"
45
46 bool wxMWMIsRunning(Window w);
47
48 // ----------------------------------------------------------------------------
49 // wxTopLevelWindowX11 creation
50 // ----------------------------------------------------------------------------
51
52 void wxTopLevelWindowX11::Init()
53 {
54 m_iconized =
55 m_maximizeOnShow = FALSE;
56
57 // unlike (almost?) all other windows, frames are created hidden
58 m_isShown = FALSE;
59
60 // Data to save/restore when calling ShowFullScreen
61 m_fsStyle = 0;
62 m_fsIsMaximized = FALSE;
63 m_fsIsShowing = FALSE;
64
65 m_focusWidget = NULL;
66 }
67
68 bool wxTopLevelWindowX11::Create(wxWindow *parent,
69 wxWindowID id,
70 const wxString& title,
71 const wxPoint& pos,
72 const wxSize& size,
73 long style,
74 const wxString& name)
75 {
76 // init our fields
77 Init();
78
79 m_windowStyle = style;
80 m_parent = parent;
81
82 SetName(name);
83
84 m_windowId = id == -1 ? NewControlId() : id;
85
86 if (parent)
87 parent->AddChild(this);
88
89 wxTopLevelWindows.Append(this);
90
91 Display *xdisplay = wxGlobalDisplay();
92 int xscreen = DefaultScreen( xdisplay );
93 Visual *xvisual = DefaultVisual( xdisplay, xscreen );
94 Window xparent = RootWindow( xdisplay, xscreen );
95 Colormap cm = DefaultColormap( xdisplay, xscreen );
96
97 if (GetExtraStyle() & wxTOPLEVEL_EX_DIALOG)
98 m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_BTNFACE);
99 else
100 m_backgroundColour = wxSystemSettings::GetColour(wxSYS_COLOUR_APPWORKSPACE);
101 m_backgroundColour.CalcPixel( (WXColormap) cm );
102 m_hasBgCol = TRUE;
103
104 wxSize size2(size);
105 if (size2.x == -1)
106 size2.x = 100;
107 if (size2.y == -1)
108 size2.y = 100;
109
110 wxPoint pos2(pos);
111 if (pos2.x == -1)
112 pos2.x = 100;
113 if (pos2.y == -1)
114 pos2.y = 100;
115
116 #if !wxUSE_NANOX
117 XSetWindowAttributes xattributes;
118 XSizeHints size_hints;
119
120 long xattributes_mask =
121 CWOverrideRedirect |
122 CWBorderPixel | CWBackPixel;
123
124 xattributes.background_pixel = m_backgroundColour.GetPixel();
125 xattributes.border_pixel = BlackPixel( xdisplay, xscreen );
126
127 // TODO: if we want no border, caption etc.,
128 // I think we set this to True to remove decorations
129 // No. RR.
130 xattributes.override_redirect = False;
131 #endif
132
133 #if wxUSE_NANOX
134 long backColor, foreColor;
135 backColor = GR_RGB(m_backgroundColour.Red(), m_backgroundColour.Green(), m_backgroundColour.Blue());
136 foreColor = GR_RGB(m_foregroundColour.Red(), m_foregroundColour.Green(), m_foregroundColour.Blue());
137
138 Window xwindow = XCreateWindowWithColor( xdisplay, xparent, pos2.x, pos2.y, size2.x, size2.y,
139 0, 0, InputOutput, xvisual, backColor, foreColor);
140 #else
141 Window xwindow = XCreateWindow( xdisplay, xparent, pos2.x, pos2.y, size2.x, size2.y,
142 0, DefaultDepth(xdisplay,xscreen), InputOutput, xvisual, xattributes_mask, &xattributes );
143 #endif
144 m_mainWidget = (WXWindow) xwindow;
145
146 int extraFlags = 0;
147 #if wxUSE_NANOX
148 extraFlags |= GR_EVENT_MASK_CLOSE_REQ;
149 #endif
150
151 XSelectInput( xdisplay, xwindow,
152 extraFlags |
153 ExposureMask |
154 KeyPressMask |
155 KeyReleaseMask |
156 ButtonPressMask |
157 ButtonReleaseMask |
158 ButtonMotionMask |
159 EnterWindowMask |
160 LeaveWindowMask |
161 PointerMotionMask |
162 KeymapStateMask |
163 FocusChangeMask |
164 ColormapChangeMask |
165 StructureNotifyMask |
166 PropertyChangeMask
167 );
168
169 wxAddWindowToTable( xwindow, (wxWindow*) this );
170
171 // Set background to None which will prevent X11 from clearing the
172 // background completely.
173 XSetWindowBackgroundPixmap( xdisplay, xwindow, None );
174
175 #if !wxUSE_NANOX
176 if (GetExtraStyle() & wxTOPLEVEL_EX_DIALOG)
177 {
178 if (GetParent() && GetParent()->GetMainWindow())
179 {
180 Window xparentwindow = (Window) GetParent()->GetMainWindow();
181 XSetTransientForHint( xdisplay, xwindow, xparentwindow );
182 }
183 }
184
185 size_hints.flags = PSize | PPosition;
186 size_hints.x = pos2.x;
187 size_hints.y = pos2.y;
188 size_hints.width = size2.x;
189 size_hints.height = size2.y;
190 XSetWMNormalHints( xdisplay, xwindow, &size_hints);
191
192 XWMHints wm_hints;
193 wm_hints.flags = InputHint | StateHint /* | WindowGroupHint */;
194 wm_hints.input = True;
195 wm_hints.initial_state = NormalState;
196 XSetWMHints( xdisplay, xwindow, &wm_hints);
197
198 Atom wm_protocols[2];
199 wm_protocols[0] = XInternAtom( xdisplay, "WM_DELETE_WINDOW", False );
200 wm_protocols[1] = XInternAtom( xdisplay, "WM_TAKE_FOCUS", False );
201 XSetWMProtocols( xdisplay, xwindow, wm_protocols, 2);
202 #endif
203
204 wxSetWMDecorations( xwindow, style);
205
206 SetTitle(title);
207
208 return TRUE;
209 }
210
211 wxTopLevelWindowX11::~wxTopLevelWindowX11()
212 {
213 wxTopLevelWindows.DeleteObject(this);
214
215 // If this is the last top-level window, exit.
216 if ( wxTheApp && (wxTopLevelWindows.Number() == 0) )
217 {
218 wxTheApp->SetTopWindow(NULL);
219
220 if (wxTheApp->GetExitOnFrameDelete())
221 {
222 // Signal to the app that we're going to close
223 wxTheApp->ExitMainLoop();
224 }
225 }
226 }
227
228 // ----------------------------------------------------------------------------
229 // wxTopLevelWindowX11 showing
230 // ----------------------------------------------------------------------------
231
232 bool wxTopLevelWindowX11::Show(bool show)
233 {
234 return wxWindowX11::Show(show);
235 }
236
237 // ----------------------------------------------------------------------------
238 // wxTopLevelWindowX11 maximize/minimize
239 // ----------------------------------------------------------------------------
240
241 void wxTopLevelWindowX11::Maximize(bool maximize)
242 {
243 // TODO
244 }
245
246 bool wxTopLevelWindowX11::IsMaximized() const
247 {
248 // TODO
249 return TRUE;
250 }
251
252 void wxTopLevelWindowX11::Iconize(bool iconize)
253 {
254 if (!m_iconized && GetMainWindow())
255 {
256 if (XIconifyWindow(wxGlobalDisplay(),
257 (Window) GetMainWindow(), DefaultScreen(wxGlobalDisplay())) != 0)
258 m_iconized = TRUE;
259 }
260 }
261
262 bool wxTopLevelWindowX11::IsIconized() const
263 {
264 return m_iconized;
265 }
266
267 void wxTopLevelWindowX11::Restore()
268 {
269 // This is the way to deiconify the window, according to the X FAQ
270 if (m_iconized && GetMainWindow())
271 {
272 XMapWindow(wxGlobalDisplay(), (Window) GetMainWindow());
273 m_iconized = FALSE;
274 }
275 }
276
277 // ----------------------------------------------------------------------------
278 // wxTopLevelWindowX11 fullscreen
279 // ----------------------------------------------------------------------------
280
281 bool wxTopLevelWindowX11::ShowFullScreen(bool show, long style)
282 {
283 if (show)
284 {
285 if (IsFullScreen())
286 return FALSE;
287
288 m_fsIsShowing = TRUE;
289 m_fsStyle = style;
290
291 // TODO
292
293 return TRUE;
294 }
295 else
296 {
297 if (!IsFullScreen())
298 return FALSE;
299
300 m_fsIsShowing = FALSE;
301
302 // TODO
303 return TRUE;
304 }
305 }
306
307 // ----------------------------------------------------------------------------
308 // wxTopLevelWindowX11 misc
309 // ----------------------------------------------------------------------------
310
311 void wxTopLevelWindowX11::SetIcon(const wxIcon& icon)
312 {
313 // this sets m_icon
314 wxTopLevelWindowBase::SetIcon(icon);
315
316 if (icon.Ok() && GetMainWindow())
317 {
318 #if wxUSE_NANOX
319 #else
320 XWMHints *wmHints = XAllocWMHints();
321 wmHints->icon_pixmap = (Pixmap) icon.GetPixmap();
322
323 wmHints->flags = IconPixmapHint;
324
325 if (icon.GetMask())
326 {
327 wmHints->flags |= IconMaskHint;
328 wmHints->icon_mask = (Pixmap) icon.GetMask()->GetBitmap();
329 }
330
331 XSetWMHints(wxGlobalDisplay(), (Window) GetMainWindow(), wmHints);
332 XFree(wmHints);
333 #endif
334 }
335 }
336
337 void wxTopLevelWindowX11::SetTitle(const wxString& title)
338 {
339 m_title = title;
340 if (GetMainWindow())
341 {
342 XStoreName(wxGlobalDisplay(), (Window) GetMainWindow(),
343 (const char*) title);
344 XSetIconName(wxGlobalDisplay(), (Window) GetMainWindow(),
345 (const char*) title);
346
347 // Use this if the platform doesn't supply the above functions.
348 #if 0
349 XTextProperty textProperty;
350 textProperty.value = (unsigned char*) title;
351 textProperty.encoding = XA_STRING;
352 textProperty.format = 8;
353 textProperty.nitems = 1;
354
355 XSetTextProperty(wxGlobalDisplay(), (Window) GetMainWindow(),
356 & textProperty, WM_NAME);
357 #endif
358 }
359 }
360
361 wxString wxTopLevelWindowX11::GetTitle() const
362 {
363 return m_title;
364 }
365
366 #ifndef MWM_DECOR_BORDER
367 /* bit definitions for MwmHints.flags */
368 #define MWM_HINTS_FUNCTIONS (1L << 0)
369 #define MWM_HINTS_DECORATIONS (1L << 1)
370 #define MWM_HINTS_INPUT_MODE (1L << 2)
371 #define MWM_HINTS_STATUS (1L << 3)
372
373 #define MWM_DECOR_ALL (1L << 0)
374 #define MWM_DECOR_BORDER (1L << 1)
375 #define MWM_DECOR_RESIZEH (1L << 2)
376 #define MWM_DECOR_TITLE (1L << 3)
377 #define MWM_DECOR_MENU (1L << 4)
378 #define MWM_DECOR_MINIMIZE (1L << 5)
379 #define MWM_DECOR_MAXIMIZE (1L << 6)
380 #endif
381
382 struct MwmHints {
383 long flags;
384 long functions;
385 long decorations;
386 long input_mode;
387 };
388
389 #define PROP_MOTIF_WM_HINTS_ELEMENTS 5
390
391 // Set the window manager decorations according to the
392 // given wxWindows style
393 bool wxSetWMDecorations(Window w, long style)
394 {
395 #if wxUSE_NANOX
396 GR_WM_PROPERTIES wmProp;
397
398 wmProp.flags = 0;
399 wmProp.props = 0;
400
401 if (style & wxRESIZE_BORDER)
402 {
403 wmProp.props |= GR_WM_PROPS_APPFRAME ;
404 wmProp.flags |= GR_WM_FLAGS_PROPS ;
405 }
406
407 if (style & wxSYSTEM_MENU)
408 {
409 wmProp.props |= GR_WM_PROPS_CLOSEBOX ;
410 wmProp.flags |= GR_WM_FLAGS_PROPS ;
411 }
412
413 if ((style & wxCAPTION) ||
414 (style & wxTINY_CAPTION_HORIZ) ||
415 (style & wxTINY_CAPTION_VERT))
416 {
417 wmProp.props |= GR_WM_PROPS_CAPTION ;
418 wmProp.flags |= GR_WM_FLAGS_PROPS ;
419
420 // The default dialog style doesn't include any kind
421 // of border, which is a bit odd. Anyway, inclusion
422 // of a caption surely implies a border.
423 style |= wxTHICK_FRAME;
424 }
425
426 if (style & wxTHICK_FRAME)
427 {
428 wmProp.props |= GR_WM_PROPS_APPFRAME ;
429 wmProp.flags |= GR_WM_FLAGS_PROPS ;
430 }
431
432 if (style & wxSIMPLE_BORDER)
433 {
434 wmProp.props |= GR_WM_PROPS_BORDER ;
435 wmProp.flags |= GR_WM_FLAGS_PROPS ;
436 }
437
438 if (style & wxMINIMIZE_BOX)
439 {
440 }
441
442 if (style & wxMAXIMIZE_BOX)
443 {
444 wmProp.props |= GR_WM_PROPS_MAXIMIZE ;
445 wmProp.flags |= GR_WM_FLAGS_PROPS ;
446 }
447
448 if (((style & wxBORDER) != wxBORDER) && ((style & wxTHICK_FRAME) != wxTHICK_FRAME)
449 && ((style & wxRESIZE_BORDER) != wxRESIZE_BORDER))
450 {
451 wmProp.props |= GR_WM_PROPS_NODECORATE ;
452 wmProp.flags |= GR_WM_FLAGS_PROPS ;
453 }
454
455 GrSetWMProperties(w, & wmProp);
456
457 #else
458 if (!wxMWMIsRunning(w))
459 return FALSE;
460
461 Atom mwm_wm_hints = XInternAtom(wxGlobalDisplay(),"_MOTIF_WM_HINTS", False);
462 MwmHints hints;
463 hints.flags = 0;
464 hints.decorations = 0;
465
466 if (style & wxRESIZE_BORDER)
467 {
468 // wxLogDebug("MWM_DECOR_RESIZEH");
469 hints.flags |= MWM_HINTS_DECORATIONS;
470 hints.decorations |= MWM_DECOR_RESIZEH;
471 }
472
473 if (style & wxSYSTEM_MENU)
474 {
475 // wxLogDebug("MWM_DECOR_MENU");
476 hints.flags |= MWM_HINTS_DECORATIONS;
477 hints.decorations |= MWM_DECOR_MENU;
478 }
479
480 if ((style & wxCAPTION) ||
481 (style & wxTINY_CAPTION_HORIZ) ||
482 (style & wxTINY_CAPTION_VERT))
483 {
484 // wxLogDebug("MWM_DECOR_TITLE");
485 hints.flags |= MWM_HINTS_DECORATIONS;
486 hints.decorations |= MWM_DECOR_TITLE;
487 }
488
489 if ((style & wxTHICK_FRAME) || (style & wxSIMPLE_BORDER) || (style & wxCAPTION))
490 {
491 // wxLogDebug("MWM_DECOR_BORDER");
492 hints.flags |= MWM_HINTS_DECORATIONS;
493 hints.decorations |= MWM_DECOR_BORDER;
494 }
495
496 if (style & wxMINIMIZE_BOX)
497 {
498 // wxLogDebug("MWM_DECOR_MINIMIZE");
499 hints.flags |= MWM_HINTS_DECORATIONS;
500 hints.decorations |= MWM_DECOR_MINIMIZE;
501 }
502
503 if (style & wxMAXIMIZE_BOX)
504 {
505 // wxLogDebug("MWM_DECOR_MAXIMIZE");
506 hints.flags |= MWM_HINTS_DECORATIONS;
507 hints.decorations |= MWM_DECOR_MAXIMIZE;
508 }
509
510 XChangeProperty(wxGlobalDisplay(),
511 w,
512 mwm_wm_hints, mwm_wm_hints,
513 32, PropModeReplace,
514 (unsigned char *) &hints, PROP_MOTIF_WM_HINTS_ELEMENTS);
515
516 #endif
517 return TRUE;
518 }
519
520 bool wxMWMIsRunning(Window w)
521 {
522 #if wxUSE_NANOX
523 return FALSE;
524 #else
525 Display *dpy = (Display*)wxGetDisplay();
526 Atom motifWmInfo = XInternAtom(dpy, "_MOTIF_WM_INFO", False);
527
528 unsigned long length, bytesafter;
529 unsigned char value[20];
530 unsigned char *ptr = &value[0];
531 int ret, format;
532 Atom type;
533
534 type = format = length = 0;
535 value[0] = 0;
536
537 ret = XGetWindowProperty(wxGlobalDisplay(), w, motifWmInfo,
538 0L, 2, False, motifWmInfo,
539 &type, &format, &length, &bytesafter, &ptr);
540
541 return (ret == Success);
542 #endif
543 }
544
545 // For implementation purposes - sometimes decorations make the client area
546 // smaller
547 wxPoint wxTopLevelWindowX11::GetClientAreaOrigin() const
548 {
549 // In fact wxFrame::GetClientAreaOrigin
550 // does the required calculation already.
551 #if 0
552 if (this->IsKindOf(CLASSINFO(wxFrame)))
553 {
554 wxFrame* frame = (wxFrame*) this;
555 if (frame->GetMenuBar())
556 return wxPoint(0, frame->GetMenuBar()->GetSize().y);
557 }
558 #endif
559 return wxPoint(0, 0);
560 }
561
562 void wxTopLevelWindowX11::DoGetClientSize( int *width, int *height ) const
563 {
564 wxWindowX11::DoGetClientSize(width, height);
565 // Done by wxTopLevelWindow
566 #if 0
567 if (this->IsKindOf(CLASSINFO(wxFrame)))
568 {
569 wxFrame* frame = (wxFrame*) this;
570 if (frame->GetMenuBar())
571 (*height) -= frame->GetMenuBar()->GetSize().y;
572 if (frame->GetStatusBar())
573 (*height) -= frame->GetStatusBar()->GetSize().y;
574 }
575 #endif
576 }
577
578 void wxTopLevelWindowX11::DoSetClientSize(int width, int height)
579 {
580 wxWindowX11::DoSetClientSize(width, height);
581
582 #if 0
583 if (!GetMainWindow())
584 return;
585
586 XWindowChanges windowChanges;
587 int valueMask = 0;
588
589 if (width != -1)
590 {
591 windowChanges.width = width ;
592 valueMask |= CWWidth;
593 }
594 if (height != -1)
595 {
596 windowChanges.height = height ;
597 valueMask |= CWHeight;
598 }
599 XConfigureWindow(wxGlobalDisplay(), (Window) GetMainWindow(),
600 valueMask, & windowChanges);
601 #endif
602 }
603
604 void wxTopLevelWindowX11::DoSetSize(int x, int y, int width, int height, int sizeFlags)
605 {
606 // wxLogDebug( "Setting pos: %d, %d", x, y );
607 wxWindowX11::DoSetSize(x, y, width, height, sizeFlags);
608
609 wxPoint pt = GetPosition();
610 // wxLogDebug( "After, pos: %d, %d", pt.x, pt.y );
611 #if 0
612 XSync(wxGlobalDisplay(), False);
613 int w, h;
614 GetSize(& w, & h);
615 wxString msg;
616 msg.Printf("Before setting size: %d, %d", w, h);
617 wxLogDebug(msg);
618 if (!GetMainWindow())
619 return;
620
621 XWindowChanges windowChanges;
622 int valueMask = 0;
623
624 if (x != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
625 {
626 int yy = 0;
627 AdjustForParentClientOrigin( x, yy, sizeFlags);
628 windowChanges.x = x;
629 valueMask |= CWX;
630 }
631 if (y != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
632 {
633 int xx = 0;
634 AdjustForParentClientOrigin( xx, y, sizeFlags);
635 windowChanges.y = y;
636 valueMask |= CWY;
637 }
638 if (width != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
639 {
640 windowChanges.width = width /* - m_borderSize*2 */;
641 valueMask |= CWWidth;
642 }
643 if (height != -1 || (sizeFlags & wxSIZE_ALLOW_MINUS_ONE))
644 {
645 windowChanges.height = height /* -m_borderSize*2*/;
646 valueMask |= CWHeight;
647 }
648
649 XConfigureWindow(wxGlobalDisplay(), (Window) GetMainWindow(),
650 valueMask, & windowChanges);
651 XSync(wxGlobalDisplay(), False);
652 GetSize(& w, & h);
653 msg.Printf("Tried to set to %d, %d. After setting size: %d, %d", width, height, w, h);
654 wxLogDebug(msg);
655 #endif
656 }
657
658 void wxTopLevelWindowX11::DoGetPosition(int *x, int *y) const
659 {
660 XSync(wxGlobalDisplay(), False);
661 Window window = (Window) m_mainWidget;
662 if (window)
663 {
664 int offsetX = 0;
665 int offsetY = 0;
666
667 #if !wxUSE_NANOX
668 // wxLogDebug("Translating...");
669 Window childWindow;
670 XTranslateCoordinates(wxGlobalDisplay(), window, XDefaultRootWindow(wxGlobalDisplay()),
671 0, 0, & offsetX, & offsetY, & childWindow);
672
673 // wxLogDebug("Offset: %d, %d", offsetX, offsetY);
674 #endif
675
676 XWindowAttributes attr;
677 Status status = XGetWindowAttributes(wxGlobalDisplay(), window, & attr);
678 wxASSERT(status);
679
680 if (status)
681 {
682 *x = attr.x + offsetX;
683 *y = attr.y + offsetY;
684 }
685 }
686 }