ウインドウシステム
        サンプルプログラム              version 2.23

        Copyright       T.Kobayashi
                        1991.5.3



  ［例］一般的なアプリケーションプログラム

    #include "wlib.h"
    ...
    int     EventExec();

    void    WindowMain( argc, argv )
    int     argc ;
    char    *argv[] ;
    {
        WindowID    wp ;

        wp = WindowTitleOpen( ... , EventExec );
        ...
        ...
    }
    int     EventExec( wp, info )
    WindowID    wp ;
    EventInfo   *info ;
    {
        DrawBuf buf[10] ;

        switch( info->option )
        {
            case EventOpen :
                WindowRedraw( wp );
                return( TRUE );
            case EventRedraw :
                ...
                return( TRUE );
            case EventClose :
                WindowClose( wp );
                WindowConnectionClose();
                return( TRUE );
            case EventMouseSwitch
                ...
                return( TRUE );
        }
        return( FALSE );
    }



  ［例］タイマーイベントを使用するプログラムです。

    #include "wlib.h"
    ...

    int     WindowHeapSize = 10 * 1024 ;    /*  ヒープが必要な時のみ  */

    int     EventExec();

    void    WindowMain()
    {
        WindowID    wp ;

        wp = WindowTitleOpen( ... , EventExec );
        ...
        ...
    }
    int     EventExec( wp, info )
    WindowID    wp ;
    EventInfo   *info ;
    {
        DrawBuf buf[10] ;

        switch( info->option )
        {
            case EventOpen :
                WindowSetEventAttr( wp, EventAttrDefault|EventIntevalON );
                WindowRedraw( wp );
                return( TRUE );
            case EventRedraw :
                ...
                return( TRUE );
            case EventClose :
                WindowClose( wp );
                WindowConnectionClose();
                return( TRUE );
            case EventInterval :
                ...
                WindowDraw( ... );
                return( TRUE );
        }
        return( FALSE );
    }