Example 10.1. Define and Implement the TitleWindow ( SFRTitleWindow )

// coordinates: (20, 20), width: 200, height: 250, title: "my window"
SFMTYPEDEFCLASS(MyWindow)
class MyWindow : public SFRTitleWindow {
    SFMSEALCOPY(MyWindow)
public:
    MyWindow(Void);
    virtual ~MyWindow(Void);
};

// Constructor
MyWindow::MyWindow(Void) : SFRTitleWindow(SFRApplication::GetInstance(),
    SFXRectangle(20, 20, 200, 250), "my window")
{
    return;
}

MyWindowPtr window;

// create TitleWindow
window = new MyWindow();

Example 10.2. Create the TitleWindow ( SFRTitleWindow )

MyWindowPtr window;

window = new MyWindow();

Example 10.3. Create the Button ( SFRButtonControl )

SFRButtonControlPtr button;   // pointer to button control
SFXSize devsize;              // screen size
SFXAnsiString str = "Button"; // name for button

SInt16 fontWidth = SFXGraphics::MeasureText(AEE_FONT_NORMAL, str);  // font width
SInt16 fontHeight = SFXGraphics::GetFontHeight(AEE_FONT_NORMAL);    // font height

devsize = SFXGraphics::GetDeviceSize();   // screen size of device
SInt16 devWidth = devsize.GetWidth();     // device width
SInt16 devHeight = devsize.GetHeight();   // device height

// create button
// coordinates: ((Device screen width - font width * 2 ) / 2, (Device screen height - font height * 2 ) / 2 )
// width: font width * 2
// height: font height * 2
// title : "Button"
button = ::new SFRButtonControl(this, 
                                SFXRectangle((devWidth - fontWidth * 2) / 2, 
                                (devHeight- fontHeight * 2) / 2, 
                                fontWidth * 2 , 
                                fontHeight * 2), 
                                str);

Example 10.4. Destroy the Responder

responder->Invoke(SFXEvent(SREVT_RESPONDER_TERMINATE, SRP16_TERMINATE_INVOKE, true));

Example 10.5. Creating the Responder ( SFRPlainWindow )

SFRWindowPtr window;

// create PlainWindow using new operator
if ((window = new SFRPlainWindow(this, SFXRectangle(0, 0, 100, 100))) != null) {

    static_throw(*window);

    if (!static_try()) {   // if error has occured when creating window
         ::delete window;    
         // use delete operator to destroy PlainWindow 
    }

} else {
    static_throw(SFERR_NO_MEMORY);
}

Example 10.6. Define the Key Handler

// Key handler (executed when a key is pressed on topmost window)
// 1st argument : class it belongs to, 2nd argument : handler name, 3rd argument : event value
HANDLER_IMPLEMENT_BOOLEVENT(MyWindow, OnKey, event)
{
    // switch according to type of pressed key
    switch (event.GetP16()) {
        case AVK_CLR: // in case of clear key
            // close window
            return Invoke(SFXEvent(SREVT_RESPONDER_TERMINATE,
                                   SRP16_TERMINATE_INVOKE, true));

        case AVK_1:   // in case of 1 key

            ...

            return true;  // pressed key was handled, then return true
    }
    return false;         // pushed key was not handled, then return false 
}

Example 10.7. Declare the Key Handler

// Define MyWindow class
SFMTYPEDEFCLASS(MyWindow)
class MyWindow : public SFRTitleWindow {
    SFMSEALCOPY(MyWindow)
public:
    MyWindow(Void) static_throws;
    virtual ~MyWindow(Void) { return; }
    
    // declare event handler
    // argument is handler name
    HANDLER_DECLARE_BOOLEVENT(OnKey)
};

Example 10.8. Register the Key Handler

// Constructor
MyWindow::MyWindow(Void) : SFRTitleWindow(SFRApplication::GetInstance(),
    SFXRectangle(20, 20, 200, 250), "my window") 
{
    // register key handler
    RegisterHandler(SFEVT_KEY, HANDLER_AFTER, HANDLER_FUNCTION(OnKey));
    return;
}