[wxWidgets.git] / samples / typetest / typetest.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        typetest.cpp
// Purpose:     Types wxWindows sample
// Author:      Julian Smart
// Modified by:
// Created:     04/01/98
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart and Markus Holzem
// Licence:   	wxWindows license
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "typetest.h"
#endif

// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/wx.h"
#endif

#include "wx/time.h"
#include "wx/date.h"
#include "wx/variant.h"

#include "typetest.h"

#if defined(__WXGTK__) || defined(__WXMOTIF__)
#include "mondrian.xpm"
#endif

// Create a new application object
IMPLEMENT_APP	(MyApp)

IMPLEMENT_DYNAMIC_CLASS	(MyApp, wxApp)

BEGIN_EVENT_TABLE(MyApp, wxApp)
	EVT_MENU(TYPES_DATE, MyApp::DoDateDemo)
	EVT_MENU(TYPES_TIME, MyApp::DoTimeDemo)
	EVT_MENU(TYPES_VARIANT, MyApp::DoVariantDemo)
END_EVENT_TABLE()

bool MyApp::OnInit(void)
{
  // Create the main frame window
  MyFrame *frame = new MyFrame((wxFrame *) NULL, "wxWindows Types Demo",
      wxPoint(50, 50), wxSize(450, 340));

  // Give it an icon
  frame->SetIcon(wxICON(mondrian));

  // Make a menubar
  wxMenu *file_menu = new wxMenu;

  file_menu->Append(TYPES_ABOUT, "&About");
  file_menu->AppendSeparator();
  file_menu->Append(TYPES_DATE, "&Date test");
  file_menu->Append(TYPES_TIME, "&Time test");
  file_menu->Append(TYPES_VARIANT, "&Variant test");
  file_menu->AppendSeparator();
  file_menu->Append(TYPES_QUIT, "E&xit");
  wxMenuBar *menu_bar = new wxMenuBar;
  menu_bar->Append(file_menu, "&File");
  frame->SetMenuBar(menu_bar);

  m_textCtrl = new wxTextCtrl(frame, -1, "", wxPoint(0, 0), wxDefaultSize, wxTE_MULTILINE);

  // Show the frame
  frame->Show(TRUE);
  
  SetTopWindow(frame);

  return TRUE;
}

void MyApp::DoTimeDemo(wxCommandEvent& WXUNUSED(event))
{
    wxTextCtrl& textCtrl = * GetTextCtrl();

    textCtrl.Clear();
    cout << "\nTest class wxTime" << endl;
    wxTime now;
    textCtrl << "It is now " << (wxString) now << "\n";
}

