]> git.saurik.com Git - wxWidgets.git/blame - demos/forty/forty.cpp
Add missing include
[wxWidgets.git] / demos / forty / forty.cpp
CommitLineData
63cafd27
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: forty.cpp
3// Purpose: Forty Thieves patience game
4// Author: Chris Breeze
5// Modified by:
6// Created: 21/07/97
7// RCS-ID: $Id$
8// Copyright: (c) 1993-1998 Chris Breeze
9// Licence: wxWindows licence
10//---------------------------------------------------------------------------
11// Last modified: 22nd July 1998 - ported to wxWindows 2.0
12/////////////////////////////////////////////////////////////////////////////
13
14#ifdef __GNUG__
15#pragma implementation
16#pragma interface
17#endif
18
19// For compilers that support precompilation, includes "wx/wx.h".
20#include "wx/wxprec.h"
21
22#ifdef __BORLANDC__
23#pragma hdrstop
24#endif
25
26#ifndef WX_PRECOMP
27#include "wx/wx.h"
28#endif
29
30#include "canvas.h"
31#include "forty.h"
fc799548 32#include "card.h"
63cafd27 33#include "scoredg.h"
63cafd27
JS
34
35BEGIN_EVENT_TABLE(FortyFrame, wxFrame)
36 EVT_MENU(NEW_GAME, FortyFrame::NewGame)
37 EVT_MENU(EXIT, FortyFrame::Exit)
38 EVT_MENU(ABOUT, FortyFrame::About)
39 EVT_MENU(UNDO, FortyFrame::Undo)
40 EVT_MENU(REDO, FortyFrame::Redo)
41 EVT_MENU(SCORES, FortyFrame::Scores)
42 EVT_MENU(RIGHT_BUTTON_UNDO, FortyFrame::ToggleRightButtonUndo)
43 EVT_MENU(HELPING_HAND, FortyFrame::ToggleHelpingHand)
fc799548 44 EVT_MENU(LARGE_CARDS, FortyFrame::ToggleCardSize)
e3065973 45 EVT_CLOSE(FortyFrame::OnCloseWindow)
63cafd27
JS
46END_EVENT_TABLE()
47
48// Create a new application object
49IMPLEMENT_APP (FortyApp)
50
51wxColour* FortyApp::m_backgroundColour = 0;
52wxColour* FortyApp::m_textColour = 0;
53wxBrush* FortyApp::m_backgroundBrush = 0;
54
55bool FortyApp::OnInit()
56{
fc799548
JS
57 bool largecards = FALSE;
58 wxSize size(668,510);
59
60 if ((argc > 1) && (!wxStrcmp(argv[1],"-L")))
61 {
62 largecards = TRUE;
63 size = wxSize(1000,750);
64 }
65
63cafd27
JS
66 FortyFrame* frame = new FortyFrame(
67 0,
68 "Forty Thieves",
fc799548 69 -1, -1, size.x, size.y,largecards
63cafd27
JS
70 );
71
cba2db0c 72 // Show the frame
63cafd27
JS
73 frame->Show(TRUE);
74
868741e9
JS
75 frame->GetCanvas()->ShowPlayerDialog();
76
1e6d9499 77 return TRUE;
63cafd27
JS
78}
79
79490c3d 80const wxColour& FortyApp::BackgroundColour()
63cafd27
JS
81{
82 if (!m_backgroundColour)
83 {
84 m_backgroundColour = new wxColour(0, 128, 0);
85 }
79490c3d
VZ
86
87 return *m_backgroundColour;
63cafd27
JS
88}
89
79490c3d 90const wxBrush& FortyApp::BackgroundBrush()
63cafd27
JS
91{
92 if (!m_backgroundBrush)
93 {
16553659 94 m_backgroundBrush = new wxBrush(BackgroundColour(), wxSOLID);
63cafd27 95 }
79490c3d
VZ
96
97 return *m_backgroundBrush;
63cafd27
JS
98}
99
79490c3d 100const wxColour& FortyApp::TextColour()
63cafd27
JS
101{
102 if (!m_textColour)
103 {
104 m_textColour = new wxColour("BLACK");
105 }
79490c3d
VZ
106
107 return *m_textColour;
63cafd27
JS
108}
109
110// My frame constructor
fc799548 111FortyFrame::FortyFrame(wxFrame* frame, char* title, int x, int y, int w, int h,bool largecards):
63cafd27
JS
112 wxFrame(frame, -1, title, wxPoint(x, y), wxSize(w, h))
113{
8fbb465f
SC
114#ifdef __WXMAC__
115 // we need this in order to allow the about menu relocation, since ABOUT is not the default id of the about menu
116 wxApp::s_macAboutMenuItemId = ABOUT ;
117#endif
63cafd27
JS
118 // set the icon
119#ifdef __WXMSW__
16553659 120 SetIcon(wxIcon("CardsIcon"));
63cafd27
JS
121#else
122#ifdef GTK_TBD
16553659 123 SetIcon(wxIcon(Cards_bits, Cards_width, Cards_height));
63cafd27
JS
124#endif
125#endif
126
127 // Make a menu bar
128 wxMenu* gameMenu = new wxMenu;
129 gameMenu->Append(NEW_GAME, "&New", "Start a new game");
130 gameMenu->Append(SCORES, "&Scores...", "Displays scores");
131 gameMenu->Append(EXIT, "E&xit", "Exits Forty Thieves");
132
133 wxMenu* editMenu = new wxMenu;
134 editMenu->Append(UNDO, "&Undo", "Undo the last move");
135 editMenu->Append(REDO, "&Redo", "Redo a move that has been undone");
136
137 wxMenu* optionsMenu = new wxMenu;
138 optionsMenu->Append(RIGHT_BUTTON_UNDO,
139 "&Right button undo",
140 "Enables/disables right mouse button undo and redo",
141 TRUE
142 );
143 optionsMenu->Append(HELPING_HAND,
144 "&Helping hand",
145 "Enables/disables hand cursor when a card can be moved",
146 TRUE
147 );
fc799548
JS
148 optionsMenu->Append(LARGE_CARDS,
149 "&Large cards",
150 "Enables/disables large cards for high resolution displays",
151 TRUE
152 );
63cafd27
JS
153 optionsMenu->Check(HELPING_HAND, TRUE);
154 optionsMenu->Check(RIGHT_BUTTON_UNDO, TRUE);
fc799548 155 optionsMenu->Check(LARGE_CARDS, largecards ? TRUE : FALSE);
63cafd27
JS
156
157 wxMenu* helpMenu = new wxMenu;
158 helpMenu->Append(ABOUT, "&About", "Displays program version information");
159
160 m_menuBar = new wxMenuBar;
161 m_menuBar->Append(gameMenu, "&Game");
162 m_menuBar->Append(editMenu, "&Edit");
163 m_menuBar->Append(optionsMenu, "&Options");
164 m_menuBar->Append(helpMenu, "&Help");
165
166 SetMenuBar(m_menuBar);
167
fc799548
JS
168 if (largecards)
169 Card::SetScale(1.3);
170
63cafd27
JS
171 m_canvas = new FortyCanvas(this, 0, 0, 400, 400);
172 wxLayoutConstraints* constr = new wxLayoutConstraints;
173 constr->left.SameAs(this, wxLeft);
174 constr->top.SameAs(this, wxTop);
175 constr->right.SameAs(this, wxRight);
176 constr->height.SameAs(this, wxHeight);
177 m_canvas->SetConstraints(constr);
178
179 CreateStatusBar();
180}
181
182FortyFrame::~FortyFrame()
183{
184}
185
e3065973 186void FortyFrame::OnCloseWindow(wxCloseEvent& event)
63cafd27 187{
cba2db0c 188 if (m_canvas->OnCloseCanvas() )
e3065973
JS
189 {
190 this->Destroy();
191 }
192 else
193 event.Veto();
63cafd27
JS
194}
195
196void
197FortyFrame::NewGame(wxCommandEvent&)
198{
199 m_canvas->NewGame();
200}
201
202void
203FortyFrame::Exit(wxCommandEvent&)
204{
205#ifdef __WXGTK__
206 // wxGTK doesn't call OnClose() so we do it here
e3065973 207// if (OnClose())
63cafd27
JS
208#endif
209 Close(TRUE);
210}
211
212void
213FortyFrame::About(wxCommandEvent&)
214{
215 wxMessageBox(
216 "Forty Thieves\n\n"
217 "A freeware program using the wxWindows\n"
218 "portable C++ GUI toolkit.\n"
281b0186 219 "http://www.wxwindows.org\n"
63cafd27
JS
220 "http://www.freiburg.linux.de/~wxxt\n\n"
221 "Author: Chris Breeze (c) 1992-1998\n"
222 "email: chris.breeze@iname.com",
223 "About Forty Thieves",
224 wxOK, this
225 );
226}
227
228void
229FortyFrame::Undo(wxCommandEvent&)
230{
231 m_canvas->Undo();
232}
233
234void
235FortyFrame::Redo(wxCommandEvent&)
236{
237 m_canvas->Redo();
238}
239
240void
241FortyFrame::Scores(wxCommandEvent&)
242{
243 m_canvas->UpdateScores();
244 ScoreDialog scores(this, m_canvas->GetScoreFile());
245 scores.Display();
246}
247
248void
249FortyFrame::ToggleRightButtonUndo(wxCommandEvent& event)
250{
251 bool checked = m_menuBar->IsChecked(event.GetId());
252 m_canvas->EnableRightButtonUndo(checked);
253}
254
255void
256FortyFrame::ToggleHelpingHand(wxCommandEvent& event)
257{
258 bool checked = m_menuBar->IsChecked(event.GetId());
259 m_canvas->EnableHelpingHand(checked);
260}
fc799548
JS
261
262void
263FortyFrame::ToggleCardSize(wxCommandEvent& event)
264{
265 bool checked = m_menuBar->IsChecked(event.GetId());
266 Card::SetScale(checked ? 1.3 : 1);
267 m_canvas->LayoutGame();
268 m_canvas->Refresh();
269}
270
271