Amiga Developer CD 2.1/Amiga Developer CD v2.1.iso/Reference/DevCon/Milan_1991/Devcon91.1/Libraries/Intuition/other_examples/PubSc/pubsc.c

C/C++ Source or Header | 1992-09-01 | 4.1 KB | 209 lines

/* pubsc.c -- public screen "meat" routines :ts=4    */

/*
Copyright (c) 1989 Commodore-Amiga, Inc.

Executables based on this information may be used in software
for Commodore Amiga computers. All other rights reserved.
This information is provided "as is"; no warranties are made.
All use is at your own risk, and no liability or responsibility
is assumed.
*/

#include "sysall.h"
#include "pubsc.h"

#define D(x)    ;

/* globals for messages to user    */
extern UBYTE            currname[];
extern UBYTE            defname[];

extern struct Screen            *lockedscreen;
extern struct Window            *window;

struct Screen    *LockPubScreen();

/*
 * process command messages
 */
doCommand( id )
int        id;        /* already has high byte masked off    */
{
    struct Screen    *currscreen;
    ULONG            openPubScreen();
    ULONG            oserror;

    switch ( id )
    {
    case    c_close:
        currscreen = window->WScreen;
        if ( ( currscreen->Flags & SCREENTYPE ) == WBENCHSCREEN )
        {
            psstatus( "Can't close Workbench screen.");
        }
        else
        {
            downWindow();    /* get off current screen    */
            if ( ! CloseScreen( currscreen ) )
            {
                lockPubScreen();
                upWindow();        /* come back    */
                psstatus( "Can't close screen." );
            }
            else
            {
                currname[0] = '\0';
                lockPubScreen();
                upWindow();
            }
        }
        break;

    case    c_default:
        SetDefaultPubScreen( currname );
        strcpy( defname, currname );
        updateMessages();
        psstatus( "New default pubscreen set." );
        break;

    case    c_open:
        if ( oserror = openPubScreen() )
        {
            D( printf("oPS failed, error %lx\n", oserror ) );
            if ( oserror == OSERR_PUBNOTUNIQUE )
                psstatus( "Public screen already open." );
            else
                psstatus( "Public screen failed to open." );
        }
        else    /* successful open    */
        {
            /* open on the new screen    */
            downWindow();
            /* we open our screen locked    */
            upWindow();
        }
        break;
    case    c_jump:
        lockNextScreen( window->WScreen );
        downWindow();
        upWindow();
        break;

    default:
        psstatus( "Unknown doCommand" );
    }
}

/*
 * try to get ones hands on the next public screen
 * Only call this if window is open.
 */
lockNextScreen( screen )
struct Screen    *screen;
{
    D( printf("lNextScreen, screen %lx\n", screen ) );

    /* set up new currname    */
    if ( ! NextPubScreen( screen, currname ) )
    {
        D( printf("NextPubScreen failed.\n") );
        currname[0] = '\0';
    }
    D( printf("new currname: %s\n", currname ) );

    lockPubScreen();
}

/*
 * locks currname, else WB
 */
lockPubScreen()
{
    UBYTE    *psname;

    D( if ( lockedscreen ) printf("!!!locking second! ! !\n") );

    psname = currname[0]? currname: NULL;
    D( printf( "lPS: lock with pointer %lx\n", psname ) );

    lockedscreen = LockPubScreen( currname[0]? currname: NULL );
    D( printf("lPS: LockPubScreen returned %lx\n", lockedscreen ));
}

unlockScreen()
{
    if ( lockedscreen ) UnlockPubScreen( currname );
    lockedscreen = NULL;
}


#define PSNAME    "Phred"

struct ColorSpec colorspecs[] = {
    {0, 11, 9, 7},
    {1, 3,  2,  2 },
    {2, 15, 14, 13},
    {3, 12, 2, 0 },
    {-1,},
};

ULONG                oserror;

/* I accept the default pens, but have to
 * pass something to get the new look.
 */
UWORD                mypens[] = {
    0, 1, ~0                /* just detail and block    */
};

struct TagItem    nsext[] = {
    { SA_PubName, (ULONG) PSNAME },
    { SA_ErrorCode, (ULONG) &oserror },
    { SA_Colors, (ULONG) colorspecs },
    { SA_Pens, (ULONG) mypens },
    { TAG_DONE,}
};


/*
 * returns error from OpenScreen
 * uses hardcoded name
 * ZZZ: if FALLBACK: should reset currname.
 */
ULONG
openPubScreen()
{
    struct ExtNewScreen    ns;
    struct Screen        *pubscreen;
    struct Screen        *OpenScreenTagList();

    ns.ViewModes =    HIRES;
    ns.LeftEdge    =    0;
    ns.TopEdge    =    0;
    ns.Width    =    STDSCREENWIDTH;
    ns.Height    =    STDSCREENHEIGHT;
    ns.Depth    =    2;
    ns.DefaultTitle    = NULL;                /* use pubname    */

    ns.DetailPen =    0;
    ns.BlockPen    =    1;
    ns.Gadgets    =    NULL;
    ns.CustomBitMap    =    NULL;
    ns.Font        =    NULL;
    ns.Type        =    CUSTOMSCREEN;

    if ( pubscreen = OpenScreenTagList( &ns, nsext ) )
    {
        /* set up new currname, assuming we want to open
         * our window on this new screen
         */
        strcpy( currname, PSNAME );
        PubScreenStatus( pubscreen, 0L );    /* make it public */
        D( if (lockedscreen) printf("!!!!!! locking aa second!!\n") );
        lockPubScreen();
        return ( 0 );
    }
    else return ( oserror );
}