void MyApp::DoDateDemo(wxCommandEvent& WXUNUSED(event))
{
    wxTextCtrl& textCtrl = * GetTextCtrl();

    textCtrl.Clear();
    textCtrl << "\nTest class wxDate" << "\n";

    // Various versions of the constructors
    // and various output

    wxDate x(10,20,1962);

    textCtrl << x.FormatDate(wxFULL) << "  (full)\n";

    // constuctor with a string, just printing the day of the week
    wxDate y("8/8/1988");

    textCtrl << y.FormatDate(wxDAY) << "  (just day)\n";

    // constructor with a julian
    wxDate z( 2450000L );
    textCtrl << z.FormatDate(wxFULL) << "  (full)\n";

    // using date addition and subtraction
    wxDate a = x + 10;
    textCtrl << a.FormatDate(wxFULL) << "  (full)\n";
    a = a - 25;
    textCtrl << a.FormatDate(wxEUROPEAN) << "  (European)\n";

    
    // Using subtraction of two date objects
    wxDate a1 = wxString("7/13/1991");
    wxDate a2 = a1 + 14;
    textCtrl << (a1-a2) << "\n";
    textCtrl << (a2+=10) << "\n";

    a1++;
    textCtrl << "Tomorrow= " << a1.FormatDate(wxFULL) << "\n";

    wxDate tmpDate1("08/01/1991");
    wxDate tmpDate2("07/14/1991");
    textCtrl << "a1 (7-14-91) < 8-01-91 ? ==> " << ((a1 < tmpDate1) ? "TRUE" : "FALSE") << "\n";
    textCtrl << "a1 (7-14-91) > 8-01-91 ? ==> " << ((a1 > tmpDate1) ? "TRUE" : "FALSE") << "\n";
    textCtrl << "a1 (7-14-91)== 7-14-91 ? ==> " << ((a1==tmpDate2) ? "TRUE" : "FALSE") << "\n";

    wxDate a3 = a1;
    textCtrl << "a1 (7-14-91)== a3 (7-14-91) ? ==> " << ((a1==a3) ? "TRUE" : "FALSE") << "\n";
    wxDate a4 = a1;
    textCtrl << "a1 (7-14-91)== a4 (7-15-91) ? ==> " << ((a1==++a4) ? "TRUE" : "FALSE") << "\n";

    wxDate a5 = wxString("today");
    textCtrl << "Today is: " << a5 << "\n";
    a4 = "TODAY";
    textCtrl << "Today (a4) is: " << a4 << "\n";

    textCtrl << "Today + 4 is: " << (a4+=4) << "\n";
    a4 = "TODAY";
    textCtrl << "Today - 4 is: " << (a4-=4) << "\n";

    textCtrl << "=========== Leap Year Test ===========\n";
    a1 = "1/15/1992";
    textCtrl << a1.FormatDate(wxFULL) << "  " << ((a1.IsLeapYear()) ? "Leap" : "non-Leap");
    textCtrl << "  " << "day of year:  " << a1.GetDayOfYear() << "\n";

    a1 = "2/16/1993";
    textCtrl << a1.FormatDate(wxFULL) << "  " << ((a1.IsLeapYear()) ? "Leap" : "non-Leap");
    textCtrl << "  " << "day of year:  " << a1.GetDayOfYear() << "\n";

    textCtrl << "================== string assignment test ====================\n";
    wxString date_string=a1;
    textCtrl << "a1 as a string (s/b 2/16/1993) ==> " << date_string << "\n";

    textCtrl << "================== SetFormat test ============================\n";
    a1.SetFormat(wxFULL);
    textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";
    a1.SetFormat(wxEUROPEAN);
    textCtrl << "a1 (s/b EUROPEAN format) ==> " << a1 << "\n";

    textCtrl << "================== SetOption test ============================\n";
    textCtrl << "Date abbreviation ON\n";

    a1.SetOption(wxDATE_ABBR);
    a1.SetFormat(wxMONTH);
    textCtrl << "a1 (s/b MONTH format) ==> " << a1 << "\n";
    a1.SetFormat(wxDAY);
    textCtrl << "a1 (s/b DAY format) ==> " << a1 << "\n";
    a1.SetFormat(wxFULL);
    textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";
    a1.SetFormat(wxEUROPEAN);
    textCtrl << "a1 (s/b EUROPEAN format) ==> " << a1 << "\n";
    textCtrl << "Century suppression ON\n";
    a1.SetOption(wxNO_CENTURY);
    a1.SetFormat(wxMDY);
    textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
    textCtrl << "Century suppression OFF\n";
    a1.SetOption(wxNO_CENTURY,FALSE);
    textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
    textCtrl << "Century suppression ON\n";
    a1.SetOption(wxNO_CENTURY);
    textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
    a1.SetFormat(wxFULL);
    textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";

    textCtrl << "\n=============== Version 4.0 Enhancement Test =================\n";

    wxDate v4("11/26/1966");
    textCtrl << "\n---------- Set Stuff -----------\n";
    textCtrl << "First, 'Set' to today..." << "\n";
    textCtrl << "Before 'Set' => " << v4 << "\n";
    textCtrl << "After  'Set' => " << v4.Set() << "\n\n";

    textCtrl << "Set to 11/26/66 => " << v4.Set(11,26,1966) << "\n";
    textCtrl << "Current Julian  => " << v4.GetJulianDate() << "\n";
    textCtrl << "Set to Julian 2450000L => " << v4.Set(2450000L) << "\n";
    textCtrl << "See! => " << v4.GetJulianDate() << "\n";

    textCtrl << "---------- Add Stuff -----------\n";
    textCtrl << "Start => " << v4 << "\n";
    textCtrl << "Add 4 Weeks => " << v4.AddWeeks(4) << "\n";
    textCtrl << "Sub 1 Month => " << v4.AddMonths(-1) << "\n";
    textCtrl << "Add 2 Years => " << v4.AddYears(2) << "\n";

    textCtrl << "---------- Misc Stuff -----------\n";
    textCtrl << "The date aboves' day of the month is => " << v4.GetDay() << "\n";
    textCtrl << "There are " << v4.GetDaysInMonth() << " days in this month.\n";
    textCtrl << "The first day of this month lands on " << v4.GetFirstDayOfMonth() << "\n";
    textCtrl << "This day happens to be " << v4.GetDayOfWeekName() << "\n";
    textCtrl << "the " << v4.GetDayOfWeek() << " day of the week," << "\n";
    textCtrl << "on the " << v4.GetWeekOfYear() << " week of the year," << "\n";
    textCtrl << "on the " << v4.GetWeekOfMonth() << " week of the month, " << "\n";
    textCtrl << "(which is " << v4.GetMonthName() << ")\n";
    textCtrl << "the "<< v4.GetMonth() << "th month in the year.\n";
    textCtrl << "The year alone is " << v4.GetYear() << "\n";

    textCtrl << "---------- First and Last Stuff -----------\n";
    v4.Set();
    textCtrl << "The first date of this month is " << v4.GetMonthStart() << "\n";
    textCtrl << "The last date of this month is " << v4.GetMonthEnd() << "\n";
    textCtrl << "The first date of this year is " << v4.GetYearStart() << "\n";
    textCtrl << "The last date of this year is " << v4.GetYearEnd() << "\n";
}

