/* Listing #6 */



#include <intuition/intuition.h>



#include <proto/dos.h>

#include <proto/exec.h>

#include <proto/intuition.h>



#include <stdio.h>



struct IntuitionBase *IntuitionBase;



char *pubscrname=0;

struct Screen *pubscreen;

struct Window *okno;



int main(int argc, char *argv[])

{

	check_os(OS_20);

	if (!(IntuitionBase=(struct IntuitionBase*)OpenLibrary("intuition.library", 37)))

		return 20;

	if (argc>1)

		pubscrname=argv[1];

	if (pubscreen=LockPubScreen(pubscrname))

	{

		if (okno=OpenWindowTags(0,

		WA_Top, pubscreen->BarHeight+1,

		WA_Height, pubscreen->Height-pubscreen->BarHeight-1,

		WA_Title, "Okienko",

		WA_Flags, WFLG_DRAGBAR | WFLG_DEPTHGADGET | WFLG_ACTIVATE,

		WA_PubScreen, pubscreen,

		TAG_DONE))

		{

			Delay(200);

			CloseWindow(okno);

		}

		else

			printf("Nie mogė otworzyź okna!\n");

		UnlockPubScreen(0, pubscreen);

	}

	else

		printf("Ekran publiczny \"%s\" nie istnieje!\n", pubscrname);

	CloseLibrary((struct Library*)IntuitionBase);

	return 0;

}