1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
///////////////////////////////////////////////////////////////////////////////
// $Id: TopLevel.cxx,v 1.2 1996/01/06 05:10:13 bwmott Exp $
///////////////////////////////////////////////////////////////////////////////
//
// TopLevel.cxx - Top level widget
//
//
// Bradford W. Mott
// Copyright (C) 1994
// December 11,1994
//
///////////////////////////////////////////////////////////////////////////////
// $Log: TopLevel.cxx,v $
// Revision 1.2 1996/01/06 05:10:13 bwmott
// Changed all NULLs to 0
//
// Revision 1.1 1995/01/08 06:52:21 bmott
// Initial revision
//
///////////////////////////////////////////////////////////////////////////////
#include "TopLevel.hxx"
#include "UIApplication.hxx"
#include <X11/Xatom.h>
#include <X11/Xutil.h>
///////////////////////////////////////////////////////////////////////////////
// Constructor
///////////////////////////////////////////////////////////////////////////////
TopLevel::TopLevel(const char *const name, int x, int y,
int width, int height, Command* closeCommand)
: ContainerWidget(0, name, x, y, width, height),
myCloseCommand(closeCommand)
{
// Tell the application that I exist
application->addTopLevel(this);
// Create window for widget
myWindow = XCreateSimpleWindow(application->display(),
application->rootWindow(),
x, y, width, height,
2, application->blackPixel(), application->blackPixel());
// Setup the window manager hints
XSizeHints hints;
hints.flags = PSize | PMinSize | PMaxSize;
hints.width = hints.min_width = hints.max_width = width;
hints.height = hints.min_height = hints.max_height = height;
XSetStandardProperties(application->display(), myWindow,
name, name, None, 0, 0, &hints);
// Setup the window manager protocol
Atom kill = XInternAtom(application->display(), "WM_DELETE_WINDOW", False);
XSetWMProtocols(application->display(), myWindow, &kill, 1);
}
///////////////////////////////////////////////////////////////////////////////
// Destructor
///////////////////////////////////////////////////////////////////////////////
TopLevel::~TopLevel()
{
// Tell the application that I nolonger exist
application->removeTopLevel(this);
// Destroy myCloseCommand
delete myCloseCommand;
}
///////////////////////////////////////////////////////////////////////////////
// Called whenever an event arrives for me (I need to override the default)
///////////////////////////////////////////////////////////////////////////////
void TopLevel::handleEvent(XEvent* event)
{
if(event->type == ClientMessage)
{
Atom protocol = XInternAtom(application->display(), "WM_PROTOCOLS", False);
Atom kill = XInternAtom(application->display(), "WM_DELETE_WINDOW", False);
// See if the user is trying to kill this toplevel window
if(event->xclient.message_type == protocol &&
event->xclient.data.l[0] == kill)
{
// If I have a close command execute it otherwise delete myself
if(myCloseCommand != 0)
myCloseCommand->execute(0);
else
delete this;
}
}
}
|
