fish/shuffle/shuffle.c

   1 /*
   2  *  Source machine generated by GadToolsBox V1.4
   3  *  which is (c) Copyright 1991,92 Jaba Development
   4  */
   5
   6 #include "shuffle.h"
   7
   8 struct Screen         *Scr = NULL;
   9 UBYTE                 *PubScreenName = "Workbench";
  10 APTR                   VisualInfo = NULL;
  11 struct Window         *Project0Wnd = NULL;
  12 struct Gadget         *Project0GList = NULL;
  13 struct IntuiMessage    Project0Msg;
  14 struct Menu           *Project0Menus = NULL;
  15 struct Gadget         *Project0Gadgets[5];
  16 UWORD                  Project0Left = 10;
  17 UWORD                  Project0Top = 15;
  18 UWORD                  Project0Width = 368;
  19 UWORD                  Project0Height = 63;
  20 UBYTE                 *Project0Wdt = (UBYTE *)"Shuffle V1.1";
  21 struct TextAttr       *Font, Attr;
  22 UWORD                  FontX, FontY;
  23 UWORD                  OffX, OffY;
  24
  25 UBYTE *tiles0Labels[NUMTILES + 1] = {
  26         (UBYTE *)"8 X 8",
  27         (UBYTE *)"16 X 8",
  28         (UBYTE *)"16 X 16",
  29         (UBYTE *)"4 X 4",
  30         (UBYTE *)"8 X 4",
  31         NULL };
  32
  33 UBYTE *shuffle0Labels[NUMSHUFFLES + 1] = {
  34         (UBYTE *)"100",
  35         (UBYTE *)"80",
  36         (UBYTE *)"60",
  37         (UBYTE *)"40",
  38         (UBYTE *)"20",
  39  (UBYTE *)"5",
  40  (UBYTE *)"3",
  41  NULL
  42  };
  43
  44 UBYTE *mode0Labels[] = {
  45         (UBYTE *)"Move Tiles",
  46         (UBYTE *)"Move Gap",
  47         NULL };
  48
  49
  50 struct NewMenu Project0NewMenu[] = {
  51         { NM_TITLE, (STRPTR)"Project", NULL, 0, 0L, NULL, },
  52         { NM_ITEM, (STRPTR)"Load...", (STRPTR)"L", 0, 0L, (APTR)Project0loadconfig, },
  53         { NM_ITEM, (STRPTR)"Save", (STRPTR)"C", 0, 0L, (APTR)Project0saveconfig, },
  54  { NM_ITEM, (STRPTR)"Save as...", (STRPTR)"S", 0, 0L, (APTR)Project0saveasconfig, },
  55         { NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL, },
  56         { NM_ITEM, (STRPTR)"Save as default", (STRPTR)"D", 0, 0L, (APTR)Project0savedefault, },
  57         { NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL, },
  58         { NM_ITEM, (STRPTR)"About...", (STRPTR)"A", 0, 0L, (APTR)Project0about, },
  59         { NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL, },
  60         { NM_ITEM, (STRPTR)"Quit", (STRPTR)"Q", 0, 0L, (APTR)Project0quit, },
  61  { NM_TITLE, (STRPTR)"Options", NULL, 0, 0L, NULL, },
  62  { NM_ITEM, (STRPTR)"Write Icons", (STRPTR)"I",CHECKIT | MENUTOGGLE | CHECKED , 0L, (APTR)Project0Icon, },
  63         { NM_END, NULL, NULL, 0, 0L, NULL }
  64 };
  65
  66 UWORD Project0GTypes[] = {
  67         BUTTON_KIND,
  68         CYCLE_KIND,
  69         CYCLE_KIND,
  70         CHECKBOX_KIND,
  71         CYCLE_KIND
  72 };
  73
  74 struct NewGadget Project0NGad[] = {
  75         { 14, 4, 346, 14, (UBYTE *)"_Start", NULL, GD_start, PLACETEXT_IN, NULL, (APTR)startClicked, },
  76         { 14, 24, 136, 15, (UBYTE *)"_Tiles", NULL, GD_tiles, PLACETEXT_RIGHT, NULL, (APTR)tilesClicked, },
  77         { 278, 24, 82, 15, (UBYTE *)"Shu_ffle", NULL, GD_shuffle, PLACETEXT_LEFT, NULL, (APTR)shuffleClicked, },
  78         { 278, 44, 26, 11, (UBYTE *)"_Numbers", NULL, GD_numbers, PLACETEXT_LEFT, NULL, (APTR)numbersClicked, },
  79         { 14, 41, 136, 15, (UBYTE *)"_Mode", NULL, GD_mode, PLACETEXT_RIGHT, NULL, (APTR)modeClicked },
  80 };
  81
  82 IPTR Project0GTags[] = {
  83         (GT_Underscore), '_', (TAG_DONE),
  84         (GTCY_Labels), (IPTR)&tiles0Labels[ 0 ], (GT_Underscore), '_', (TAG_DONE),
  85         (GTCY_Labels), (IPTR)&shuffle0Labels[ 0 ], (GT_Underscore), '_', (TAG_DONE),
  86         (GTCB_Checked), TRUE, (GT_Underscore), '_', (TAG_DONE),
  87         (GTCY_Labels), (IPTR)&mode0Labels[ 0 ], (GT_Underscore), '_', (TAG_DONE)
  88 };
  89
  90
  91 static UWORD ComputeX( UWORD value )
  92 {
  93         return(( UWORD )((( FontX * value ) + 4 ) / 8 ));
  94 }
  95
  96 static UWORD ComputeY( UWORD value )
  97 {
  98         return(( UWORD )((( FontY * value ) + 4 ) / 8 ));
  99 }
 100
 101 static void ComputeFont( UWORD width, UWORD height )
 102 {
 103         Font = &Attr;
 104         Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
 105         Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
 106         FontX = GfxBase->DefaultFont->tf_XSize;
 107
 108         OffX = Scr->WBorLeft;
 109         OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
 110
 111         if ( width && height ) {
 112                 if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
 113                         goto UseTopaz;
 114                 if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
 115                         goto UseTopaz;
 116         }
 117         return;
 118
 119 UseTopaz:
 120         Font->ta_Name = (STRPTR)"topaz.font";
 121         FontX = FontY = Font->ta_YSize = 8;
 122 }
 123
 124 int SetupScreen( void )
 125 {
 126         if ( ! ( Scr = LockPubScreen( PubScreenName )))
 127                 return( 1L );
 128
 129         ComputeFont( 0, 0 );
 130
 131         if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
 132                 return( 2L );
 133
 134         if ( ! ( info.dri = GetScreenDrawInfo( Scr )))
 135                 return( 3L );
 136
 137         return( 0L );
 138 }
 139
 140 void CloseDownScreen( void )
 141 {
 142      if(info.dri)
 143      {
 144       FreeScreenDrawInfo(Scr,info.dri);
 145       info.dri = NULL;
 146      }
 147         if ( VisualInfo ) {
 148                 FreeVisualInfo( VisualInfo );
 149                 VisualInfo = NULL;
 150         }
 151
 152         if ( Scr        ) {
 153                 UnlockPubScreen( NULL, Scr );
 154                 Scr = NULL;
 155         }
 156 }
 157
 158 int HandleProject0IDCMP( void )
 159 {
 160         struct IntuiMessage     *m;
 161  struct MenuItem                *n;
 162         int                     (*func)(void);
 163         int                     running = TRUE;
 164
 165         while(( m = GT_GetIMsg( Project0Wnd->UserPort ))) {
 166
 167                 CopyMem(( char * )m, ( char * )&Project0Msg, (long)sizeof( struct IntuiMessage ));
 168
 169                 GT_ReplyIMsg( m );
 170
 171                 switch ( Project0Msg.Class ) {
 172
 173                         case    IDCMP_REFRESHWINDOW:
 174                                 GT_BeginRefresh( Project0Wnd );
 175                                 GT_EndRefresh( Project0Wnd, TRUE );
 176                                 break;
 177
 178                         case    IDCMP_CLOSEWINDOW:
 179                                 running = Project0CloseWindow();
 180                                 break;
 181
 182    case IDCMP_VANILLAKEY:
 183                                 running = Project0VanillaKey();
 184                                 break;
 185
 186                         case    IDCMP_GADGETUP:
 187                                 func = ( void * )(( struct Gadget * )Project0Msg.IAddress )->UserData;
 188                                 running = func();
 189                                 break;
 190    case IDCMP_MENUPICK:
 191                                 while( Project0Msg.Code != MENUNULL )
 192     {
 193                                         n = ItemAddress( Project0Menus, Project0Msg.Code );
 194                                         func = (void *)(GTMENUITEM_USERDATA( n ));
 195                                         running = func();
 196                                         Project0Msg.Code = n->NextSelect;
 197     }
 198         break;
 199                 }
 200         }
 201         return( running );
 202 }
 203
 204 int OpenProject0Window( void )
 205 {
 206         struct NewGadget        ng;
 207         struct Gadget   *g;
 208         UWORD           lc, tc;
 209         UWORD           wleft = Project0Left, wtop = Project0Top, ww, wh;
 210
 211         ComputeFont( Project0Width, Project0Height );
 212
 213         ww = ComputeX( Project0Width );
 214         wh = ComputeY( Project0Height );
 215
 216         if (( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width ) wleft = Scr->Width - ww;
 217         if (( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height ) wtop = Scr->Height - wh;
 218
 219         if ( ! ( g = CreateContext( &Project0GList )))
 220                 return( 1L );
 221
 222         for( lc = 0, tc = 0; lc < Project0_CNT; lc++ ) {
 223
 224                 CopyMem((char * )&Project0NGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
 225
 226                 ng.ng_VisualInfo = VisualInfo;
 227                 ng.ng_TextAttr   = Font;
 228                 ng.ng_LeftEdge   = OffX + ComputeX( ng.ng_LeftEdge );
 229                 ng.ng_TopEdge    = OffY + ComputeY( ng.ng_TopEdge );
 230                 ng.ng_Width      = ComputeX( ng.ng_Width );
 231                 ng.ng_Height     = ComputeY( ng.ng_Height);
 232
 233                 Project0Gadgets[ lc ] = g = CreateGadgetA((ULONG)Project0GTypes[ lc ], g, &ng, ( struct TagItem * )&Project0GTags[ tc ] );
 234
 235                 while( Project0GTags[ tc ] ) tc += 2;
 236                 tc++;
 237
 238                 if ( NOT g )
 239                         return( 2L );
 240         }
 241
 242         if ( ! ( Project0Menus = CreateMenus( Project0NewMenu, GTMN_FrontPen, 0L, TAG_DONE )))
 243                 return( 3L );
 244
 245         LayoutMenus( Project0Menus, VisualInfo, TAG_DONE );
 246
 247         if ( ! ( Project0Wnd = OpenWindowTags( NULL,
 248                                 WA_Left,        wleft,
 249                                 WA_Top,         wtop,
 250                                 WA_Width,       ww + OffX + Scr->WBorRight,
 251                                 WA_Height,      wh + OffY + Scr->WBorBottom,
 252                                 WA_IDCMP,       IDCMP_MENUPICK|IDCMP_MOUSEBUTTONS | IDCMP_VANILLAKEY|BUTTONIDCMP|CYCLEIDCMP|IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW,
 253                                 WA_Flags,       WFLG_ACTIVATE|WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH,
 254                                 WA_Gadgets,     Project0GList,
 255                                 WA_Title,       Project0Wdt,
 256                                 WA_ScreenTitle, "Shuffle V1.1 Copyright (©)1993 by CEKASOFT All Rights Reserved",
 257                                 WA_AutoAdjust,  TRUE,
 258                                 TAG_DONE )))
 259         return( 4L );
 260
 261  SetMenuStrip( Project0Wnd, Project0Menus );
 262         GT_RefreshWindow( Project0Wnd, NULL );
 263
 264         return( 0L );
 265 }
 266
 267 void CloseProject0Window( void )
 268 {
 269         if ( Project0Wnd        ) {
 270                 CloseWindow( Project0Wnd );
 271                 Project0Wnd = NULL;
 272         }
 273
 274         if ( Project0GList      ) {
 275                 FreeGadgets( Project0GList );
 276                 Project0GList = NULL;
 277         }
 278 }