]>
Commit | Line | Data |
---|---|---|
457814b5 JS |
1 | ///////////////////////////////////////////////////////////////////////////// |
2 | // Name: memcheck.cpp | |
3 | // Purpose: Memory-checking sample | |
4 | // Author: Julian Smart | |
5 | // Modified by: | |
6 | // Created: 04/01/98 | |
7 | // RCS-ID: $Id$ | |
8 | // Copyright: (c) Julian Smart and Markus Holzem | |
2f6c54eb | 9 | // Licence: wxWindows license |
457814b5 JS |
10 | ///////////////////////////////////////////////////////////////////////////// |
11 | ||
12 | #ifdef __GNUG__ | |
13 | #pragma implementation | |
14 | #pragma interface | |
15 | #endif | |
16 | ||
17 | // For compilers that support precompilation, includes "wx.h". | |
18 | #include "wx/wxprec.h" | |
19 | ||
20 | #ifdef __BORLANDC__ | |
21 | #pragma hdrstop | |
22 | #endif | |
23 | ||
24 | #ifndef WX_PRECOMP | |
25 | #include "wx/wx.h" | |
26 | #endif | |
27 | ||
c6376731 | 28 | #include "wx/datetime.h" |
457814b5 | 29 | |
a0bb22c2 | 30 | #if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__) |
47908e25 RR |
31 | #include "mondrian.xpm" |
32 | #endif | |
33 | ||
6b037754 JS |
34 | #ifndef __WXDEBUG__ |
35 | #error This program must be compiled in debug mode. | |
457814b5 JS |
36 | #endif |
37 | ||
7fe7d506 JS |
38 | // Normally, new is automatically defined to be the |
39 | // debugging version. If not, this does it. | |
40 | #if !defined(new) && defined(WXDEBUG_NEW) | |
41 | #define new WXDEBUG_NEW | |
42 | #endif | |
43 | ||
457814b5 JS |
44 | // Define a new application type |
45 | class MyApp: public wxApp | |
46 | { public: | |
47 | bool OnInit(void); | |
48 | }; | |
49 | ||
50 | // Define a new frame type | |
51 | class MyFrame: public wxFrame | |
52 | { public: | |
53 | MyFrame(wxFrame *parent); | |
54 | void OnQuit(wxCommandEvent& event); | |
55 | ||
56 | DECLARE_EVENT_TABLE() | |
57 | }; | |
58 | ||
59 | IMPLEMENT_APP(MyApp) | |
60 | ||
61 | // `Main program' equivalent, creating windows and returning main app frame | |
62 | bool MyApp::OnInit(void) | |
63 | { | |
64 | // Create the main frame window | |
c67daf87 | 65 | MyFrame *frame = new MyFrame((wxFrame *) NULL); |
457814b5 JS |
66 | |
67 | // Give it an icon | |
7fe7d506 | 68 | frame->SetIcon(wxICON(mondrian)); |
457814b5 JS |
69 | |
70 | // Make a menubar | |
71 | wxMenu *file_menu = new wxMenu; | |
72 | ||
73 | file_menu->Append(wxID_EXIT, "E&xit"); | |
74 | wxMenuBar *menu_bar = new wxMenuBar; | |
75 | menu_bar->Append(file_menu, "File"); | |
76 | frame->SetMenuBar(menu_bar); | |
77 | ||
78 | // Make a panel with a message | |
79 | wxPanel *panel = new wxPanel(frame); | |
80 | ||
81 | (void)new wxStaticText(panel, -1, "Hello, this is a minimal debugging wxWindows program!", wxPoint(10, 10)); | |
82 | ||
83 | // Show the frame | |
84 | frame->Show(TRUE); | |
85 | ||
bd7d06f2 | 86 | wxDebugContext::SetCheckpoint(); |
457814b5 | 87 | |
e55ad60e | 88 | wxString *thing = new wxString; |
c6376731 VZ |
89 | |
90 | #if wxUSE_DATETIME | |
91 | wxDateTime* date = new wxDateTime; | |
92 | #endif // wxUSE_DATETIME | |
457814b5 | 93 | |
457814b5 JS |
94 | // non-object allocation |
95 | char *ordinaryNonObject = new char[1000]; | |
96 | ||
97 | const char *data = (const char*) thing ; | |
98 | ||
2db0bbde JS |
99 | // On MSW, Dump() crashes if using wxLogGui, |
100 | // so use wxLogStderr instead. | |
101 | wxLog* oldLog = wxLog::SetActiveTarget(new wxLogStderr); | |
102 | ||
bd7d06f2 RR |
103 | wxDebugContext::PrintClasses(); |
104 | wxDebugContext::Dump(); | |
105 | wxDebugContext::PrintStatistics(); | |
457814b5 | 106 | |
2db0bbde JS |
107 | // Set back to wxLogGui |
108 | delete wxLog::SetActiveTarget(oldLog); | |
109 | ||
6b037754 | 110 | // Don't delete these objects, to force wxApp to flag a memory leak. |
457814b5 JS |
111 | // delete thing; |
112 | // delete date; | |
113 | // delete[] ordinaryNonObject; | |
114 | ||
115 | return TRUE; | |
116 | } | |
117 | ||
118 | BEGIN_EVENT_TABLE(MyFrame, wxFrame) | |
119 | EVT_MENU(wxID_EXIT, MyFrame::OnQuit) | |
120 | END_EVENT_TABLE() | |
121 | ||
122 | // My frame constructor | |
123 | MyFrame::MyFrame(wxFrame *parent): | |
124 | wxFrame(parent, -1, "MemCheck wxWindows Sample", wxPoint(-1, -1), wxSize(400, 200)) | |
125 | {} | |
126 | ||
127 | // Intercept menu commands | |
cb43b372 | 128 | void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event)) |
457814b5 JS |
129 | { |
130 | Close(TRUE); | |
131 | } | |
132 |