/* SetWBTitle.c Testprogram to change the WB Screen Title */
 
//extern struct IntuitionBase *IntuitionBase;
 
#include <proto/dos.h>
#include <proto/intuition.h>
//#include <intuition/intuition.h>
//#include <intuition/intuitionbase.h>
#include <proto/exec.h>
#include <stdio.h>
 
#define MYNAME "Opis Screen "
 
int main(void)
{
   UBYTE *OldTitle, *DefTitle;
   UBYTE NewTitle[100];
   UBYTE lock;
   long  i=0;
   struct Screen *screen;
   struct Window *window, *nextwindow;
 
   sprintf(NewTitle, MYNAME "%ld",i);
 
   lock = LockIBase(0);
   OldTitle = IntuitionBase->ActiveScreen->Title;
   DefTitle = IntuitionBase->ActiveScreen->DefaultTitle;
   screen = IntuitionBase->FirstScreen;
 
   /* go through all Windows and set the New Window Title when it's = default (WB) */
   if ((window = screen->FirstWindow) != NULL)
   {
      while (window)
      {
         nextwindow = window->NextWindow;
         if ( window->ScreenTitle == ()OldTitle )
         {
            window->ScreenTitle = NewTitle;
         }
         window = nextwindow;
      }
   }
   /* change the Screen and Default Title (neeed for new Windows) */
   screen->Title=NewTitle;
   screen->DefaultTitle=NewTitle;
   UnlockIBase(lock);
   for(i=1; i<11; i++)
   {
      Delay(50);
 
      sprintf(NewTitle, MYNAME "%ld",i);
      if (screen == IntuitionBase->ActiveScreen && IntuitionBase->ActiveWindow->ScreenTitle == NewTitle)
      {
         SetWindowTitles(IntuitionBase->ActiveWindow,(UBYTE *) -1,NewTitle);
      }
   }
   if (screen == IntuitionBase->ActiveScreen && IntuitionBase->ActiveWindow->ScreenTitle == NewTitle )
   {
      SetWindowTitles(IntuitionBase->ActiveWindow,(UBYTE *) -1,OldTitle);
   }
   lock = LockIBase(0);
   /* go through all Windows and set the OldTitle but only when it's = NewTitle */
   if ((window = screen->FirstWindow) != NULL)
   {
      while (window)
      {
         nextwindow = window->NextWindow;
         if (window->ScreenTitle == NewTitle)
         {
            window->ScreenTitle = OldTitle;
         }
         window = nextwindow;
      }
   }
   /* change back the Screen and Default Title to the old ones */
   screen->Title=OldTitle;
   screen->DefaultTitle=DefTitle;
   UnlockIBase(lock);
return 0;
}