workbench/prefs/reqtools/gui.c

   1 #include <exec/types.h>
   2 #include <intuition/intuition.h>
   3 #include <intuition/classes.h>
   4 #include <intuition/classusr.h>
   5 #include <intuition/imageclass.h>
   6 #include <intuition/gadgetclass.h>
   7 #include <libraries/gadtools.h>
   8 #include <libraries/reqtools.h>
   9 #include <graphics/displayinfo.h>
  10 #include <graphics/gfxbase.h>
  11 #include <proto/exec.h>
  12 #include <proto/intuition.h>
  13 #include <proto/gadtools.h>
  14 #include <proto/graphics.h>
  15 #include <string.h>
  16 #include <math.h>
  17
  18 #ifdef __AROS__
  19 #include <proto/alib.h>
  20 #include <aros/asmcall.h>
  21
  22 extern struct ReqToolsBase *ReqToolsBase;
  23 #endif
  24
  25 #include "misc.h"
  26 #include "gui.h"
  27
  28 #include <proto/reqtools.h>
  29
  30
  31 #ifndef max
  32 #define max(a,b) ( ( a ) > ( b ) ? ( a ) : ( b ) )
  33 #endif
  34
  35 // static struct GfxBase *GfxBase;
  36 static UWORD            *Pens;
  37
  38
  39 struct Gadget *glist, *xoffgad, *yoffgad, *mixdirsgad, *dirsfirstgad, *mmbgad;
  40 struct Gadget *sizegad, *immsortgad, *popgad, *mingad, *maxgad, *defposgad;
  41 struct Gadget *testgad, *noledgad, *deffontgad, *fkeysgad, *dowheelgad;
  42
  43
  44 UBYTE *DefaultPosLabels[] =
  45 {
  46     MSG_POINTER, MSG_CENTERWIN, MSG_CENTERSCR, MSG_TOPLEFTWIN, MSG_TOPLEFTSCR,
  47     NULL
  48 };
  49
  50 UBYTE *TypeLabels[] =
  51 {
  52     MSG_FILEREQ, MSG_FONTREQ, MSG_PALETTEREQ, MSG_SCRMODEREQ, MSG_VOLUMEREQ, MSG_OTHERREQ,
  53     NULL
  54 };
  55
  56 STRPTR WheelLabels[] =
  57 {
  58     MSG_WHEEL_NONE, MSG_WHEEL_SIMPLE, MSG_WHEEL_FANCY,
  59     NULL
  60 };
  61
  62
  63 struct TextAttr topaz8 = { (STRPTR)"topaz.font", 8, 0x00, 0x01 };
  64
  65 struct IntuiText GeneralText, FileReqText, DefSizeText, NrOfEntriesText;
  66
  67 LONG BevelLeft, BevelTop, BevelHeight, BevelWidth;
  68
  69 #ifdef __AROS__
  70 AROS_UFH3(void, IntuiMsgFunc,
  71     AROS_UFHA(struct Hook *, hook, A0),
  72     AROS_UFHA(APTR, req, A2),
  73     AROS_UFHA(struct IntuiMessage *, imsg, A1))
  74 {
  75     AROS_USERFUNC_INIT
  76 #else
  77 void __asm __saveds IntuiMsgFunc( register __a0 struct Hook *hook,
  78                                   register __a2 APTR req,
  79                                   register __a1 struct IntuiMessage *imsg)
  80 {
  81 #endif
  82     if (imsg->Class == IDCMP_REFRESHWINDOW)
  83     {
  84         GT_BeginRefresh( WindowPtr );
  85         RenderPrefsWindow();
  86         GT_EndRefresh ( WindowPtr, TRUE);
  87     }
  88 #ifdef __AROS__
  89     AROS_USERFUNC_EXIT
  90 #endif
  91 }
  92
  93
  94 VOID
  95 GadgetOff( struct Gadget *gad )
  96 {
  97     if (gad->Flags & GFLG_DISABLED) return;
  98     GT_SetGadgetAttrs (gad, WindowPtr, NULL, GA_Disabled, TRUE, TAG_END);
  99 }
 100
 101 VOID
 102 GadgetOn( struct Gadget *gad )
 103 {
 104     if (!(gad->Flags & GFLG_DISABLED)) return;
 105     GT_SetGadgetAttrs (gad, WindowPtr, NULL, GA_Disabled, FALSE, TAG_END);
 106 }
 107
 108
 109 VOID
 110 SetCheckState( struct Gadget *gad, BOOL state )
 111 {
 112     GT_SetGadgetAttrs( gad, WindowPtr, NULL, GTCB_Checked, state,
 113                                              TAG_END );
 114 }
 115
 116
 117 VOID
 118 SetIntGad( struct Gadget *gad, LONG val )
 119 {
 120     GT_SetGadgetAttrs( gad, WindowPtr, NULL, GA_Disabled, FALSE ,
 121                                              GTIN_Number, val   ,
 122                                              TAG_END );
 123 }
 124
 125
 126 LONG
 127 IntGadValue( struct Gadget *gad )
 128 {
 129     return( ( ( struct StringInfo * )( gad->SpecialInfo ) )->LongInt );
 130 }
 131
 132
 133 VOID
 134 RenderPrefsWindow( VOID )
 135 {
 136     struct RastPort     *rp = WindowPtr->RPort;
 137
 138     PrintIText( rp, &GeneralText,     0, 0 );
 139     PrintIText( rp, &FileReqText,     0, 0 );
 140     PrintIText( rp, &DefSizeText,     0, 0 );
 141     PrintIText( rp, &NrOfEntriesText, 0, 0 );
 142
 143     DrawBevelBox( rp, BevelLeft, BevelTop, BevelWidth, BevelHeight, GT_VisualInfo, (IPTR) VisualInfo    ,
 144                                                                     GTBB_Recessed, TRUE         ,
 145                                                                     TAG_DONE );
 146 }
 147
 148
 149 static struct NewGadget NewGadget;
 150 static struct IntuiText IntuiText;
 151
 152
 153 STRPTR Column1Text[] =
 154 {
 155     MSG_POPSCREEN, MSG_DEFAULTFONT, MSG_FKEYS,
 156     MSG_IMMEDIATESORT, MSG_DRAWERSFIRST, MSG_DRAWERSMIXED, MSG_LED, MSG_MMB_PARENT,
 157     NULL
 158 };
 159
 160 STRPTR SaveUseCancel[] =
 161 {
 162     MSG_SAVE, MSG_USE, MSG_CANCEL,
 163     NULL
 164 };
 165
 166 STRPTR PositionOffset[] =
 167 {
 168     MSG_POSITION, MSG_OFFSET,
 169     NULL
 170 };
 171
 172
 173 static VOID
 174 InitNewGadget( WORD x, LONG y, WORD w, WORD h, STRPTR str, UWORD id)
 175 {
 176     NewGadget.ng_LeftEdge   = x;
 177     NewGadget.ng_TopEdge    = y;
 178     NewGadget.ng_Width      = w;
 179     NewGadget.ng_Height     = h;
 180     NewGadget.ng_GadgetText = str;
 181     NewGadget.ng_GadgetID   = id;
 182 }
 183
 184
 185 LONG
 186 ArrayWidth_Localize( STRPTR *array )
 187 {
 188     LONG width, len;
 189
 190     width = 0;
 191
 192     while( *array )
 193     {
 194         IntuiText.IText = GetString( *array );
 195         len = IntuiTextLength( &IntuiText );
 196
 197         if( len > width )
 198         {
 199             width = len;
 200         }
 201
 202         ++array;
 203     }
 204
 205     return( width );
 206 }
 207
 208
 209 LONG
 210 ArrayWidth( STRPTR *array)
 211 {
 212     LONG width, len;
 213
 214     width = 0;
 215
 216     while( *array )
 217     {
 218         IntuiText.IText = *array;
 219         len = IntuiTextLength( &IntuiText );
 220
 221         if( len > width )
 222         {
 223             width = len;
 224         }
 225
 226         ++array;
 227     }
 228
 229     return( width );
 230 }
 231
 232
 233 static LONG
 234 ObjectWidth( struct NewGadget *ng, LONG normalw, LONG normalh )
 235 {
 236     if( ( GadToolsBase->lib_Version >= 39 ) && ( ng->ng_TextAttr->ta_YSize > normalh ) )
 237     {
 238         return( normalw + ( ng->ng_TextAttr->ta_YSize - normalh ) * 2 );
 239     }
 240
 241     return( normalw );
 242 }
 243
 244
 245 static LONG
 246 ObjectHeight( struct NewGadget *ng, int normalh )
 247 {
 248     if( ( GadToolsBase->lib_Version >= 39 ) && ( ng->ng_TextAttr->ta_YSize > normalh ) )
 249     {
 250         return( ng->ng_TextAttr->ta_YSize );
 251     }
 252
 253     return( normalh );
 254 }
 255
 256
 257 LONG
 258 CheckBoxWidth( struct NewGadget *ng )
 259 {
 260     return( ObjectWidth( ng, CHECKBOX_WIDTH, CHECKBOX_HEIGHT ) );
 261 }
 262
 263
 264 LONG
 265 CheckBoxHeight( struct NewGadget *ng )
 266 {
 267     return( ObjectHeight( ng, CHECKBOX_HEIGHT ) );
 268 }
 269
 270
 271 const static struct TextAttr Topaz80 =
 272 {
 273     "topaz.font", 8, FS_NORMAL, FPF_ROMFONT | FPF_DESIGNED
 274 };
 275
 276
 277 long OpenPrefsWindow (void)
 278 {
 279     struct Gadget       *gad;
 280     struct TextAttr     *font;
 281     struct ReqDefaults  *filereqdefs = &RTPrefs.ReqDefaults[RTPREF_FILEREQ];
 282     ULONG               flags = RTPrefs.Flags;
 283     char                *str;
 284     int                 offy, col1, fontht, top, scrwidth, scrheight, spacing;
 285     int                 len, left, intgadwidth, col1ht, col2ht, proptop, len2;
 286     int                 width, winwidth, dis;
 287     int                 checkw, checkh, checkskip;
 288
 289     /* First localize some stuff */
 290     LocalizeLabels( DefaultPosLabels );
 291     LocalizeLabels( TypeLabels );
 292     LocalizeLabels( WheelLabels );
 293
 294     GeneralText.IText = GetString( MSG_GENERAL );
 295     FileReqText.IText = GetString( MSG_FILEREQUESTER );
 296     DefSizeText.IText = GetString( MSG_SIZE );
 297     NrOfEntriesText.IText = GetString( MSG_NR_OF_ENTRIES );
 298
 299     /* Layout vars */
 300     spacing = rtGetVScreenSize( Screen, ( ULONG * ) &scrwidth, ( ULONG * ) &scrheight );
 301     if (UseScreenFont)
 302         font = Screen->Font;
 303     else
 304         font = &Topaz80;
 305
 306 retryopenwin:
 307     IntuiText.ITextFont = font;
 308     fontht = font->ta_YSize;
 309     offy = Screen->WBorTop + Screen->Font->ta_YSize + 1;
 310
 311     NewGadget.ng_TextAttr = font;
 312     NewGadget.ng_VisualInfo = VisualInfo;
 313
 314     checkw = CheckBoxWidth (&NewGadget);
 315     checkh = checkskip = CheckBoxHeight (&NewGadget);
 316     if (fontht > checkskip) checkskip = fontht;
 317
 318     /* Calculate width of first column */
 319     col1 = ArrayWidth_Localize ( Column1Text ) + checkw + 8;
 320     top = ArrayWidth( WheelLabels ) + 36;
 321     col1 = max( col1, top );
 322
 323     if (!(gad = CreateContext (&glist))) return (1);
 324
 325     /* First column */
 326
 327     top = offy + spacing + 3;
 328
 329     GeneralText.FrontPen = Pens[HIGHLIGHTTEXTPEN];
 330     GeneralText.ITextFont = font;
 331     GeneralText.TopEdge = top;
 332     GeneralText.LeftEdge = 12 + ((col1 - IntuiTextLength (&GeneralText)) / 2);
 333     top += fontht + spacing / 2;
 334
 335     InitNewGadget (12, top, checkw, checkh,
 336                             GetString (MSG_POPSCREEN), NOSCRTOFRONT_GADID);
 337     NewGadget.ng_Flags = PLACETEXT_RIGHT;
 338     popgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 339                                                                  GTCB_Checked, !(flags & RTPRF_NOSCRTOFRONT),
 340                                                                  TAG_END);
 341     top += checkskip + spacing;
 342
 343     NewGadget.ng_TopEdge = top;
 344     NewGadget.ng_GadgetText = GetString (MSG_DEFAULTFONT);
 345     NewGadget.ng_GadgetID = DEFAULTFONT_GADID;
 346     deffontgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 347                                                                      GTCB_Checked, flags & RTPRF_DEFAULTFONT,
 348                                                                      TAG_END);
 349
 350     top += checkskip + spacing;
 351
 352     NewGadget.ng_TopEdge = top;
 353     NewGadget.ng_GadgetText = GetString( MSG_FKEYS );
 354     NewGadget.ng_GadgetID = FKEYS_GADID;
 355     fkeysgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 356                                                                    GTCB_Checked, flags & RTPRF_FKEYS,
 357                                                                    TAG_END);
 358
 359     top += checkskip + spacing;
 360
 361     NewGadget.ng_TopEdge = top;
 362     NewGadget.ng_Width = ArrayWidth( WheelLabels ) + 36;
 363     NewGadget.ng_Height = fontht + 6;
 364     NewGadget.ng_GadgetText = NULL;
 365     NewGadget.ng_GadgetID = DOWHEEL_GADID;
 366     dowheelgad = gad = CreateGadget (CYCLE_KIND, gad, &NewGadget, GTCY_Labels,  (IPTR) WheelLabels,
 367                                                                   GTCY_Active,  WheelType,
 368                                                                   TAG_END);
 369
 370     top += checkskip + 6 + spacing;
 371
 372     top += spacing;
 373     FileReqText.FrontPen = Pens[HIGHLIGHTTEXTPEN];
 374     FileReqText.ITextFont = font;
 375     FileReqText.TopEdge = top;
 376     FileReqText.LeftEdge        = 12 + ((col1 - IntuiTextLength (&FileReqText)) / 2);
 377     top += fontht + spacing / 2;
 378
 379     NewGadget.ng_TopEdge = top;
 380     NewGadget.ng_Width = checkw;
 381     NewGadget.ng_Height = checkh;
 382     NewGadget.ng_GadgetText = (UBYTE *)GetString (MSG_IMMEDIATESORT);
 383     NewGadget.ng_GadgetID = IMMSORT_GADID;
 384     immsortgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 385                                                                      GTCB_Checked, flags & RTPRF_IMMSORT,
 386                                                                      TAG_END);
 387     top += checkskip + spacing;
 388
 389     NewGadget.ng_TopEdge = top;
 390     NewGadget.ng_GadgetText = GetString (MSG_DRAWERSFIRST);
 391     NewGadget.ng_GadgetID = DIRSFIRST_GADID;
 392     dirsfirstgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 393                                                                        GTCB_Checked, flags & RTPRF_DIRSFIRST,
 394                                                                        TAG_END);
 395     top += checkskip + spacing;
 396
 397     NewGadget.ng_TopEdge = top;
 398     NewGadget.ng_GadgetText = GetString (MSG_DRAWERSMIXED);
 399     NewGadget.ng_GadgetID = DIRSMIXED_GADID;
 400     mixdirsgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 401                                                                      GTCB_Checked, flags & RTPRF_DIRSMIXED,
 402                                                                      TAG_END);
 403     top += checkskip + spacing;
 404
 405     NewGadget.ng_TopEdge = top;
 406     NewGadget.ng_GadgetText = GetString (MSG_LED);
 407     NewGadget.ng_GadgetID = NOLED_GADID;
 408     noledgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 409                                                                    GTCB_Checked, !(flags & RTPRF_NOLED),
 410                                                                    TAG_END);
 411     top += checkskip + spacing;
 412
 413     NewGadget.ng_TopEdge = top;
 414     NewGadget.ng_GadgetText = GetString (MSG_MMB_PARENT);
 415     NewGadget.ng_GadgetID = MMB_GADID;
 416     mmbgad = gad = CreateGadget (CHECKBOX_KIND, gad, &NewGadget, GTCB_Scaled, TRUE,
 417                                                                  GTCB_Checked, flags & RTPRF_MMBPARENT,
 418                                                                  TAG_END);
 419     top += checkskip + spacing;
 420
 421     col1ht = top;
 422
 423     /* Second column */
 424
 425     top = offy + spacing;
 426     left = col1 + 24;
 427     BevelLeft = left;
 428
 429     str = GetString (MSG_REQUESTER);
 430     IntuiText.IText = str;
 431     len = IntuiTextLength (&IntuiText);
 432     InitNewGadget (left + len + 8, top, ArrayWidth (TypeLabels) + 36, fontht + 6, str, REQTYPE_GADID);
 433     NewGadget.ng_Flags = PLACETEXT_LEFT|NG_HIGHLABEL;
 434     gad = CreateGadget (CYCLE_KIND, gad, &NewGadget, GTCY_Labels, (IPTR) TypeLabels, TAG_DONE);
 435     top += fontht + 6 + spacing;
 436     winwidth = NewGadget.ng_LeftEdge + NewGadget.ng_Width;
 437
 438     left += 10;
 439
 440     BevelTop = top;
 441     top += 1 + spacing;
 442
 443     DefSizeText.FrontPen = Pens[HIGHLIGHTTEXTPEN];
 444     DefSizeText.ITextFont = font;
 445     DefSizeText.TopEdge = top;
 446     DefSizeText.LeftEdge = left;
 447     top += fontht + spacing / 2;
 448     width = IntuiTextLength (&DefSizeText) + 20;
 449     if (width > winwidth) winwidth = width;
 450
 451     proptop = top;
 452     top += fontht + 6 + spacing;
 453
 454     IntuiText.IText = "000";
 455     intgadwidth = IntuiTextLength (&IntuiText) + 12;
 456
 457     NrOfEntriesText.FrontPen = Pens[HIGHLIGHTTEXTPEN];
 458     NrOfEntriesText.ITextFont = font;
 459     NrOfEntriesText.TopEdge = top;
 460     NrOfEntriesText.LeftEdge = left;
 461     top += fontht + spacing / 2;
 462     width = IntuiTextLength (&NrOfEntriesText) + 20;
 463     if (width > winwidth) winwidth = width;
 464
 465     str = GetString (MSG_MIN);
 466     IntuiText.IText = str;
 467     len = IntuiTextLength (&IntuiText);
 468     InitNewGadget (left + len + 8, top, intgadwidth, fontht + 6, str, MINENTRIES_GADID);
 469 #ifdef __AROS__
 470     NewGadget.ng_Flags = NG_HIGHLABEL | PLACETEXT_LEFT;
 471 #else
 472     NewGadget.ng_Flags = NG_HIGHLABEL;
 473 #endif
 474     mingad = gad = CreateGadget (INTEGER_KIND, gad, &NewGadget, GTIN_Number, filereqdefs->MinEntries,
 475                                                                 GTIN_MaxChars, 2,
 476                                                                 TAG_END);
 477
 478     str = GetString (MSG_MAX);
 479     IntuiText.IText = str;
 480     len = IntuiTextLength (&IntuiText);
 481     NewGadget.ng_LeftEdge += intgadwidth + 16 + len + 8;
 482     NewGadget.ng_GadgetText = str;
 483     NewGadget.ng_GadgetID = MAXENTRIES_GADID;
 484     maxgad = gad = CreateGadget (INTEGER_KIND, gad, &NewGadget, GTIN_Number, filereqdefs->MaxEntries,
 485                                                                 GTIN_MaxChars, 2,
 486                                                                 TAG_END);
 487
 488     top += fontht + 6 + spacing;
 489     width = NewGadget.ng_LeftEdge + NewGadget.ng_Width + 10;
 490     if (width > winwidth) winwidth = width;
 491
 492     len = ArrayWidth_Localize (PositionOffset) + 8;
 493
 494     InitNewGadget (left + len, top, ArrayWidth (DefaultPosLabels) + 36,
 495                                             fontht + 6, GetString (MSG_POSITION), POSITION_GADID);
 496     defposgad = gad = CreateGadget (CYCLE_KIND, gad, &NewGadget, GTCY_Labels, (IPTR) DefaultPosLabels,
 497                                                                  GTCY_Active, filereqdefs->ReqPos,
 498                                                                  TAG_END);
 499     top += fontht + 6 + spacing;
 500     width = NewGadget.ng_LeftEdge + NewGadget.ng_Width + 10;
 501     if (width > winwidth) winwidth = width;
 502
 503     IntuiText.IText = "0000";
 504     intgadwidth = IntuiTextLength (&IntuiText) + 12;
 505
 506     dis = (filereqdefs->ReqPos <= REQPOS_CENTERSCR);
 507
 508     InitNewGadget (left + len, top, intgadwidth, fontht + 6, GetString (MSG_OFFSET), OFFSETX_GADID);
 509     xoffgad = gad = CreateGadget (INTEGER_KIND, gad, &NewGadget, GA_Disabled, dis,
 510                                                                  GTIN_Number, filereqdefs->LeftOffset,
 511                                                                  GTIN_MaxChars, 3,
 512                                                                  TAG_END);
 513     NewGadget.ng_LeftEdge += intgadwidth;
 514     NewGadget.ng_GadgetText = NULL;
 515     NewGadget.ng_GadgetID = OFFSETY_GADID;
 516     yoffgad = gad = CreateGadget (INTEGER_KIND, gad, &NewGadget, GA_Disabled, dis,
 517                                                                  GTIN_Number, filereqdefs->TopOffset,
 518                                                                  GTIN_MaxChars, 3,
 519                                                                  TAG_END);
 520     top += fontht + 6 + spacing;
 521
 522 #if 0
 523     str = GetString (MSG_TEST);
 524     IntuiText.IText = str;
 525     len = IntuiTextLength (&IntuiText);
 526     NewGadget.ng_LeftEdge += NewGadget.ng_Width + 32;
 527     NewGadget.ng_Width = len + 16;
 528     NewGadget.ng_GadgetText = str;
 529     NewGadget.ng_Flags = 0;
 530     NewGadget.ng_GadgetID = TEST_GADID;
 531     testgad = gad = CreateGadget (BUTTON_KIND, gad, &NewGadget, TAG_END);
 532     ng.ng_Flags = NG_HIGHLABEL;
 533 #endif
 534
 535     width = NewGadget.ng_LeftEdge + NewGadget.ng_Width + 10;
 536     if (width > winwidth) winwidth = width;
 537
 538     BevelWidth = winwidth - BevelLeft;
 539
 540     /* Prop gadget + Set gadget */
 541
 542     IntuiText.IText = "100%";
 543     len = IntuiTextLength (&IntuiText) + 8;
 544 #if 0
 545     str = GetString (MSG_SET);
 546     IntuiText.IText = str;
 547     len2 = IntuiTextLength (&IntuiText) + 16;
 548 #else
 549 len2 = 0;
 550 #endif
 551     InitNewGadget (left + len, proptop, winwidth - left - 10 - len - len2,
 552                                             fontht + 6, NULL, DEFSIZE_GADID);
 553     sizegad = gad = CreateGadget (SLIDER_KIND, gad, &NewGadget, GTSL_Min, 25, GTSL_Max, 100,
 554                                                                 GTSL_Level, filereqdefs->Size,
 555                                                                 GTSL_MaxLevelLen, 6, GTSL_LevelFormat, (IPTR) "%3ld%%",
 556                                                                 PGA_Freedom, LORIENT_HORIZ, GA_RelVerify, TRUE,
 557                                                                 TAG_DONE);
 558 #if 0
 559     InitNewGadget (NewGadget.ng_LeftEdge + NewGadget.ng_Width, proptop, len2, fontht + 6, str, SETSIZE_GADID);
 560     NewGadget.ng_Flags = 0;
 561     setgad = gad = CreateGadget (BUTTON_KIND, gad, &NewGadget, TAG_END);
 562 #endif
 563
 564     winwidth += 12;
 565
 566     BevelHeight = top - BevelTop + 1;
 567     top += 1 + spacing;
 568
 569     col2ht = top;
 570
 571     /* Save, Use, Cancel */
 572
 573     top = max (col1ht, col2ht) + spacing;
 574     len = ArrayWidth_Localize (SaveUseCancel) + 16;
 575     if (len < 87) len = 87;
 576     InitNewGadget (12, top, len, fontht + 6, GetString (MSG_SAVE), SAVE_GADID);
 577     gad = CreateGadget (BUTTON_KIND, gad, &NewGadget, TAG_END);
 578
 579     NewGadget.ng_LeftEdge = (winwidth - len) / 2;
 580     NewGadget.ng_GadgetText = GetString (MSG_USE);
 581     NewGadget.ng_GadgetID = USE_GADID;
 582     gad = CreateGadget (BUTTON_KIND, gad, &NewGadget, TAG_END);
 583
 584     NewGadget.ng_LeftEdge = winwidth - 12 - len;
 585     NewGadget.ng_GadgetText = GetString (MSG_CANCEL);
 586     NewGadget.ng_GadgetID = CANCEL_GADID;
 587     gad = CreateGadget (BUTTON_KIND, gad, &NewGadget, TAG_END);
 588
 589     top += fontht + 6 + spacing;
 590
 591     if (!gad) return (2);
 592
 593     if (winwidth > scrwidth || (top + Screen->WBorBottom) > scrheight)
 594     {
 595         ClosePrefsWindow();
 596         if (font->ta_YSize > 8)
 597         {
 598             font = &topaz8;
 599             goto retryopenwin;
 600         }
 601         return (3);
 602     }
 603
 604     if (!( WindowPtr = OpenWindowTags (NULL,
 605                     WA_Left, 1,
 606                     WA_Top, Screen->BarHeight + 1,
 607                     WA_Width, winwidth,
 608                     WA_Height, top + Screen->WBorBottom,
 609                     WA_DepthGadget, FALSE,
 610                     WA_Zoom, (IPTR) Zoom,
 611                     WA_IDCMP, CHECKBOXIDCMP|BUTTONIDCMP|SLIDERIDCMP|INTEGERIDCMP|CYCLEIDCMP|IDCMP_CLOSEWINDOW
 612                                             |IDCMP_VANILLAKEY|IDCMP_MOUSEMOVE|IDCMP_REFRESHWINDOW|IDCMP_MENUPICK,
 613                     WA_Flags, WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_ACTIVATE|WFLG_SIMPLE_REFRESH|WFLG_CLOSEGADGET,
 614                     WA_Gadgets, (IPTR) glist,
 615                     WA_Title, (IPTR) GetString (MSG_WINDOW_TITLE),
 616                     WA_PubScreen, (IPTR) Screen,
 617                     WA_NewLookMenus, TRUE, TAG_DONE)))
 618     {
 619         ClosePrefsWindow();
 620         if (font->ta_YSize > 8)
 621         {
 622             font = &topaz8;
 623             goto retryopenwin;
 624         }
 625         return (4);
 626     }
 627
 628     SetMenuStrip ( WindowPtr, Menus);
 629     GT_RefreshWindow ( WindowPtr, NULL);
 630     RenderPrefsWindow();
 631
 632     return (0);
 633 }
 634
 635 void UpdatePrefsWindow (int onlydefs)
 636 {
 637    struct ReqDefaults   *reqdefs = &RTPrefs.ReqDefaults[ CurrentReq ];
 638    int                  dis;
 639
 640    if( CurrentReq == RTPREF_OTHERREQ || CurrentReq == RTPREF_PALETTEREQ)
 641    {
 642        GT_SetGadgetAttrs (sizegad, WindowPtr, NULL, GA_Disabled, TRUE, TAG_END);
 643 //              GT_SetGadgetAttrs (setgad, WindowPtr, NULL, GA_Disabled, TRUE, TAG_END);
 644        GT_SetGadgetAttrs (mingad, WindowPtr, NULL, GA_Disabled, TRUE, TAG_END);
 645        GT_SetGadgetAttrs (maxgad, WindowPtr, NULL, GA_Disabled, TRUE, TAG_END);
 646    }
 647    else
 648    {
 649        GT_SetGadgetAttrs (sizegad, WindowPtr, NULL, GA_Disabled, FALSE,
 650                                                     GTSL_Level, reqdefs->Size,
 651                                                     TAG_END);
 652 //              GT_SetGadgetAttrs (setgad, WindowPtr, NULL, GA_Disabled, FALSE,
 653 //                                                          TAG_END);
 654        GT_SetGadgetAttrs (mingad, WindowPtr, NULL, GA_Disabled, FALSE,
 655                                                    GTIN_Number, reqdefs->MinEntries,
 656                                                    TAG_END);
 657        GT_SetGadgetAttrs (maxgad, WindowPtr, NULL, GA_Disabled, FALSE,
 658                                                    GTIN_Number, reqdefs->MaxEntries,
 659                                                    TAG_END);
 660    }
 661    GT_SetGadgetAttrs (defposgad, WindowPtr, NULL, GTCY_Active, reqdefs->ReqPos,
 662                                                  TAG_END);
 663    dis = (reqdefs->ReqPos <= REQPOS_CENTERSCR);
 664    GT_SetGadgetAttrs (xoffgad, WindowPtr, NULL, GA_Disabled, dis,
 665                                                 GTIN_Number, reqdefs->LeftOffset,
 666                                                 TAG_END);
 667    GT_SetGadgetAttrs (yoffgad, WindowPtr, NULL, GA_Disabled, dis,
 668                                                 GTIN_Number, reqdefs->TopOffset,
 669                                                 TAG_END);
 670
 671    if (!onlydefs)
 672    {
 673        GT_SetGadgetAttrs (popgad, WindowPtr, NULL, GTCB_Checked, !(RTPrefs.Flags & RTPRF_NOSCRTOFRONT),
 674                                                    TAG_END);
 675        GT_SetGadgetAttrs (deffontgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_DEFAULTFONT,
 676                                                       TAG_END);
 677        GT_SetGadgetAttrs (dowheelgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_DOWHEEL,
 678                                                        TAG_END);
 679        GT_SetGadgetAttrs (fkeysgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_FKEYS,
 680                                                      TAG_END);
 681        GT_SetGadgetAttrs (immsortgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_IMMSORT,
 682                                                        TAG_END);
 683        GT_SetGadgetAttrs (dirsfirstgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_DIRSFIRST,
 684                                                          TAG_END);
 685        GT_SetGadgetAttrs (mixdirsgad, WindowPtr, NULL, GTCB_Checked, RTPrefs.Flags & RTPRF_DIRSMIXED,
 686                                                        TAG_END);
 687        GT_SetGadgetAttrs (noledgad, WindowPtr, NULL, GTCB_Checked, !( RTPrefs.Flags & RTPRF_NOLED ),
 688                                                      TAG_END);
 689 #if 1
 690        /* AROS/AmigaOS bug fix: this "!" seems to be wrong */
 691        GT_SetGadgetAttrs (mmbgad, WindowPtr, NULL, GTCB_Checked, ( RTPrefs.Flags & RTPRF_MMBPARENT ),
 692                                                    TAG_END);
 693 #else
 694        GT_SetGadgetAttrs (mmbgad, WindowPtr, NULL, GTCB_Checked, !( RTPrefs.Flags & RTPRF_MMBPARENT ),
 695                                                    TAG_END);
 696 #endif
 697     }
 698
 699 }
 700
 701 void ClosePrefsWindow (void)
 702 {
 703     if (WindowPtr)
 704     {
 705         CloseWindow (WindowPtr);
 706         WindowPtr = NULL;
 707     }
 708     if (glist)
 709     {
 710         FreeGadgets (glist);
 711         glist = NULL;
 712     }
 713 }
 714
 715
 716
 717
 718 BOOL
 719 OpenGUI( VOID )
 720 {
 721 //  GfxBase = (struct GfxBase *)OpenLibrary ("graphics.library", 37);
 722
 723     Pens = DrawInfo->dri_Pens;
 724
 725     if( !OpenPrefsWindow() )
 726     {
 727         return( TRUE );
 728     }
 729
 730     ClosePrefsWindow();
 731
 732     return( FALSE );
 733 }
 734
 735
 736 VOID
 737 CloseGUI( VOID )
 738 {
 739     ClosePrefsWindow();
 740 //  CloseLibrary( GfxBase );
 741 }
 742
 743
 744 VOID
 745 LoopGUI( VOID )
 746 {
 747     BOOL        run = TRUE;
 748     ULONG       signals;
 749
 750     while( run )
 751     {
 752         struct IntuiMessage im, *imsg;
 753
 754         signals = Wait(1L << WindowPtr->UserPort->mp_SigBit | SIGBREAKF_CTRL_C);
 755
 756         if( signals & (1L << WindowPtr->UserPort->mp_SigBit ) )
 757         {
 758
 759             while( ( imsg = ( struct IntuiMessage * ) GT_GetIMsg( WindowPtr->UserPort ) ) )
 760             {
 761                 struct Gadget   *gad;
 762                 UWORD           code;
 763
 764                 im = *imsg;
 765                 GT_ReplyIMsg( imsg );
 766                 gad = ( struct Gadget * ) im.IAddress;
 767
 768                 switch( im.Class )
 769                 {
 770                         case IDCMP_REFRESHWINDOW:
 771                         GT_BeginRefresh( WindowPtr );
 772                         RenderPrefsWindow();
 773                         GT_EndRefresh( WindowPtr, TRUE );
 774                         break;
 775
 776                         case IDCMP_GADGETUP:
 777                         run = ProcessGadget( gad->GadgetID, im.Code );
 778                         break;
 779
 780                         case IDCMP_MENUPICK:
 781                         code = im.Code;
 782
 783                         while( run && ( code != MENUNULL ) )
 784                         {
 785                                 run = ProcessMenuItem( code );
 786                                 code = ItemAddress( Menus, code )->NextSelect;
 787                         }
 788
 789                         break;
 790
 791                         case IDCMP_VANILLAKEY:
 792                         switch( imsg->Code )
 793                         {
 794                                 case 27: /* User has pressed the escape key */
 795                                 run = FALSE;
 796                                 break;
 797                         }
 798                         break;
 799
 800                         case IDCMP_CLOSEWINDOW:
 801                         run = FALSE;
 802                         break;
 803                 }
 804             }
 805         }
 806         if( signals & SIGBREAKF_CTRL_C )
 807             run = FALSE;
 808     }
 809 }