2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
// Name: dbbrowse.cpp
|
|
|
|
// Purpose: Through ODBC - Databases Browsen
|
2001-02-12 14:23:44 -05:00
|
|
|
// Author: Mark Johnson
|
2000-01-28 10:25:32 -05:00
|
|
|
// Modified by:
|
|
|
|
// BJO : Bart A.M. JOURQUIN
|
|
|
|
// Created: 19991127
|
|
|
|
// Copyright: (c) Mark Johnson
|
|
|
|
// Licence: wxWindows license
|
2000-01-31 08:20:36 -05:00
|
|
|
// RCS-ID: $Id$
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
|
|
|
//-- all #ifdefs that the whole Project needs. -------------------------------------------
|
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#ifdef __GNUG__
|
2001-02-01 15:24:44 -05:00
|
|
|
#pragma implementation
|
|
|
|
#pragma interface
|
2000-01-28 10:25:32 -05:00
|
|
|
#endif
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
// For compilers that support precompilation, includes "wx/wx.h".
|
|
|
|
#include "wx/wxprec.h"
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#ifdef __BORLANDC__
|
2001-02-01 15:24:44 -05:00
|
|
|
#pragma hdrstop
|
2000-01-28 10:25:32 -05:00
|
|
|
#endif
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#ifndef WX_PRECOMP
|
2001-02-01 15:24:44 -05:00
|
|
|
#include "wx/wx.h"
|
2000-01-28 10:25:32 -05:00
|
|
|
#endif
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#ifndef __WXMSW__
|
2001-02-01 15:24:44 -05:00
|
|
|
#include "bitmaps/logo.xpm"
|
2000-02-13 13:31:05 -05:00
|
|
|
#endif
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
|
|
|
//-- all #includes that every .cpp needs --- 19990807.mj10777 ----------------
|
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#include "std.h" // sorgsam Pflegen !
|
2000-02-13 13:31:05 -05:00
|
|
|
// #include <iostream>
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
|
|
|
//-- Some Global Vars for this file ------------------------------------------------------
|
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
BEGIN_EVENT_TABLE(MainFrame, wxFrame)
|
2001-02-01 15:24:44 -05:00
|
|
|
EVT_MENU(QUIT, MainFrame::OnQuit) // Program End
|
|
|
|
EVT_MENU(ABOUT, MainFrame::OnAbout) // Program Discription
|
|
|
|
EVT_MENU(HELP, MainFrame::OnHelp) // Program Help
|
2000-01-28 10:25:32 -05:00
|
|
|
END_EVENT_TABLE()
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-02-13 13:31:05 -05:00
|
|
|
IMPLEMENT_APP(MainApp) // This declares wxApp::MainApp as "the" Application
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
|
|
|
// 'Main program' equivalent, creating windows and returning main app frame
|
|
|
|
//----------------------------------------------------------------------------------------
|
2000-02-13 13:31:05 -05:00
|
|
|
bool MainApp::OnInit(void) // Does everything needed for a program start
|
2000-01-28 10:25:32 -05:00
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
wxString Temp0; // Use as needed
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// set the language to use // Help.?? (.std = english, .de = german etc.)
|
|
|
|
const char *language = NULL; // czech, german, french, polish
|
|
|
|
const char *langid = NULL; // std = english , cz, de = german, fr = french, pl = polish
|
|
|
|
wxString s_LangHelp; // Directory/Filename.hhp of the Help-Project file
|
|
|
|
wxString s_LangId, s_Language;
|
|
|
|
s_Language.Empty(); s_LangId.Empty(); s_LangHelp.Empty();
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
//-- Graphic File suport - use only when needed, otherwise big .exe's
|
|
|
|
//---------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
#if wxUSE_LIBPNG
|
2001-02-01 15:24:44 -05:00
|
|
|
wxImage::AddHandler( new wxPNGHandler ); // needed for help System
|
2000-01-28 10:25:32 -05:00
|
|
|
#endif
|
|
|
|
/*
|
2001-02-01 15:24:44 -05:00
|
|
|
#if wxUSE_LIBJPEG
|
|
|
|
wxImage::AddHandler(new wxJPEGHandler ); // use only when needed, otherwise big .exe's
|
|
|
|
#endif
|
|
|
|
wxImage::AddHandler( new wxGIFHandler ); // use only when needed, otherwise big .exe's
|
|
|
|
wxImage::AddHandler( new wxPCXHandler ); // use only when needed, otherwise big .exe's
|
|
|
|
wxImage::AddHandler( new wxPNMHandler ); // use only when needed, otherwise big .exe's
|
2000-01-28 10:25:32 -05:00
|
|
|
*/
|
|
|
|
#ifdef __WXMSW__
|
2001-02-01 15:24:44 -05:00
|
|
|
// wxBitmap::AddHandler( new wxXPMFileHandler ); // Attempt to use XPS instead of ico
|
|
|
|
// wxBitmap::AddHandler( new wxXPMDataHandler ); // - Attempt failed
|
2000-01-28 10:25:32 -05:00
|
|
|
#endif
|
2001-02-01 15:24:44 -05:00
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
switch ( argc )
|
|
|
|
{
|
|
|
|
default:
|
|
|
|
// ignore the other args, fall through
|
|
|
|
case 3:
|
|
|
|
language = argv[2]; // czech, english, french, german , polish
|
|
|
|
langid = argv[1]; // cz, std, fr, de , pl
|
|
|
|
break;
|
|
|
|
case 2:
|
|
|
|
langid = argv[1]; // cz, std, fr, de , pl
|
|
|
|
break;
|
|
|
|
case 1:
|
|
|
|
break;
|
|
|
|
};
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Win-Registry : Workplace\HKEY_CURRENT_USERS\Software\%GetVendorName()\%GetAppName()
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
SetVendorName("mj10777"); // Needed to get Configuration Information
|
|
|
|
SetAppName("DBBrowse"); // "" , also needed for s_LangHelp
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// we're using wxConfig's "create-on-demand" feature: it will create the
|
|
|
|
// config object when it's used for the first time. It has a number of
|
|
|
|
// advantages compared with explicitly creating our wxConfig:
|
|
|
|
// 1) we don't pay for it if we don't use it
|
|
|
|
// 2) there is no danger to create it twice
|
|
|
|
|
|
|
|
// application and vendor name are used by wxConfig to construct the name
|
|
|
|
// of the config file/registry key and must be set before the first call
|
|
|
|
// to Get() if you want to override the default values (the application
|
|
|
|
// name is the name of the executable and the vendor name is the same)
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
p_ProgramCfg = wxConfigBase::Get(); // Get Program Configuration from Registry
|
|
|
|
// p_ProgramCfg->DeleteAll(); // This is how the Config can be erased
|
|
|
|
p_ProgramCfg->SetPath("/"); // Start at root
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
//-- Set the Language and remember it for the next time. --------------------------------
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
if (langid == NULL) // No Parameter was given
|
|
|
|
{
|
|
|
|
Temp0.Empty();
|
|
|
|
p_ProgramCfg->Read("/Local/langid",&Temp0); // >const char *langid< can't be used here
|
|
|
|
if (Temp0 == "")
|
|
|
|
langid = "std"; // Standard language is "std" = english
|
|
|
|
else
|
|
|
|
langid = Temp0;
|
|
|
|
}
|
|
|
|
Temp0.Printf("%s",langid);
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Support the following languages (std = english)
|
|
|
|
if ((Temp0 == "a") || (Temp0 == "cz") || (Temp0 == "de") ||
|
|
|
|
(Temp0 == "fr") || (Temp0 == "pl"))
|
|
|
|
{ // The three-letter language-string codes are only valid in Windows NT and Windows 95.
|
|
|
|
if (Temp0 == "cz")
|
|
|
|
language = "czech"; // csy or czech
|
|
|
|
if ((Temp0 == "de") || (Temp0 == "a"))
|
|
|
|
{
|
|
|
|
language = "german"; // deu or german
|
|
|
|
if (Temp0 == "a")
|
|
|
|
{ langid = Temp0 = "de"; } // Austrian = german
|
|
|
|
} // german / austrian
|
|
|
|
if (Temp0 == "fr")
|
|
|
|
language = "french"; // fra or french
|
|
|
|
if (Temp0 == "pl")
|
|
|
|
language = "polish"; // plk or polish
|
|
|
|
if (!m_locale.Init(language, langid, language)) // Don't do this for english (std)
|
|
|
|
{ // You should recieve errors here for cz and pl since there is no cz/ and pl/ directory
|
|
|
|
wxLogMessage("-E-> %s : SetLocale error : langid(%s) ; language(%s)",GetAppName().c_str(),langid,language);
|
|
|
|
langid = "std";
|
|
|
|
language = "C"; // english, english-aus , -can , -nz , -uk , -usa
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{ // Read in Foreign language's text for GetAppName() and Help
|
|
|
|
Temp0 = GetAppName();
|
|
|
|
Temp0 = Temp0.Lower();
|
|
|
|
m_locale.AddCatalog(Temp0.c_str());
|
|
|
|
m_locale.AddCatalog("help");
|
|
|
|
}
|
|
|
|
} // Support the following languages (std = english)
|
|
|
|
else
|
|
|
|
{
|
|
|
|
langid = "std";
|
|
|
|
language = "C"; // english, english-aus , -can , -nz , -uk , -usa
|
|
|
|
}
|
|
|
|
s_Language.Printf("%s",language); // language is a pointer
|
|
|
|
s_LangId.Printf("%s",langid); // langid is a pointer
|
|
|
|
p_ProgramCfg->Write("/Local/language",s_Language);
|
|
|
|
p_ProgramCfg->Write("/Local/langid",s_LangId);
|
|
|
|
s_LangHelp.Printf("help.%s/%s.hhp",s_LangId.c_str(),GetAppName().c_str()); // "help.std/Garantie.hhp";
|
|
|
|
s_LangHelp = s_LangHelp.Lower(); // A must for Linux
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
Temp0 = "NONE"; // I don't remember why I did this
|
|
|
|
p_ProgramCfg->Write("/NONE",Temp0); // I don't remember why I did this
|
|
|
|
p_ProgramCfg->Write("/Paths/NONE",Temp0); // I don't remember why I did this
|
|
|
|
p_ProgramCfg->Write("/MainFrame/NONE",Temp0); // I don't remember why I did this
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
p_ProgramCfg->Write("/Paths/Work",wxGetCwd()); // Get current Working Path
|
|
|
|
p_ProgramCfg->SetPath("/");
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// restore frame position and size, if empty start Values (1,1) and (750,600)
|
|
|
|
int x = p_ProgramCfg->Read("/MainFrame/x", 1), y = p_ProgramCfg->Read("/MainFrame/y", 1),
|
|
|
|
w = p_ProgramCfg->Read("/MainFrame/w", 750), h = p_ProgramCfg->Read("/MainFrame/h", 600);
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Create the main frame window
|
|
|
|
Temp0.Printf("%s - %s",GetAppName().c_str(),GetVendorName().c_str());
|
|
|
|
frame = new MainFrame((wxFrame *) NULL,(char *) Temp0.c_str(),wxPoint(x,y),wxSize(w,h));
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Set the Backgroundcolour (only need if your are NOT using wxSYS_COLOUR_BACKGROUND)
|
|
|
|
frame->SetBackgroundColour(wxSystemSettings::GetSystemColour(wxSYS_COLOUR_BACKGROUND));
|
|
|
|
// frame->SetBackgroundColour(wxColour(255, 255, 255));
|
|
|
|
// frame->SetBackgroundColour(* wxWHITE);
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Give it an icon
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// 12.02.2000 - Guillermo Rodriguez Garcia :
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// This is different for Win9x and WinNT; one of them takes the first ico
|
|
|
|
// in the .rc file, while the other takes the icon with the lowest name,
|
|
|
|
// so to be sure that it always work, put your icon the first *and* give
|
|
|
|
// it a name such a 'appicon' or something.
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// mj10777 : any special rule in Linux ?
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
frame->SetIcon(wxICON(aLogo)); // lowest name and first entry in RC File
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// Make a menubar
|
|
|
|
wxMenu *file_menu = new wxMenu;
|
|
|
|
wxMenu *help_menu = new wxMenu;
|
|
|
|
|
|
|
|
help_menu->Append(HELP, _("&Help"));
|
|
|
|
help_menu->AppendSeparator();
|
|
|
|
help_menu->Append(ABOUT, _("&About"));
|
|
|
|
file_menu->Append(QUIT, _("E&xit"));
|
|
|
|
|
|
|
|
wxMenuBar *menu_bar = new wxMenuBar;
|
|
|
|
menu_bar->Append(file_menu, _("&File"));
|
|
|
|
menu_bar->Append(help_menu, _("&Help"));
|
|
|
|
frame->SetMenuBar(menu_bar);
|
|
|
|
frame->CreateStatusBar(1);
|
|
|
|
Temp0.Printf(_("%s has started !"),p_ProgramCfg->GetAppName().c_str());
|
|
|
|
frame->SetStatusText(Temp0, 0);
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
int width, height;
|
|
|
|
frame->GetClientSize(&width, &height);
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
frame->p_Splitter = new DocSplitterWindow(frame,-1);
|
|
|
|
// p_Splitter->SetCursor(wxCursor(wxCURSOR_PENCIL));
|
|
|
|
frame->pDoc = new MainDoc();
|
|
|
|
frame->pDoc->p_MainFrame = frame;
|
|
|
|
frame->pDoc->p_Splitter = frame->p_Splitter;
|
|
|
|
frame->pDoc->p_Splitter->pDoc = frame->pDoc; // ControlBase: saving the Sash
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
//-- Problem : GetClientSize(Width,Hight) are not the same as the values given in the ---
|
|
|
|
//-- construction of the Frame. ---
|
|
|
|
//-- Solved : GetClientSize is called here and the difference is noted. When the ---
|
|
|
|
//-- Window is closed the diff. is added to the result of GetClientSize. ---
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
frame->GetClientSize(&frame->DiffW, &frame->DiffH); frame->DiffW-=w; frame->DiffH-=h;
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
//-- Help : Load the help.%langid/%GetAppName().hhp (help.std/dbbrowse.hhp) file ---
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
frame->p_Help = new wxHtmlHelpController(); // construct the Help System
|
|
|
|
frame->p_Help->UseConfig(p_ProgramCfg); // Don't rember what this was for
|
|
|
|
// You should recieve errors here for fr since there is no help.fr/ directory
|
|
|
|
if (!frame->p_Help->AddBook(s_LangHelp)) // Use the language set
|
|
|
|
{ // You should recieve errors here for fr since there is no help.fr/ but a fr/ directory
|
|
|
|
wxLogMessage("-E-> %s : AddBook error : s_LangHelp(%s)",GetAppName().c_str(),s_LangHelp.c_str());
|
|
|
|
}
|
|
|
|
frame->pDoc->p_Help = frame->p_Help; // Save the information to the document
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
frame->Show(TRUE); // Show the frame
|
|
|
|
SetTopWindow(frame); // At this point the frame can be seen
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
// If you need a "Splash Screen" because of a long OnNewDocument, do it here
|
|
|
|
if (!frame->pDoc->OnNewDocument())
|
|
|
|
frame->Close(TRUE);
|
|
|
|
// Kill a "Splash Screen" because OnNewDocument, if you have one
|
|
|
|
//---------------------------------------------------------------------------------------
|
|
|
|
p_ProgramCfg->Flush(TRUE); // save the configuration
|
|
|
|
return TRUE;
|
2000-02-12 09:11:17 -05:00
|
|
|
} // bool MainApp::OnInit(void)
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
// My frame constructor
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
|
|
|
MainFrame::MainFrame(wxFrame *frame, char *title, const wxPoint& pos, const wxSize& size):
|
2001-02-01 15:24:44 -05:00
|
|
|
wxFrame(frame, -1, title, pos, size)
|
2000-01-28 10:25:32 -05:00
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
p_Splitter = NULL; pDoc = NULL; p_Help = NULL; // Keep the Pointers clean !
|
|
|
|
//--- Everything else is done in MainApp::OnInit() --------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
}
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
MainFrame::~MainFrame(void)
|
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
// Close the help frame; this will cause the config data to get written.
|
|
|
|
if (p_Help->GetFrame()) // returns NULL if no help frame active
|
|
|
|
p_Help->GetFrame()->Close(TRUE);
|
|
|
|
delete p_Help; // Memory Leak
|
|
|
|
p_Help = NULL;
|
|
|
|
// save the control's values to the config
|
|
|
|
if (p_ProgramCfg == NULL)
|
|
|
|
return;
|
|
|
|
// save the frame position before it is destroyed
|
|
|
|
int x, y, w, h;
|
|
|
|
GetPosition(&x, &y);
|
|
|
|
GetClientSize(&w, &h); w -= DiffW; h -= DiffH;
|
|
|
|
p_ProgramCfg->Write("/MainFrame/x", (long) x);
|
|
|
|
p_ProgramCfg->Write("/MainFrame/y", (long) y);
|
|
|
|
p_ProgramCfg->Write("/MainFrame/w", (long) w);
|
|
|
|
p_ProgramCfg->Write("/MainFrame/h", (long) h);
|
|
|
|
p_ProgramCfg->Write("/MainFrame/Sash", (long) pDoc->Sash);
|
|
|
|
// clean up: Set() returns the active config object as Get() does, but unlike
|
|
|
|
// Get() it doesn't try to create one if there is none (definitely not what
|
|
|
|
// we want here!)
|
|
|
|
// delete wxConfigBase::Set((wxConfigBase *) NULL);
|
|
|
|
p_ProgramCfg->Flush(TRUE); // saves Objekt
|
|
|
|
if (pDoc) // If we have a Valid Document
|
|
|
|
delete pDoc; // Cleanup (MainDoc::~MainDoc)
|
2000-02-13 13:31:05 -05:00
|
|
|
} // MainFrame::~MainFrame(void)
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
void MainFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
|
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
Close(TRUE);
|
2000-01-28 10:25:32 -05:00
|
|
|
}
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
void MainFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
|
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
wxString Temp0, Temp1;
|
2001-02-12 14:23:44 -05:00
|
|
|
Temp0.Printf(_("%s\nMark Johnson\nBerlin, Germany\nwxWindows@mj10777.de\n (c) 2000"),p_ProgramCfg->GetAppName().c_str());
|
2001-02-01 15:24:44 -05:00
|
|
|
Temp1.Printf(_("About %s"),p_ProgramCfg->GetAppName().c_str());
|
|
|
|
wxMessageDialog dialog(this, Temp0,Temp1,wxOK|wxCANCEL);
|
|
|
|
dialog.ShowModal();
|
2000-01-28 10:25:32 -05:00
|
|
|
}
|
2001-02-01 15:24:44 -05:00
|
|
|
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|
2000-01-28 10:25:32 -05:00
|
|
|
void MainFrame::OnHelp(wxCommandEvent& WXUNUSED(event))
|
|
|
|
{
|
2001-02-01 15:24:44 -05:00
|
|
|
p_Help->Display("Main page");
|
2000-01-28 10:25:32 -05:00
|
|
|
}
|
2000-02-12 09:11:17 -05:00
|
|
|
//----------------------------------------------------------------------------------------
|