Help with InputDialog

I had this working and yes didnt make backups :( now for the life of me cant see what is wrong. If anyone can help I would be very gratefull. Code is below thanx.

Paul

#include <owl\applicat.h>
#include <owl\framewin.h>
#include <owl\inputdia.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include "inputdia.h"

const MaxBuffer = 81;

class TWinApp : public TApplication
{
public:
TWinApp() : TApplication() {}

protected:
virtual void InitMainWindow();
};

class TMainWindow : public TWindow
{
public:
TMainWindow() : TWindow(0, 0, 0) {}

protected:
void CMInput();
virtual BOOL CanClose();

DECLARE_RESPONSE_TABLE(TMainWindow);
};

DEFINE_RESPONSE_TABLE1(TMainWindow, TWindow)
EV_COMMAND(CM_INPUT, CMInput),
END_RESPONSE_TABLE;

void TMainWindow::CMInput()
{
char s[MaxBuffer];
strcpy(s, "User Name");
TInputDialog* pDlg;
pDlg = new TInputDialog(this, "Enter User Name", "HI", s,sizeof(s));
if (pDlg->Execute() == IDOK) {
MessageBox(s, "Result", MB_OK);
}
}

BOOL TMainWindow::CanClose()
{
return MessageBox("Want to close this Application", "Query",
MB_YESNO | MB_ICONQUESTION) == IDYES;
}

void TWinApp::InitMainWindow()
{
MainWindow = new TFrameWindow(0, "User Input", new TMainWindow);
MainWindow->AssignMenu(IDM_MAINMENU);
}

int OwlMain(int /* argc */, char** /*argv[] */)
{
TWinApp app;
return app.Run();
}

Resources
#include <windows.h>
#include <owl\window.rh>
#include <owl\inputdia.rh>
#include <owl\inputdia.rc>
#include "inputdia.h"


IDM_MAINMENU MENU
{
POPUP "File"
{
MENUITEM "Input", CM_INPUT
MENUITEM "Exit", CM_EXIT
}

}