void MyApp::DoVariantDemo(wxCommandEvent& WXUNUSED(event) )
{
    wxTextCtrl& textCtrl = * GetTextCtrl();

    wxVariant var1 = "String value";
    textCtrl << "var1 = " << var1.MakeString() << "\n";

    // Conversion
    wxString str = var1.MakeString();

    var1 = 123.456;
    textCtrl << "var1 = " << var1.GetReal() << "\n";

    // Implicit conversion
    double v = var1;

    var1 = 9876L;
    textCtrl << "var1 = " << var1.GetLong() << "\n";

    // Implicit conversion
    long l = var1;

    wxStringList stringList;
    stringList.Add("one"); stringList.Add("two"); stringList.Add("three");
    var1 = stringList;
    textCtrl << "var1 = " << var1.MakeString() << "\n";

    var1.ClearList();
    var1.Append(wxVariant(1.2345));
    var1.Append(wxVariant("hello"));
    var1.Append(wxVariant(54321L));

    textCtrl << "var1 = " << var1.MakeString() << "\n";

    size_t n = var1.GetCount();
    size_t i;
    for (i = (size_t) 0; i < n; i++)
    {
        textCtrl << "var1[" << (int) i << "] (type " << var1[i].GetType() << ") = " << var1[i].MakeString() << "\n";
    }
}

BEGIN_EVENT_TABLE(MyFrame, wxFrame)
	EVT_MENU(TYPES_QUIT, MyFrame::OnQuit)
	EVT_MENU(TYPES_ABOUT, MyFrame::OnAbout)
END_EVENT_TABLE()

// My frame constructor
MyFrame::MyFrame(wxFrame *parent, const wxString& title,
       const wxPoint& pos, const wxSize& size):
  wxFrame(parent, -1, title, pos, size)
{}

void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event) )
{
  Close(TRUE);
}

void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event) )
{
  wxMessageDialog dialog(this, "Tests various wxWindows types",
  	"About Types", wxYES_NO|wxCANCEL);

  dialog.ShowModal();
}
Commit	Line	Data
cfb88c55 JS	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: typetest.cpp
	3	// Purpose: Types wxWindows 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 "typetest.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx/wx.h".
	17	#include "wx/wxprec.h"
	18
	19	#ifdef __BORLANDC__
	20	#pragma hdrstop
	21	#endif
	22
	23	#ifndef WX_PRECOMP
	24	#include "wx/wx.h"
	25	#endif
	26
	27	#include "wx/time.h"
	28	#include "wx/date.h"
	29	#include "wx/variant.h"
	30
	31	#include "typetest.h"
	32
