// we're using TCP/IP or real DDE.
#include "ddesetup.h"
-#if defined(__WXGTK__) || defined(__WXMOTIF__)
+#if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) || defined(__WXMAC__)
#include "mondrian.xpm"
#endif
IMPLEMENT_APP(MyApp)
BEGIN_EVENT_TABLE(MyFrame, wxFrame)
+ EVT_MENU (SERVER_EXIT, MyFrame::OnExit)
EVT_LISTBOX(SERVER_LISTBOX, MyFrame::OnListBoxClick)
END_EVENT_TABLE()
// Create the main frame window
(new MyFrame(NULL, "Server"))->Show(TRUE);
- // create the server object
- wxString server_name = "4242";
+ // service name (DDE classes) or port number (TCP/IP based classes)
+ wxString service = "4242";
+
if (argc > 1)
- server_name = argv[1];
+ service = argv[1];
// Create a new server
m_server = new MyServer;
- m_server->Create(server_name);
+ m_server->Create(service);
return TRUE;
}
// Define my frame constructor
MyFrame::MyFrame(wxFrame *frame, const wxString& title)
- : wxFrame(frame, -1, title)
+ : wxFrame(frame, -1, title, wxDefaultPosition, wxSize(350, 250))
{
- panel = NULL;
-
CreateStatusBar();
// Give it an icon
// Make a menubar
wxMenu *file_menu = new wxMenu;
- file_menu->Append(SERVER_QUIT, "&Exit");
+ file_menu->Append(SERVER_EXIT, "&Quit\tCtrl-Q");
wxMenuBar *menu_bar = new wxMenuBar;
// Associate the menu bar with the frame
SetMenuBar(menu_bar);
- // Make a panel
- panel = new wxPanel(this);
- wxListBox *list = new wxListBox(panel, SERVER_LISTBOX, wxPoint(5, 5));
+ // Make a listbox
+ wxListBox *list = new wxListBox(this, SERVER_LISTBOX, wxPoint(5, 5));
list->Append("Apple");
list->Append("Pear");
list->Append("Orange");
list->Append("Banana");
list->Append("Fruit");
-
- panel->Fit();
- Fit();
}
// Set the client process's listbox to this item
-void MyFrame::OnListBoxClick(wxCommandEvent& event)
+void MyFrame::OnListBoxClick(wxCommandEvent& WXUNUSED(event))
{
- wxListBox* listBox = (wxListBox*) panel->FindWindow(SERVER_LISTBOX);
+ wxListBox* listBox = (wxListBox*) FindWindow(SERVER_LISTBOX);
if (listBox)
{
wxString value = listBox->GetStringSelection();
}
}
+void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event))
+{
+ Close(TRUE);
+}
+
// ----------------------------------------------------------------------------
// IPCDialogBox
// ----------------------------------------------------------------------------