From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

VKON / TVision-0.21 / tvision.git / examples / tvforms / forms.h 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

              
/*-------------------------------------------------------*/
/*                                                       */
/*   Turbo Vision Forms Demo                             */
/*                                                       */
/*   Forms.h: Header file for Forms.cpp                  */
/*            (Support header file for TVFORMS Demo)     */
/*                                                       */
/*-------------------------------------------------------*/
/*
 *      Turbo Vision - Version 2.0
 *
 *      Copyright (c) 1994 by Borland International
 *      All Rights Reserved.
 *
 */
#if !defined( __FORMS_H )
#define __FORMS_H
#define Uses_TStreamable
#define Uses_TEvent
#define Uses_TRect
#define Uses_TDialog
#define Uses_TView
#include <tvision/tv.h>
class TForm : public TDialog
{
public:
    TForm( StreamableInit ) : TWindowInit(&TForm::initFrame), TDialog (streamableInit) {};
    TForm( const TRect&, const char* );
    virtual Boolean changed();
    virtual void handleEvent( TEvent& );
    virtual Boolean valid( ushort );
    TView  *listDialog;
    void   *prevData;
    ushort keyWidth;
private:
    virtual const char *streamableName() const
        { return name; }
protected:
    virtual void write( opstream& );
    virtual void *read( ipstream& );
public:
    static const char * const name;
    static TStreamable *build();
};
inline ipstream& operator >> ( ipstream& is, TForm& cl )
    { return is >> (TStreamable&)cl; }
inline ipstream& operator >> ( ipstream& is, TForm*& cl )
    { return is >> (void *&)cl; }
inline opstream& operator << ( opstream& os, TForm& cl )
    { return os << (TStreamable&)cl; }
inline opstream& operator << ( opstream& os, TForm* cl )
    { return os << (TStreamable *)cl; }
#endif  // __FORMS_H