home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
tv20os2.zip
/
test
/
hello.cpp
next >
Wrap
Text File
|
1999-06-11
|
3KB
|
111 lines
/*---------------------------------------------------------*/
/* */
/* Turbo Vision 1.0 */
/* Copyright (c) 1991 by Borland International */
/* */
/* Turbo Vision Hello World Demo Source File */
/*---------------------------------------------------------*/
#define Uses_TKeys
#define Uses_TApplication
#define Uses_TEvent
#define Uses_TRect
#define Uses_TDialog
#define Uses_TStaticText
#define Uses_TButton
#define Uses_TMenuBar
#define Uses_TSubMenu
#define Uses_TMenuItem
#define Uses_TStatusLine
#define Uses_TStatusItem
#define Uses_TStatusDef
#define Uses_TDeskTop
#include <tvision/tv.h>
const GreetThemCmd = 100;
class THelloApp : public TApplication
{
public:
THelloApp();
virtual void handleEvent( TEvent& event );
static TMenuBar *initMenuBar( TRect );
static TStatusLine *initStatusLine( TRect );
protected:
void greetingBox();
};
THelloApp::THelloApp() :
TProgInit( &THelloApp::initStatusLine,
&THelloApp::initMenuBar,
&THelloApp::initDeskTop
)
{
}
void THelloApp::greetingBox()
{
TDialog *d = new TDialog(TRect( 25, 5, 55, 16 ), "Hello World!" );
d->insert( new TStaticText( TRect( 3, 5, 15, 6 ), "Who are you?" ) );
d->insert( new TButton( TRect( 16, 2, 28, 4 ), "Terrific", cmCancel, bfNormal ) );
d->insert( new TButton( TRect( 16, 4, 28, 6 ), "Ok", cmCancel, bfNormal ) );
d->insert( new TButton( TRect( 16, 6, 28, 8 ), "Lousy", cmCancel, bfNormal ) );
d->insert( new TButton( TRect( 16, 8, 28, 10 ), "Cancel", cmCancel, bfNormal ) );
deskTop->execView( d );
destroy(d);
}
void THelloApp::handleEvent( TEvent& event )
{
TApplication::handleEvent( event );
if( event.what == evCommand )
{
switch( event.message.command )
{
case GreetThemCmd:
greetingBox();
clearEvent( event );
break;
default:
break;
}
}
}
TMenuBar *THelloApp::initMenuBar( TRect r )
{
r.b.y = r.a.y+1;
return new TMenuBar( r,
*new TSubMenu( "~H~ello", kbAltH ) +
*new TMenuItem( "~G~reeting...", GreetThemCmd, kbAltG ) +
newLine() +
*new TMenuItem( "E~x~it", cmQuit, cmQuit, hcNoContext, "Alt-X" )
);
}
TStatusLine *THelloApp::initStatusLine( TRect r )
{
r.a.y = r.b.y-1;
return new TStatusLine( r,
*new TStatusDef( 0, 0xFFFF ) +
*new TStatusItem( "~Alt-X~ Exit", kbAltX, cmQuit ) +
*new TStatusItem( 0, kbF10, cmMenu )
);
}
int main()
{
cerr << " " << endl;
THelloApp helloWorld;
helloWorld.run();
return 0;
}