b412f9be	33	#if defined(__WXGTK__) \|\| defined(__WXMOTIF__)
cfb88c55 JS	34	#include "mondrian.xpm"
	35	#endif
	36
	37	// Create a new application object
	38	IMPLEMENT_APP (MyApp)
	39
	40	IMPLEMENT_DYNAMIC_CLASS (MyApp, wxApp)
	41
	42	BEGIN_EVENT_TABLE(MyApp, wxApp)
	43	EVT_MENU(TYPES_DATE, MyApp::DoDateDemo)
	44	EVT_MENU(TYPES_TIME, MyApp::DoTimeDemo)
	45	EVT_MENU(TYPES_VARIANT, MyApp::DoVariantDemo)
	46	END_EVENT_TABLE()
	47
	48	bool MyApp::OnInit(void)
	49	{
	50	// Create the main frame window
	51	MyFrame frame = new MyFrame((wxFrame ) NULL, "wxWindows Types Demo",
	52	wxPoint(50, 50), wxSize(450, 340));
	53
	54	// Give it an icon
	55	frame->SetIcon(wxICON(mondrian));
	56
	57	// Make a menubar
	58	wxMenu *file_menu = new wxMenu;
	59
	60	file_menu->Append(TYPES_ABOUT, "&About");
	61	file_menu->AppendSeparator();
	62	file_menu->Append(TYPES_DATE, "&Date test");
	63	file_menu->Append(TYPES_TIME, "&Time test");
	64	file_menu->Append(TYPES_VARIANT, "&Variant test");
	65	file_menu->AppendSeparator();
	66	file_menu->Append(TYPES_QUIT, "E&xit");
	67	wxMenuBar *menu_bar = new wxMenuBar;
	68	menu_bar->Append(file_menu, "&File");
	69	frame->SetMenuBar(menu_bar);
	70
	71	m_textCtrl = new wxTextCtrl(frame, -1, "", wxPoint(0, 0), wxDefaultSize, wxTE_MULTILINE);
	72
	73	// Show the frame
	74	frame->Show(TRUE);
	75
	76	SetTopWindow(frame);
	77
	78	return TRUE;
	79	}
	80
bbf73190	81	void MyApp::DoTimeDemo(wxCommandEvent& WXUNUSED(event))
cfb88c55 JS	82	{
	83	wxTextCtrl& textCtrl = * GetTextCtrl();
	84
	85	textCtrl.Clear();
	86	cout << "\nTest class wxTime" << endl;
	87	wxTime now;
	88	textCtrl << "It is now " << (wxString) now << "\n";
	89	}
	90
