workbench/libs/reqtools/boopsigads.c

   1
   2 /* Boopsi Button */
   3
   4 /* The Image structure as used by this class:
   5  *
   6  * struct Image {
   7  *
   8  * SHORT    LeftEdge;        <---- Offset
   9  * SHORT    TopEdge;
  10  *
  11  * SHORT    Width;           <---- } 4 chars 'Oops' used for identification!
  12  * SHORT    Height;          <---- }
  13  *
  14  * SHORT    Depth;           <---- maintained by boopsi (set to CUSTOMIMAGEDEPTH).
  15  *
  16  * USHORT   *ImageData;      <---- only used during init, then points to self!
  17  *
  18  * UBYTE    PlanePick;       <---- used for the foreground color
  19  *
  20  * UBYTE    PlaneOnOff;      <---- holds ToUpper (underlined char) (after creation!)
  21  *
  22  * struct Image *NextImage;  <---- pointer to the next image. Handled by DrawImage().
  23  * };
  24  *
  25  */
  26
  27 #include <exec/types.h>
  28 #include <exec/io.h>
  29 #include <exec/memory.h>
  30 #include <exec/execbase.h>
  31 #include <dos/dosextens.h>
  32 #include <utility/tagitem.h>
  33 #include <intuition/intuition.h>
  34 #include <intuition/classes.h>
  35 #include <intuition/classusr.h>
  36 #include <intuition/gadgetclass.h>
  37 #include <intuition/imageclass.h>
  38 #include <intuition/sghooks.h>
  39 #include <graphics/gfxbase.h>
  40 #include <graphics/gfxmacros.h>
  41 #include <libraries/gadtools.h>
  42 #include <graphics/monitor.h>
  43 //#include <devices/audio.h>
  44 #include <proto/graphics.h>
  45 #include <proto/gadtools.h>
  46 #include <proto/exec.h>
  47 #include <proto/layers.h>
  48 #include <proto/utility.h>
  49 #include <proto/console.h>
  50 #include <proto/intuition.h>
  51 #include <proto/dos.h>
  52 #include <string.h>
  53
  54 #ifdef __AROS__
  55 #include <aros/asmcall.h>
  56 #endif
  57
  58 #include "filereq.h"
  59
  60 /****************************************************************************************/
  61
  62 extern struct Library           *GadToolsBase;
  63 extern struct GfxBase           *GfxBase;
  64 extern struct IntuitionBase     *IntuitionBase;
  65 extern struct Window            *win;
  66 extern struct Screen            *scr;
  67 extern struct ExecBase          *SysBase;
  68 extern struct Device            *ConsoleDevice;
  69
  70 extern void ShortDelay (void);
  71
  72 #ifndef __AROS__
  73 extern ULONG ASM myBoopsiDispatch (
  74     REGPARAM(a0, Class *,),
  75     REGPARAM(a2, struct Image *,),
  76     REGPARAM(a1, struct impDraw *,));
  77 #endif
  78
  79 extern Class *ButtonImgClass;
  80
  81 /****************************************************************************************/
  82
  83 /**********
  84 * BUTTONS *
  85 **********/
  86
  87 struct Gadget * REGARGS my_CreateButtonGadget (
  88     struct Gadget *gad,
  89     ULONG underscorechar,
  90     struct NewGadget *ng)
  91 {
  92     struct InitData     idata;
  93     struct Image        *image;
  94     const char          *label;
  95
  96     label = ng->ng_GadgetText;
  97     ng->ng_GadgetText = NULL;
  98
  99     if ((gad = myCreateGadget (GENERIC_KIND, gad, ng, TAG_END)))
 100     {
 101
 102         /* set gadget attributes */
 103         gad->Flags |= GFLG_GADGIMAGE|GFLG_GADGHIMAGE;
 104         gad->GadgetType |= GTYP_BOOLGADGET;
 105         gad->Activation |= GACT_RELVERIFY;
 106
 107         /* set image data */
 108         idata.idata_Gadget = gad;
 109         idata.idata_VisualInfo = ng->ng_VisualInfo;
 110         idata.idata_Label = label;
 111         idata.idata_TextAttr = ng->ng_TextAttr;
 112         idata.idata_Underscore = underscorechar;
 113
 114         /* create image */
 115
 116         image = NewObject (ButtonImgClass, NULL, IA_Data, (IPTR) &idata, TAG_END);
 117
 118         gad->GadgetRender = gad->SelectRender = image;
 119     }
 120
 121     ng->ng_GadgetText = label;
 122
 123     return (gad);
 124 }
 125
 126 /****************************************************************************************/
 127
 128 static struct Image *IsButtonGad (struct Gadget *gad)
 129 {
 130     struct Image *im;
 131     union {
 132         struct {
 133             WORD Width;
 134             WORD Height;
 135         } size;
 136         ULONG magic;
 137     } __tmp;
 138
 139     if (gad->Flags & (GFLG_GADGIMAGE|GFLG_GADGHIMAGE))
 140         if ((im = (struct Image *)gad->SelectRender))
 141             if (im->Depth == CUSTOMIMAGEDEPTH)
 142             {
 143                 __tmp.size.Width = im->Width;
 144                 __tmp.size.Height = im->Height;
 145                 if (__tmp.magic == BUTTON_MAGIC_LONGWORD)
 146                     if (im->ImageData == (UWORD *)im) return (im);
 147             }
 148
 149     return (NULL);
 150 }
 151
 152 /****************************************************************************************/
 153
 154 /**********
 155 * STRGADS *
 156 **********/
 157
 158 struct CombStringInfo
 159 {
 160     ULONG                       magic;
 161     struct CombStringInfo       *self;
 162     struct StringInfo           strinfo;
 163     struct StringExtend         strextend;
 164     struct Hook                 edithook;
 165 };
 166
 167 /****************************************************************************************/
 168
 169 #define IEQUALIFIER_SHIFT               (IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT)
 170
 171 /****************************************************************************************/
 172
 173 #ifdef __AROS__
 174 AROS_UFH3(ULONG, StrEditHookEntry,
 175     AROS_UFHA(struct Hook *, hook, A0),
 176     AROS_UFHA(struct SGWork *, sgw, A2),
 177     AROS_UFHA(ULONG *, msg, A1))
 178 {
 179     AROS_USERFUNC_INIT
 180 #else
 181 ULONG ASM SAVEDS
 182 StrEditHookEntry (
 183     REGPARAM(a0, struct Hook *, hook),
 184     REGPARAM(a2, struct SGWork *, sgw),
 185     REGPARAM(a1, ULONG *, msg) )
 186 {
 187 #endif
 188     struct StrGadUserData       *userdata;
 189     WORD        qual, rawcode;
 190
 191     if( msg[ 0 ] == SGH_KEY )
 192     {
 193         rawcode = sgw->IEvent->ie_Code;
 194         qual = sgw->IEvent->ie_Qualifier;
 195
 196 //kprintf("sgsg: editop = %d code = %x  quali = %x\n", sgw->EditOp, rawcode, qual);
 197
 198         if( ( sgw->EditOp == EO_INSERTCHAR ) ||
 199             ( sgw->EditOp == EO_REPLACECHAR ) ||
 200             ( sgw->EditOp == EO_SPECIAL ) ||  /* CHECKME: AROS/AMIGAOS: ADDED THIS LINE */
 201             ( sgw->EditOp == EO_NOOP ) ||  /* CHECKME: AROS/AMIGAOS: ADDED THIS LINE */
 202             ( sgw->EditOp == EO_ENTER ) ||  /* CHECKME: AROS/AMIGAOS: ADDED THIS LINE */
 203             ( sgw->EditOp == EO_BADFORMAT ) )
 204         {
 205 //kprintf("sgsg2\n");
 206             if( ( qual & IEQUALIFIER_RCOMMAND ) || ( sgw->Code == 27 ) )
 207             {
 208                 sgw->Actions &= ~( SGA_USE | SGA_BEEP | SGA_REDISPLAY );
 209                 sgw->IEvent->ie_Qualifier &= ~IEQUALIFIER_RCOMMAND;
 210
 211                 if( !( qual & IEQUALIFIER_REPEAT ) )
 212                 {
 213                         sgw->Actions |= SGA_REUSE|SGA_END;
 214                         sgw->Code = KEYB_SHORTCUT;
 215                 }
 216             }
 217         }
 218
 219         if( ( userdata = ( struct StrGadUserData * ) sgw->Gadget->UserData ) )
 220         {
 221             if( userdata->flags & USERFLAG_MATCH_FILE )
 222             {
 223                 if( sgw->Actions & SGA_USE )
 224                 {
 225                     if( Stricmp( sgw->WorkBuffer, sgw->PrevBuffer ) )
 226                     {
 227                         if( !userdata->fakeimsg.Micros )
 228                         {
 229                             userdata->fakeimsg.Micros = 1;
 230                             PutMsg( userdata->msgport, ( struct Message * ) &userdata->fakeimsg );
 231                         }
 232                     }
 233                 }
 234             }
 235
 236             if( userdata->flags & USERFLAG_UP_DOWN_ARROW )
 237             {
 238                 if( ( rawcode == RAWKEY_UP ) || ( rawcode == RAWKEY_DOWN ) )
 239                 {
 240                     sgw->Actions &= ~( SGA_USE | SGA_BEEP | SGA_REDISPLAY );
 241                     sgw->Actions |= SGA_REUSE | SGA_END;
 242                     sgw->Code = KEYB_SHORTCUT;
 243                 }
 244             }
 245
 246         } /* if( ( userdata = ( struct StrGadUserData * ) sgw->Gadget->UserData ) ) */
 247
 248         return( TRUE );
 249
 250     } /* if( msg[ 0 ] == SGH_KEY ) */
 251
 252     return( FALSE );
 253 #ifdef __AROS__
 254     AROS_USERFUNC_EXIT
 255 #endif
 256 }
 257
 258 /****************************************************************************************/
 259
 260 struct Hook stredithook =
 261 {
 262     { NULL },
 263     ( HOOKFUNC ) StrEditHookEntry, NULL, ( APTR ) 0xff525421
 264 };
 265
 266 /****************************************************************************************/
 267
 268 #ifndef GTST_EditHook
 269 #define GTST_EditHook (GT_TagBase+55)
 270 #define GTIN_EditHook GTST_EditHook
 271 #endif
 272
 273 /****************************************************************************************/
 274
 275 struct Gadget * REGARGS my_CreateIntegerGadget (
 276     struct Gadget *gad,
 277     struct NewGadget *newgad,
 278     int maxchars,
 279     LONG value,
 280     ULONG just)
 281 {
 282     struct Gadget *intgad;
 283
 284     if ((intgad = myCreateGadget (INTEGER_KIND, gad, newgad,
 285             GTIN_MaxChars, maxchars,
 286             GTIN_Number, value, STRINGA_Justification, just,
 287             GTST_EditHook, (IPTR) &stredithook,
 288     TAG_END)))
 289             intgad->UserData = NULL;
 290
 291     return (intgad);
 292 }
 293
 294 /****************************************************************************************/
 295
 296 struct Gadget * REGARGS my_CreateStringGadget (
 297     struct Gadget *gad,
 298     struct NewGadget *newgad,
 299     int maxchars,
 300     char *string)
 301 {
 302     struct Gadget *strgad;
 303
 304     if ((strgad = myCreateGadget (STRING_KIND, gad, newgad, GTST_MaxChars, maxchars,
 305                                   GTST_String, (IPTR) string, GTST_EditHook, (IPTR) &stredithook, TAG_END)))
 306             strgad->UserData = NULL;
 307
 308     return (strgad);
 309 }
 310
 311 /****************************************************************************************/
 312
 313 void REGARGS my_SetStringGadget (struct Window *win, struct Gadget *gad, char *str)
 314 {
 315     if (!gad) return;
 316
 317     myGT_SetGadgetAttrs (gad, win, NULL, GTST_String, (IPTR) str, TAG_END);
 318 }
 319
 320 /****************************************************************************************/
 321
 322 void REGARGS my_SetIntegerGadget (struct Window *win, struct Gadget *gad, long val)
 323 {
 324     if (!gad) return;
 325
 326     myGT_SetGadgetAttrs (gad, win, NULL, GTIN_Number, val, TAG_END);
 327 }
 328
 329 /****************************************************************************************/
 330
 331 void REGARGS my_FreeGadgets (struct Gadget *glist)
 332 {
 333     struct Gadget *gad;
 334     struct Image  *im;
 335
 336 #ifdef USE_FORBID
 337     Forbid();
 338 #else
 339     /* FIXME: Any reason for locking here?
 340        As far as I can tell all use of this function are reentrant and the
 341        glist is never attached to Window when called.
 342        If locking is needed for other reasons, semaphore would be better
 343        than Forbid(). -Piru */
 344 #endif
 345     for (gad = glist; gad; gad = gad->NextGadget)
 346     {
 347         if ((im = IsButtonGad (gad))) DisposeObject (im);
 348     }
 349     FreeGadgets (glist);
 350 #ifdef USE_FORBID
 351     Permit();
 352 #else
 353     /* unlock */
 354 #endif
 355 }
 356
 357 /****************************************************************************************/
 358
 359 void REGARGS my_SelectGadget (struct Gadget *gad, struct Window *win)
 360 {
 361     gad->Flags ^= GFLG_SELECTED;
 362     RefreshGList (gad, win, NULL, 1);
 363 }
 364
 365 /****************************************************************************************/
 366
 367 void REGARGS my_DownGadget (struct Gadget *gad, UWORD code, struct KeyButtonInfo *info)
 368 {
 369     my_SelectGadget (gad, info->win);
 370     ShortDelay();
 371     info->lastgad = gad;
 372     info->lastcode = code;
 373 }
 374
 375 /****************************************************************************************/
 376
 377 #define SHIFT_KEY               0x60
 378
 379 /****************************************************************************************/
 380
 381 struct Gadget *REGARGS my_GetKeyGadget (UBYTE key, struct Gadget *glist)
 382 {
 383     struct Gadget *gad;
 384     struct Image  *im;
 385     char          underkey;
 386
 387     for (gad = glist; gad; gad = gad->NextGadget)
 388     {
 389         if ((im = IsButtonGad (gad)))
 390             if ((underkey = im->PlaneOnOff))
 391                 if (key == (UBYTE)ToUpper (underkey)) return (gad);
 392     }
 393     return (NULL);
 394 }
 395
 396 /****************************************************************************************/
 397
 398 ULONG REGARGS CheckGadgetKey (int code, int qual, char *key,
 399                                           struct KeyButtonInfo *info)
 400 {
 401     struct InputEvent   ev;
 402     struct Gadget       *gad;
 403     int                 upkey = (code & IECODE_UP_PREFIX);
 404
 405     *key = 0;
 406     if (!(code & ~IECODE_UP_PREFIX)) return (0);
 407
 408     /* Convert RAW to ASCII */
 409     ev.ie_NextEvent = NULL;
 410     ev.ie_Class = IECLASS_RAWKEY;
 411     ev.ie_Code = code;
 412     /* Ignore alt qualifier */
 413     ev.ie_Qualifier = qual & ~(IEQUALIFIER_LALT|IEQUALIFIER_RALT);
 414     RawKeyConvert (&ev, key, 1, NULL);
 415     *key = ToUpper (*key);
 416
 417     if (!(qual & IEQUALIFIER_REPEAT))
 418     {
 419         if (upkey)
 420         {
 421             /* Gadget released ? */
 422             if (code == (info->lastcode | IECODE_UP_PREFIX))
 423             {
 424                 if (!(info->lastgad->Activation & GACT_TOGGLESELECT))
 425                     my_SelectGadget (info->lastgad, info->win);
 426                 info->lastcode = 0;
 427                 return ((ULONG)info->lastgad->GadgetID);
 428
 429             }
 430         }
 431         else
 432         {
 433             /* Shift pressed ? */
 434             if ((code & ~1) == SHIFT_KEY)
 435             {
 436                 if (info->lastcode)
 437                 {
 438                     my_SelectGadget (info->lastgad, info->win);
 439                     info->lastcode = 0;
 440                 }
 441             }
 442             else
 443             {
 444                 /* No gadget down yet ? */
 445                 if (!info->lastcode)
 446                 {
 447                     /* Gadget down ? */
 448                     if ((gad = my_GetKeyGadget (*key, info->glist)))
 449                     {
 450                         if (!(gad->Flags & GFLG_DISABLED))
 451                             my_DownGadget (gad, code, info);
 452
 453                     }
 454                     else /* return with keycode in 'key' */
 455                         return (0);
 456
 457                 }
 458
 459             }
 460
 461         } /* if (upkey) else ... */
 462
 463     } /* if (!(qual & IEQUALIFIER_REPEAT)) */
 464
 465     *key = 0;
 466     return (0);
 467 }
 468
 469 /****************************************************************************************/
 470
 471 /*********
 472 * IMAGES *
 473 *********/
 474
 475 /* Read VisualInfo and TextAttr from newgadget structure */
 476 /* Underscore char is always '_' */
 477
 478 struct Image * REGARGS my_CreateGadgetLabelImage (
 479     struct Image *previm,
 480     struct NewGadget *ng,
 481     char *label,
 482     WORD left, WORD top,
 483     UWORD pen)
 484 {
 485     struct InitData idata;
 486
 487     if (!previm) return (NULL);
 488
 489     idata.idata_Gadget = NULL;
 490     idata.idata_Label = label;
 491     idata.idata_VisualInfo = ng->ng_VisualInfo;
 492     idata.idata_TextAttr = ng->ng_TextAttr;
 493     idata.idata_Underscore = '_';
 494
 495     return (previm->NextImage = NewObject (ButtonImgClass, NULL, IA_Data , (IPTR) &idata,
 496                                                                  IA_FGPen, pen   ,
 497                                                                  IA_Left , left  ,
 498                                                                  IA_Top  , top   ,
 499                                                                  TAG_END));
 500 }
 501
 502 /****************************************************************************************/
 503
 504 void REGARGS my_FreeLabelImages (struct Image *images)
 505 {
 506     struct Image *im;
 507
 508     images = images->NextImage;
 509     while (images)
 510     {
 511         im = images;
 512         images = images->NextImage;
 513         DisposeObject (im);
 514     }
 515 }
 516
 517 /****************************************************************************************/