Mercurial > vba-clojure

     1 // AboutDialog.cpp : implementation file

     2 //

     3 

     4 #include "stdafx.h"

     5 #include "resource.h"

     6 #include "AboutDialog.h"

     7 

     8 #include "../version.h"

     9 

    10 /////////////////////////////////////////////////////////////////////////////

    11 // AboutDialog dialog

    12 

    13 AboutDialog::AboutDialog(CWnd*pParent /*=NULL*/)

    14 	: CDialog(AboutDialog::IDD, pParent)

    15 {

    16 	//{{AFX_DATA_INIT(AboutDialog)

    17 	m_version = _T(VBA_VERSION_STRING);

    18 	//}}AFX_DATA_INIT

    19 }

    20 

    21 void AboutDialog::DoDataExchange(CDataExchange*pDX)

    22 {

    23 	CDialog::DoDataExchange(pDX);

    24 	//{{AFX_DATA_MAP(AboutDialog)

    25 	DDX_Text(pDX, IDC_VERSION, m_version);

    26 	DDX_Control(pDX, IDC_URL, m_link);

    27 	//}}AFX_DATA_MAP

    28 }

    29 

    30 BEGIN_MESSAGE_MAP(AboutDialog, CDialog)

    31 //{{AFX_MSG_MAP(AboutDialog)

    32 //}}AFX_MSG_MAP

    33 END_MESSAGE_MAP()

    34 

    35 /////////////////////////////////////////////////////////////////////////////

    36 // AboutDialog message handlers

    37 

    38 BOOL AboutDialog::OnInitDialog()

    39 {

    40 	CDialog::OnInitDialog();

    41 

    42 	CWnd *p = GetDlgItem(IDC_TRANSLATOR_URL);

    43 	if (p)

    44 	{

    45 		m_translator.SubclassDlgItem(IDC_TRANSLATOR_URL, this);

    46 	}

    47 

    48 	m_link.SetWindowText(VBA_RR_SITE);

    49 

    50 	return TRUE; // return TRUE unless you set the focus to a control

    51 	// EXCEPTION: OCX Property Pages should return FALSE

    52 }

    53 

    54 void AboutDialog::OnOK()

    55 {

    56 	// TODO: Add extra validation here

    57 

    58 	CDialog::OnOK();

    59 }

    60
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 03 Mar 2012 10:31:27 -0600
parents
children