bbf73190	91	void MyApp::DoDateDemo(wxCommandEvent& WXUNUSED(event))
cfb88c55 JS	92	{
	93	wxTextCtrl& textCtrl = * GetTextCtrl();
	94
	95	textCtrl.Clear();
	96	textCtrl << "\nTest class wxDate" << "\n";
	97
	98	// Various versions of the constructors
	99	// and various output
	100
	101	wxDate x(10,20,1962);
	102
	103	textCtrl << x.FormatDate(wxFULL) << " (full)\n";
	104
	105	// constuctor with a string, just printing the day of the week
	106	wxDate y("8/8/1988");
	107
	108	textCtrl << y.FormatDate(wxDAY) << " (just day)\n";
	109
	110	// constructor with a julian
	111	wxDate z( 2450000L );
	112	textCtrl << z.FormatDate(wxFULL) << " (full)\n";
	113
	114	// using date addition and subtraction
	115	wxDate a = x + 10;
	116	textCtrl << a.FormatDate(wxFULL) << " (full)\n";
	117	a = a - 25;
	118	textCtrl << a.FormatDate(wxEUROPEAN) << " (European)\n";
	119
	120
	121	// Using subtraction of two date objects
	122	wxDate a1 = wxString("7/13/1991");
	123	wxDate a2 = a1 + 14;
	124	textCtrl << (a1-a2) << "\n";
	125	textCtrl << (a2+=10) << "\n";
	126
	127	a1++;
	128	textCtrl << "Tomorrow= " << a1.FormatDate(wxFULL) << "\n";
	129
	130	wxDate tmpDate1("08/01/1991");
	131	wxDate tmpDate2("07/14/1991");
	132	textCtrl << "a1 (7-14-91) < 8-01-91 ? ==> " << ((a1 < tmpDate1) ? "TRUE" : "FALSE") << "\n";
	133	textCtrl << "a1 (7-14-91) > 8-01-91 ? ==> " << ((a1 > tmpDate1) ? "TRUE" : "FALSE") << "\n";
	134	textCtrl << "a1 (7-14-91)== 7-14-91 ? ==> " << ((a1==tmpDate2) ? "TRUE" : "FALSE") << "\n";
	135
	136	wxDate a3 = a1;
	137	textCtrl << "a1 (7-14-91)== a3 (7-14-91) ? ==> " << ((a1==a3) ? "TRUE" : "FALSE") << "\n";
	138	wxDate a4 = a1;
	139	textCtrl << "a1 (7-14-91)== a4 (7-15-91) ? ==> " << ((a1==++a4) ? "TRUE" : "FALSE") << "\n";
	140
	141	wxDate a5 = wxString("today");
	142	textCtrl << "Today is: " << a5 << "\n";
	143	a4 = "TODAY";
	144	textCtrl << "Today (a4) is: " << a4 << "\n";
	145
	146	textCtrl << "Today + 4 is: " << (a4+=4) << "\n";
	147	a4 = "TODAY";
	148	textCtrl << "Today - 4 is: " << (a4-=4) << "\n";
	149
	150	textCtrl << "=========== Leap Year Test ===========\n";
	151	a1 = "1/15/1992";
	152	textCtrl << a1.FormatDate(wxFULL) << " " << ((a1.IsLeapYear()) ? "Leap" : "non-Leap");
	153	textCtrl << " " << "day of year: " << a1.GetDayOfYear() << "\n";
	154
	155	a1 = "2/16/1993";
156	textCtrl << a1.FormatDate(wxFULL) << " " << ((a1.IsLeapYear()) ? "Leap" : "non-Leap");
157	textCtrl << " " << "day of year: " << a1.GetDayOfYear() << "\n";
158
159	textCtrl << "================== string assignment test ====================\n";
160	wxString date_string=a1;
161	textCtrl << "a1 as a string (s/b 2/16/1993) ==> " << date_string << "\n";
162
163	textCtrl << "================== SetFormat test ============================\n";
164	a1.SetFormat(wxFULL);
165	textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";
166	a1.SetFormat(wxEUROPEAN);
167	textCtrl << "a1 (s/b EUROPEAN format) ==> " << a1 << "\n";
168
169	textCtrl << "================== SetOption test ============================\n";
170	textCtrl << "Date abbreviation ON\n";
171
172	a1.SetOption(wxDATE_ABBR);
173	a1.SetFormat(wxMONTH);
174	textCtrl << "a1 (s/b MONTH format) ==> " << a1 << "\n";
175	a1.SetFormat(wxDAY);
176	textCtrl << "a1 (s/b DAY format) ==> " << a1 << "\n";
177	a1.SetFormat(wxFULL);
178	textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";
179	a1.SetFormat(wxEUROPEAN);
180	textCtrl << "a1 (s/b EUROPEAN format) ==> " << a1 << "\n";
181	textCtrl << "Century suppression ON\n";
182	a1.SetOption(wxNO_CENTURY);
183	a1.SetFormat(wxMDY);
184	textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
185	textCtrl << "Century suppression OFF\n";
186	a1.SetOption(wxNO_CENTURY,FALSE);
187	textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
188	textCtrl << "Century suppression ON\n";
189	a1.SetOption(wxNO_CENTURY);
190	textCtrl << "a1 (s/b MDY format) ==> " << a1 << "\n";
191	a1.SetFormat(wxFULL);
192	textCtrl << "a1 (s/b FULL format) ==> " << a1 << "\n";
193
194	textCtrl << "\n=============== Version 4.0 Enhancement Test =================\n";
195
196	wxDate v4("11/26/1966");
197	textCtrl << "\n---------- Set Stuff -----------\n";
198	textCtrl << "First, 'Set' to today..." << "\n";
199	textCtrl << "Before 'Set' => " << v4 << "\n";
200	textCtrl << "After 'Set' => " << v4.Set() << "\n\n";
201
202	textCtrl << "Set to 11/26/66 => " << v4.Set(11,26,1966) << "\n";
203	textCtrl << "Current Julian => " << v4.GetJulianDate() << "\n";
204	textCtrl << "Set to Julian 2450000L => " << v4.Set(2450000L) << "\n";
205	textCtrl << "See! => " << v4.GetJulianDate() << "\n";
206
207	textCtrl << "---------- Add Stuff -----------\n";
208	textCtrl << "Start => " << v4 << "\n";
209	textCtrl << "Add 4 Weeks => " << v4.AddWeeks(4) << "\n";
210	textCtrl << "Sub 1 Month => " << v4.AddMonths(-1) << "\n";
211	textCtrl << "Add 2 Years => " << v4.AddYears(2) << "\n";
212
213	textCtrl << "---------- Misc Stuff -----------\n";
214	textCtrl << "The date aboves' day of the month is => " << v4.GetDay() << "\n";
215	textCtrl << "There are " << v4.GetDaysInMonth() << " days in this month.\n";
216	textCtrl << "The first day of this month lands on " << v4.GetFirstDayOfMonth() << "\n";
217	textCtrl << "This day happens to be " << v4.GetDayOfWeekName() << "\n";
218	textCtrl << "the " << v4.GetDayOfWeek() << " day of the week," << "\n";
219	textCtrl << "on the " << v4.GetWeekOfYear() << " week of the year," << "\n";
220	textCtrl << "on the " << v4.GetWeekOfMonth() << " week of the month, " << "\n";
221	textCtrl << "(which is " << v4.GetMonthName() << ")\n";
222	textCtrl << "the "<< v4.GetMonth() << "th month in the year.\n";
223	textCtrl << "The year alone is " << v4.GetYear() << "\n";
224
225	textCtrl << "---------- First and Last Stuff -----------\n";
226	v4.Set();
227	textCtrl << "The first date of this month is " << v4.GetMonthStart() << "\n";
228	textCtrl << "The last date of this month is " << v4.GetMonthEnd() << "\n";
229	textCtrl << "The first date of this year is " << v4.GetYearStart() << "\n";
230	textCtrl << "The last date of this year is " << v4.GetYearEnd() << "\n";
231	}
232
bbf73190	233	void MyApp::DoVariantDemo(wxCommandEvent& WXUNUSED(event) )
cfb88c55 JS	234	{
	235	wxTextCtrl& textCtrl = * GetTextCtrl();
	236
	237	wxVariant var1 = "String value";
62448488	238	textCtrl << "var1 = " << var1.MakeString() << "\n";
cfb88c55	239
62448488 JS	240	// Conversion
62448488 JS	241	wxString str = var1.MakeString();
cfb88c55 JS	242
	243	var1 = 123.456;
	244	textCtrl << "var1 = " << var1.GetReal() << "\n";
	245
	246	// Implicit conversion
	247	double v = var1;
	248
	249	var1 = 9876L;
	250	textCtrl << "var1 = " << var1.GetLong() << "\n";
	251
	252	// Implicit conversion
	253	long l = var1;
	254
	255	wxStringList stringList;
	256	stringList.Add("one"); stringList.Add("two"); stringList.Add("three");
	257	var1 = stringList;
62448488	258	textCtrl << "var1 = " << var1.MakeString() << "\n";
cfb88c55 JS	259
	260	var1.ClearList();
	261	var1.Append(wxVariant(1.2345));
	262	var1.Append(wxVariant("hello"));
	263	var1.Append(wxVariant(54321L));
	264
62448488	265	textCtrl << "var1 = " << var1.MakeString() << "\n";
cfb88c55 JS	266
	267	size_t n = var1.GetCount();
	268	size_t i;
	269	for (i = (size_t) 0; i < n; i++)
	270	{
62448488	271	textCtrl << "var1[" << (int) i << "] (type " << var1[i].GetType() << ") = " << var1[i].MakeString() << "\n";
cfb88c55 JS	272	}
	273	}
	274
	275	BEGIN_EVENT_TABLE(MyFrame, wxFrame)
	276	EVT_MENU(TYPES_QUIT, MyFrame::OnQuit)
	277	EVT_MENU(TYPES_ABOUT, MyFrame::OnAbout)
	278	END_EVENT_TABLE()
	279
	280	// My frame constructor
	281	MyFrame::MyFrame(wxFrame *parent, const wxString& title,
	282	const wxPoint& pos, const wxSize& size):
	283	wxFrame(parent, -1, title, pos, size)
	284	{}
	285
	286	void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event) )
	287	{
	288	Close(TRUE);
	289	}
	290
	291	void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event) )
	292	{
	293	wxMessageDialog dialog(this, "Tests various wxWindows types",
	294	"About Types", wxYES_NO\|wxCANCEL);
	295
	296	dialog.ShowModal();
	297	}
	298
	299