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 | |
9 | // Licence: wxWindows license | |
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 | ||
28 | #include "wx/date.h" | |
29 | ||
7fe7d506 | 30 | #if defined(__WXGTK__) || defined(__WXMOTIF__) |
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; |
457814b5 JS |
89 | wxDate* date = new wxDate; |
90 | ||
457814b5 JS |
91 | // non-object allocation |
92 | char *ordinaryNonObject = new char[1000]; | |
93 | ||
94 | const char *data = (const char*) thing ; | |
95 | ||
2db0bbde JS |
96 | // On MSW, Dump() crashes if using wxLogGui, |
97 | // so use wxLogStderr instead. | |
98 | wxLog* oldLog = wxLog::SetActiveTarget(new wxLogStderr); | |
99 | ||
bd7d06f2 RR |
100 | wxDebugContext::PrintClasses(); |
101 | wxDebugContext::Dump(); | |
102 | wxDebugContext::PrintStatistics(); | |
457814b5 | 103 | |
2db0bbde JS |
104 | // Set back to wxLogGui |
105 | delete wxLog::SetActiveTarget(oldLog); | |
106 | ||
6b037754 | 107 | // Don't delete these objects, to force wxApp to flag a memory leak. |
457814b5 JS |
108 | // delete thing; |
109 | // delete date; | |
110 | // delete[] ordinaryNonObject; | |
111 | ||
112 | return TRUE; | |
113 | } | |
114 | ||
115 | BEGIN_EVENT_TABLE(MyFrame, wxFrame) | |
116 | EVT_MENU(wxID_EXIT, MyFrame::OnQuit) | |
117 | END_EVENT_TABLE() | |
118 | ||
119 | // My frame constructor | |
120 | MyFrame::MyFrame(wxFrame *parent): | |
121 | wxFrame(parent, -1, "MemCheck wxWindows Sample", wxPoint(-1, -1), wxSize(400, 200)) | |
122 | {} | |
123 | ||
124 | // Intercept menu commands | |
cb43b372 | 125 | void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event)) |
457814b5 JS |
126 | { |
127 | Close(TRUE); | |
128 | } | |
129 |