]> git.saurik.com Git - wxWidgets.git/blob - samples/internat/internat.cpp
Include compilation of tests for OpenVMS (part1)
[wxWidgets.git] / samples / internat / internat.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: internat.cpp
3 // Purpose: Demonstrates internationalisation (i18n) support
4 // Author: Vadim Zeitlin/Julian Smart
5 // Modified by:
6 // Created: 04/01/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // NOTE: don't miss the "readme.txt" file which comes with this sample!
13
14
15
16 // ============================================================================
17 // declarations
18 // ============================================================================
19
20 // ----------------------------------------------------------------------------
21 // headers
22 // ----------------------------------------------------------------------------
23
24 // For compilers that support precompilation, includes "wx/wx.h".
25 #include "wx/wxprec.h"
26
27 #ifdef __BORLANDC__
28 #pragma hdrstop
29 #endif
30
31 #ifndef WX_PRECOMP
32 #include "wx/wx.h"
33 #endif
34
35 #include "wx/intl.h"
36 #include "wx/file.h"
37 #include "wx/log.h"
38 #include "wx/cmdline.h"
39
40 #if !defined(__WXMSW__) && !defined(__WXPM__)
41 #include "../sample.xpm"
42 #endif
43
44 // ----------------------------------------------------------------------------
45 // private classes
46 // ----------------------------------------------------------------------------
47
48 // Define a new application type
49 class MyApp: public wxApp
50 {
51 public:
52 MyApp() { m_lang = wxLANGUAGE_UNKNOWN; }
53
54 virtual void OnInitCmdLine(wxCmdLineParser& parser);
55 virtual bool OnCmdLineParsed(wxCmdLineParser& parser);
56 virtual bool OnInit();
57
58 protected:
59 wxLanguage m_lang; // language specified by user
60 wxLocale m_locale; // locale we'll be using
61 };
62
63 // Define a new frame type
64 class MyFrame: public wxFrame
65 {
66 public:
67 MyFrame(wxLocale& m_locale);
68
69 public:
70 void OnTestLocaleAvail(wxCommandEvent& event);
71 void OnAbout(wxCommandEvent& event);
72 void OnQuit(wxCommandEvent& event);
73
74 void OnPlay(wxCommandEvent& event);
75 void OnOpen(wxCommandEvent& event);
76 void OnTest1(wxCommandEvent& event);
77 void OnTest2(wxCommandEvent& event);
78 void OnTest3(wxCommandEvent& event);
79 void OnTestMsgBox(wxCommandEvent& event);
80
81 DECLARE_EVENT_TABLE()
82
83 wxLocale& m_locale;
84 };
85
86 // ----------------------------------------------------------------------------
87 // constants
88 // ----------------------------------------------------------------------------
89
90 // ID for the menu commands
91 enum
92 {
93 INTERNAT_TEST = wxID_HIGHEST + 1,
94 INTERNAT_PLAY,
95 INTERNAT_TEST_1,
96 INTERNAT_TEST_2,
97 INTERNAT_TEST_3,
98 INTERNAT_TEST_MSGBOX
99 };
100
101 // language data
102 static const wxLanguage langIds[] =
103 {
104 wxLANGUAGE_DEFAULT,
105 wxLANGUAGE_FRENCH,
106 wxLANGUAGE_ITALIAN,
107 wxLANGUAGE_GERMAN,
108 wxLANGUAGE_RUSSIAN,
109 wxLANGUAGE_BULGARIAN,
110 wxLANGUAGE_CZECH,
111 wxLANGUAGE_POLISH,
112 wxLANGUAGE_SWEDISH,
113 #if wxUSE_UNICODE || defined(__WXMOTIF__)
114 wxLANGUAGE_JAPANESE,
115 #endif
116 #if wxUSE_UNICODE
117 wxLANGUAGE_GEORGIAN,
118 wxLANGUAGE_ENGLISH,
119 wxLANGUAGE_ENGLISH_US,
120 wxLANGUAGE_ARABIC,
121 wxLANGUAGE_ARABIC_EGYPT
122 #endif
123 };
124
125 // note that it makes no sense to translate these strings, they are
126 // shown before we set the locale anyhow
127 const wxString langNames[] =
128 {
129 "System default",
130 "French",
131 "Italian",
132 "German",
133 "Russian",
134 "Bulgarian",
135 "Czech",
136 "Polish",
137 "Swedish",
138 #if wxUSE_UNICODE || defined(__WXMOTIF__)
139 "Japanese",
140 #endif
141 #if wxUSE_UNICODE
142 "Georgian",
143 "English",
144 "English (U.S.)",
145 "Arabic",
146 "Arabic (Egypt)"
147 #endif
148 };
149
150 // the arrays must be in sync
151 wxCOMPILE_TIME_ASSERT( WXSIZEOF(langNames) == WXSIZEOF(langIds),
152 LangArraysMismatch );
153
154 // ----------------------------------------------------------------------------
155 // wxWidgets macros
156 // ----------------------------------------------------------------------------
157
158 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
159 EVT_MENU(INTERNAT_TEST, MyFrame::OnTestLocaleAvail)
160 EVT_MENU(wxID_ABOUT, MyFrame::OnAbout)
161 EVT_MENU(wxID_EXIT, MyFrame::OnQuit)
162
163 EVT_MENU(INTERNAT_PLAY, MyFrame::OnPlay)
164 EVT_MENU(wxID_OPEN, MyFrame::OnOpen)
165 EVT_MENU(INTERNAT_TEST_1, MyFrame::OnTest1)
166 EVT_MENU(INTERNAT_TEST_2, MyFrame::OnTest2)
167 EVT_MENU(INTERNAT_TEST_3, MyFrame::OnTest3)
168 EVT_MENU(INTERNAT_TEST_MSGBOX, MyFrame::OnTestMsgBox)
169 END_EVENT_TABLE()
170
171 IMPLEMENT_APP(MyApp)
172
173 // ============================================================================
174 // implementation
175 // ============================================================================
176
177 // ----------------------------------------------------------------------------
178 // MyApp
179 // ----------------------------------------------------------------------------
180
181 // command line arguments handling
182 void MyApp::OnInitCmdLine(wxCmdLineParser& parser)
183 {
184 parser.AddParam(_("locale"),
185 wxCMD_LINE_VAL_STRING,
186 wxCMD_LINE_PARAM_OPTIONAL);
187
188 wxApp::OnInitCmdLine(parser);
189 }
190
191 bool MyApp::OnCmdLineParsed(wxCmdLineParser& parser)
192 {
193 if ( !wxApp::OnCmdLineParsed(parser) )
194 return false;
195
196 if ( parser.GetParamCount() )
197 {
198 const wxString loc = parser.GetParam();
199 const wxLanguageInfo * const lang = wxLocale::FindLanguageInfo(loc);
200 if ( !lang )
201 {
202 wxLogError(_("Locale \"%s\" is unknown."), loc);
203 return false;
204 }
205
206 m_lang = static_cast<wxLanguage>(lang->Language);
207 }
208
209 return true;
210 }
211
212 // `Main program' equivalent, creating windows and returning main app frame
213 bool MyApp::OnInit()
214 {
215 if ( !wxApp::OnInit() )
216 return false;
217
218 if ( m_lang == wxLANGUAGE_UNKNOWN )
219 {
220 int lng = wxGetSingleChoiceIndex
221 (
222 _("Please choose language:"),
223 _("Language"),
224 WXSIZEOF(langNames),
225 langNames
226 );
227 m_lang = lng == -1 ? wxLANGUAGE_DEFAULT : langIds[lng];
228 }
229
230 // don't use wxLOCALE_LOAD_DEFAULT flag so that Init() doesn't return
231 // false just because it failed to load wxstd catalog
232 if ( !m_locale.Init(m_lang, wxLOCALE_DONT_LOAD_DEFAULT) )
233 {
234 wxLogWarning(_("This language is not supported by the system."));
235
236 // continue nevertheless
237 }
238
239 // normally this wouldn't be necessary as the catalog files would be found
240 // in the default locations, but when the program is not installed the
241 // catalogs are in the build directory where we wouldn't find them by
242 // default
243 wxLocale::AddCatalogLookupPathPrefix(".");
244
245 // Initialize the catalogs we'll be using
246 const wxLanguageInfo* pInfo = wxLocale::GetLanguageInfo(m_lang);
247 if (!m_locale.AddCatalog("internat"))
248 {
249 wxLogError(_("Couldn't find/load the 'internat' catalog for locale '%s'."),
250 pInfo ? pInfo->GetLocaleName() : _("unknown"));
251 }
252
253 // Now try to add wxstd.mo so that loading "NOTEXIST.ING" file will produce
254 // a localized error message:
255 m_locale.AddCatalog("wxstd");
256 // NOTE: it's not an error if we couldn't find it!
257
258 // this catalog is installed in standard location on Linux systems and
259 // shows that you may make use of the standard message catalogs as well
260 //
261 // if it's not installed on your system, it is just silently ignored
262 #ifdef __LINUX__
263 {
264 wxLogNull noLog;
265 m_locale.AddCatalog("fileutils");
266 }
267 #endif
268
269 // Create the main frame window
270 MyFrame *frame = new MyFrame(m_locale);
271
272 // Show the frame
273 frame->Show(true);
274 SetTopWindow(frame);
275
276 return true;
277 }
278
279 // ----------------------------------------------------------------------------
280 // MyFrame
281 // ----------------------------------------------------------------------------
282
283 // main frame constructor
284 MyFrame::MyFrame(wxLocale& locale)
285 : wxFrame(NULL,
286 wxID_ANY,
287 _("International wxWidgets App")),
288 m_locale(locale)
289 {
290 SetIcon(wxICON(sample));
291
292 // Make a menubar
293 wxMenu *file_menu = new wxMenu;
294 file_menu->Append(INTERNAT_TEST, _("&Test locale availability...\tCtrl-T"));
295 file_menu->AppendSeparator();
296
297 // since wxID_ABOUT and wxID_EXIT are stock IDs they will automatically get
298 // translated help strings; nice isn't it?
299 file_menu->Append(wxID_ABOUT, _("&About..."));
300 file_menu->AppendSeparator();
301 file_menu->Append(wxID_EXIT, _("E&xit"));
302
303 wxMenu *test_menu = new wxMenu;
304 test_menu->Append(wxID_OPEN, _("&Open bogus file"), _("Shows a wxWidgets localized error message"));
305 test_menu->Append(INTERNAT_PLAY, _("&Play a game"), _("A little game; hint: 17 is a lucky number for many"));
306 test_menu->AppendSeparator();
307 test_menu->Append(INTERNAT_TEST_1, _("&1 _() (gettext)"), _("Tests the _() macro"));
308 test_menu->Append(INTERNAT_TEST_2, _("&2 _N() (ngettext)"), _("Tests the _N() macro"));
309 test_menu->Append(INTERNAT_TEST_3, _("&3 wxTRANSLATE() (gettext_noop)"), _("Tests the wxTRANSLATE() macro"));
310 test_menu->Append(INTERNAT_TEST_MSGBOX, _("&Message box test"),
311 _("Tests message box buttons labels translation"));
312
313 wxMenuBar *menu_bar = new wxMenuBar;
314 menu_bar->Append(file_menu, _("&File"));
315 menu_bar->Append(test_menu, _("&Test"));
316 SetMenuBar(menu_bar);
317
318 // this demonstrates RTL support in wxStatusBar:
319 CreateStatusBar(1);
320
321 // this demonstrates RTL layout mirroring for Arabic locales
322 wxSizer *sizer = new wxBoxSizer(wxHORIZONTAL);
323 sizer->Add(new wxStaticText(this, wxID_ANY, _("First")),
324 wxSizerFlags().Border());
325 sizer->Add(new wxStaticText(this, wxID_ANY, _("Second")),
326 wxSizerFlags().Border());
327 SetSizer(sizer);
328 }
329
330 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event) )
331 {
332 Close(true);
333 }
334
335 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
336 {
337 wxString localeInfo;
338 wxString locale = m_locale.GetLocale();
339 wxString sysname = m_locale.GetSysName();
340 wxString canname = m_locale.GetCanonicalName();
341
342 localeInfo.Printf(_("Language: %s\nSystem locale name: %s\nCanonical locale name: %s\n"),
343 locale.c_str(), sysname.c_str(), canname.c_str() );
344
345 wxMessageDialog dlg(
346 this,
347 wxString(_("I18n sample\n(c) 1998, 1999 Vadim Zeitlin and Julian Smart"))
348 + "\n\n"
349 + localeInfo,
350 _("About Internat"),
351 wxOK | wxICON_INFORMATION
352 );
353 dlg.ShowModal();
354 }
355
356 void MyFrame::OnPlay(wxCommandEvent& WXUNUSED(event))
357 {
358 wxString str = wxGetTextFromUser
359 (
360 _("Enter your number:"),
361 _("Try to guess my number!"),
362 wxEmptyString,
363 this
364 );
365
366 if ( str.empty() )
367 {
368 // cancelled
369 return;
370 }
371
372 long num;
373 if ( !str.ToLong(&num) || num < 0 )
374 {
375 str = _("You've probably entered an invalid number.");
376 }
377 else if ( num == 9 )
378 {
379 // this message is not translated (not in catalog) because we used wxT()
380 // and not _() around it
381 str = wxT("You've found a bug in this program!");
382 }
383 else if ( num == 17 )
384 {
385 str.clear();
386
387 // string must be split in two -- otherwise the translation would't be
388 // found
389 str << _("Congratulations! you've won. Here is the magic phrase:")
390 << _("cannot create fifo `%s'");
391 }
392 else
393 {
394 // this is a more implicit way to write _() but note that if you use it
395 // you must ensure that the strings get extracted in the message
396 // catalog as by default xgettext won't do it; it only knows of _(),
397 // not of wxTRANSLATE(). As internat's readme.txt says you should thus
398 // call xgettext with -kwxTRANSLATE.
399 str = wxGetTranslation(wxTRANSLATE("Bad luck! try again..."));
400
401 // note also that if we want 'str' to contain a localized string
402 // we need to use wxGetTranslation explicitely as wxTRANSLATE just
403 // tells xgettext to extract the string but has no effect on the
404 // runtime of the program!
405 }
406
407 wxMessageBox(str, _("Result"), wxOK | wxICON_INFORMATION);
408 }
409
410 void MyFrame::OnTestLocaleAvail(wxCommandEvent& WXUNUSED(event))
411 {
412 static wxString s_locale;
413 wxString locale = wxGetTextFromUser
414 (
415 _("Enter the locale to test"),
416 wxGetTextFromUserPromptStr,
417 s_locale,
418 this
419 );
420 if ( locale.empty() )
421 return;
422
423 s_locale = locale;
424 const wxLanguageInfo * const info = wxLocale::FindLanguageInfo(s_locale);
425 if ( !info )
426 {
427 wxLogError(_("Locale \"%s\" is unknown."), s_locale.c_str());
428 return;
429 }
430
431 if ( wxLocale::IsAvailable(info->Language) )
432 {
433 wxLogMessage(_("Locale \"%s\" is available."), s_locale.c_str());
434 }
435 else
436 {
437 wxLogWarning(_("Locale \"%s\" is not available."), s_locale.c_str());
438 }
439 }
440
441 void MyFrame::OnOpen(wxCommandEvent& WXUNUSED(event))
442 {
443 // open a bogus file -- the error message should be also translated if
444 // you've got wxstd.mo somewhere in the search path (see MyApp::OnInit)
445 wxFile file("NOTEXIST.ING");
446 }
447
448 void MyFrame::OnTest1(wxCommandEvent& WXUNUSED(event))
449 {
450 const wxString& title = _("Testing _() (gettext)");
451
452 // NOTE: using the wxTRANSLATE() macro here we won't show a localized
453 // string in the text entry dialog; we'll simply show the un-translated
454 // string; however if the user press "ok" without altering the text,
455 // since the "default value" string has been extracted by xgettext
456 // the wxGetTranslation call later will manage to return a localized
457 // string
458 wxTextEntryDialog d(this, _("Please enter text to translate"),
459 title, wxTRANSLATE("default value"));
460
461 if (d.ShowModal() == wxID_OK)
462 {
463 wxString v = d.GetValue();
464 wxString s(title);
465 s << "\n" << v << " -> "
466 << wxGetTranslation(v.c_str()) << "\n";
467 wxMessageBox(s);
468 }
469 }
470
471 void MyFrame::OnTest2(wxCommandEvent& WXUNUSED(event))
472 {
473 const wxString& title = _("Testing _N() (ngettext)");
474 wxTextEntryDialog d(this,
475 _("Please enter range for plural forms of \"n files deleted\" phrase"),
476 title, "0-10");
477
478 if (d.ShowModal() == wxID_OK)
479 {
480 int first, last;
481 wxSscanf(d.GetValue(), "%d-%d", &first, &last);
482 wxString s(title);
483 s << "\n";
484 for (int n = first; n <= last; ++n)
485 {
486 s << n << " " <<
487 wxPLURAL("file deleted", "files deleted", n) <<
488 "\n";
489 }
490 wxMessageBox(s);
491 }
492 }
493
494 void MyFrame::OnTest3(wxCommandEvent& WXUNUSED(event))
495 {
496 const char* lines[] =
497 {
498 wxTRANSLATE("line 1"),
499 wxTRANSLATE("line 2"),
500 wxTRANSLATE("line 3"),
501 };
502
503 wxString s(_("Testing wxTRANSLATE() (gettext_noop)"));
504 s << "\n";
505 for (size_t i = 0; i < WXSIZEOF(lines); ++i)
506 {
507 s << lines[i] << " -> " << wxGetTranslation(lines[i]) << "\n";
508 }
509 wxMessageBox(s);
510 }
511
512 void MyFrame::OnTestMsgBox(wxCommandEvent& WXUNUSED(event))
513 {
514 if ( wxMessageBox
515 (
516 _("Are the labels of the buttons in this message box "
517 "translated into the current locale language?"),
518 _("wxWidgets i18n sample"),
519 wxYES_NO,
520 this
521 ) != wxYES )
522 {
523 wxMessageBox(_("Please report the details of your platform to us."));
524 }
525 }