workbench/demos/demowin.c

   1 /*
   2     Copyright © 1995-96, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: A short demo for the features of Intuition and Graphics
   6     Lang: english
   7 */
   8 #define ENABLE_RT       1
   9 #define ENABLE_PURIFY   1
  10
  11 #include <exec/memory.h>
  12 #include <dos/dos.h>
  13 #include <dos/exall.h>
  14 #include <dos/datetime.h>
  15 #include <proto/exec.h>
  16 #include <proto/dos.h>
  17 #include <proto/arossupport.h>
  18 #include <proto/alib.h>
  19 #include <proto/utility.h>
  20 #include <proto/graphics.h>
  21 #include <proto/intuition.h>
  22 #include <proto/console.h>
  23 #include <intuition/intuitionbase.h>
  24 #include <intuition/intuition.h>
  25 #include <graphics/gfxbase.h>
  26 #include <graphics/rastport.h>
  27 #include <graphics/gfxmacros.h>
  28 #include <ctype.h>
  29 #include <stdio.h>
  30 #include <aros/rt.h>
  31 #include <intuition/classusr.h>
  32 #include <intuition/gadgetclass.h>
  33 #include <intuition/imageclass.h>
  34 #include <devices/keymap.h>
  35
  36 #if 0
  37 #   define D(x)    x
  38 #else
  39 #   define D(x)     /* eps */
  40 #endif
  41 #define bug     kprintf
  42
  43 static const char version[] = "$VER: demowin 41.1 (14.3.1997)\n";
  44
  45 struct Device *ConsoleDevice;
  46 struct IntuitionBase *IntuitionBase;
  47 struct GfxBase *GfxBase;
  48 Object * frame, * gadget;
  49
  50 void Refresh (struct RastPort * rp)
  51 {
  52     int len;
  53     int t, tend, pen;
  54     int x, y;
  55     WORD xy[8];
  56
  57     SetAPen (rp, 1);
  58     SetDrMd (rp, JAM2);
  59
  60     Move (rp, 0, 0);
  61     Draw (rp, 320, 150);
  62
  63     Move (rp, 640, 0);
  64     Draw (rp, 0, 300);
  65
  66     SetDrPt (rp, 0xF0F0);
  67     len = 150;
  68     x = 340;
  69     y = 150;
  70
  71     xy[0] = x; xy[1] = y+len;
  72     xy[2] = x+len; xy[3] = y+len;
  73     xy[4] = x; xy[5] = y;
  74     Move(rp,x,y);
  75     PolyDraw (rp, 3, xy);
  76
  77     SetDrPt (rp, 0xAAAA);
  78     x += 10;
  79     y += 20;
  80     len -= 30;
  81     xy[0] = x; xy[1] = y+len;
  82     xy[2] = x+len; xy[3] = y+len;
  83     xy[4] = x; xy[5] = y;
  84     Move(rp,x,y);
  85     PolyDraw (rp, 3, xy);
  86
  87     SetDrPt (rp, 0x3333);
  88     x += 10;
  89     y += 20;
  90     len -= 30;
  91     xy[0] = x; xy[1] = y+len;
  92     xy[2] = x+len; xy[3] = y+len;
  93     xy[4] = x; xy[5] = y;
  94     Move(rp,x,y);
  95     PolyDraw (rp, 3, xy);
  96
  97     SetDrPt (rp, 0xF731);
  98     x += 10;
  99     y += 20;
 100     len -= 30;
 101     xy[0] = x; xy[1] = y;
 102     xy[2] = x; xy[3] = y+len;
 103     xy[4] = x+len; xy[5] = y+len;
 104     xy[6] = x; xy[7] = y;
 105     PolyDraw (rp, 4, xy);
 106
 107     SetDrPt (rp, ~0);
 108
 109     Move (rp, 300, 40);
 110     Text (rp, "Hello World.", 12);
 111
 112     SetAPen (rp, 3);
 113     RectFill (rp, 90, 0, 120, 30);
 114     SetAPen (rp, 0);
 115     RectFill (rp, 100, 10, 110, 20);
 116
 117     SetAPen (rp, 1);
 118     RectFill (rp, 150, 10, 160, 20);
 119
 120     SetAPen (rp, 2);
 121     RectFill (rp, 200, 10, 210, 20);
 122
 123     SetAPen (rp, 3);
 124     RectFill (rp, 250, 10, 260, 20);
 125
 126     len = TextLength (rp, "Hello World.", 12);
 127
 128     SetAPen (rp, 2);
 129     RectFill (rp, 299, 59, 300+len, 60+rp->Font->tf_YSize);
 130
 131     SetAPen (rp, 1);
 132     Move (rp, 300, 60 + rp->Font->tf_Baseline);
 133     Text (rp, "Hello World.", 12);
 134
 135     SetDrMd (rp, JAM1);
 136     SetAPen (rp, 1);
 137     Move (rp, 301, 101);
 138     Text (rp, "Hello World.", 12);
 139     SetAPen (rp, 2);
 140     Move (rp, 300, 100);
 141     Text (rp, "Hello World.", 12);
 142
 143     Move (rp, 20, 350);
 144     Text (rp, "Press \"Complement\" to flip PropGadgets", 39);
 145
 146     tend = 10;
 147     t = 0;
 148
 149     for (pen=1; pen<16; pen++)
 150     {
 151         SetAPen (rp, pen);
 152
 153         for ( ; t<tend; t++)
 154         {
 155             DrawEllipse (rp, 160, 150, t, t>>1);
 156             DrawEllipse (rp, 160, 151, t, t>>1);
 157         }
 158
 159         tend += 10;
 160     }
 161
 162     SetAPen (rp, 0);
 163     RectFill (rp, 450, 140, 549, 239);
 164
 165     for (y=0; y<20; y++)
 166     {
 167         for (x=0; x<100; x++)
 168         {
 169             pen = (LONG)ReadPixel (rp, x+100,y+100);
 170             SetAPen (rp, pen);
 171             WritePixel (rp, x+450, y+140);
 172         }
 173     }
 174 }
 175
 176 #define GAD_WID     100
 177 #define GAD_HEI     30
 178 #define BORDER      20
 179
 180 WORD BorderData[6*2*2] =
 181 {
 182     0, GAD_HEI-1, /* Top (lighter) edge */
 183     1, GAD_HEI-2,
 184     1, 1,
 185     GAD_WID-2, 1,
 186     GAD_WID-1, 0,
 187     0, 0,
 188
 189     0, -(GAD_HEI-2), /* Bottom (darker) edge */
 190     -1, -(GAD_HEI-3),
 191     -1, -1,
 192     -(GAD_WID-3), -1,
 193     -(GAD_WID-2), 0,
 194     -1, 0,
 195 };
 196 struct Border
 197 DemoBottomBorder =
 198 {
 199     GAD_WID-1, GAD_HEI-1,
 200     1, 2,
 201     JAM1,
 202     6,
 203     &BorderData[6*2],
 204     NULL
 205 },
 206 DemoTopBorder =
 207 {
 208     0, 0,
 209     2, 1,
 210     JAM1,
 211     6,
 212     &BorderData[0],
 213     &DemoBottomBorder
 214 };
 215 struct Border DemoIBottomBorder =
 216 {
 217     GAD_WID-1, GAD_HEI-1,
 218     2, 1,
 219     JAM1,
 220     6,
 221     &BorderData[6*2],
 222     NULL
 223 },
 224 DemoITopBorder =
 225 {
 226     0, 0,
 227     1, 2,
 228     JAM1,
 229     6,
 230     &BorderData[0],
 231     &DemoIBottomBorder
 232 };
 233
 234 struct PropInfo
 235 DemoPropInfo1 =
 236 {
 237     AUTOKNOB | FREEHORIZ | PROPNEWLOOK,
 238     0, 0,
 239     MAXBODY, MAXBODY,
 240     0,0,0,0,0,0
 241 },
 242 DemoPropInfo2 =
 243 {
 244     AUTOKNOB | FREEVERT | PROPNEWLOOK,
 245     0, 0,
 246     MAXBODY, MAXBODY,
 247     0,0,0,0,0,0
 248 },
 249 DemoPropInfo3 =
 250 {
 251     AUTOKNOB | FREEHORIZ | FREEVERT | PROPNEWLOOK,
 252     0, 0,
 253     MAXBODY, MAXBODY,
 254     0,0,0,0,0,0
 255 };
 256
 257 struct IntuiText
 258 DemoIText =
 259 {
 260     1, 2, /* Pens */
 261     JAM1, /* Drawmode */
 262     0, 0, /* Left, Top */
 263     NULL, /* TextAttr */
 264     "None", /* Text */
 265     NULL /* Next */
 266 };
 267
 268 #include "images/ArrowUp0.h"
 269 #include "images/ArrowUp1.h"
 270 #include "images/ArrowDown0.h"
 271 #include "images/ArrowDown1.h"
 272 #include "images/ArrowLeft0.h"
 273 #include "images/ArrowLeft1.h"
 274 #include "images/ArrowRight0.h"
 275 #include "images/ArrowRight1.h"
 276 #include "images/ImageButton0.h"
 277 #include "images/ImageButton1.h"
 278
 279 struct Gadget
 280 DemoGadget12 =
 281 {
 282     NULL, /* &DemoGadget, / * NextGadget */
 283     -(BORDER+2*ARROWLEFT1_WIDTH), -((GAD_HEI+BORDER)*3),
 284     ARROWLEFT1_WIDTH, ARROWLEFT1_HEIGHT, /* hit box */
 285     GFLG_GADGHIMAGE
 286         | GFLG_RELRIGHT
 287         | GFLG_RELBOTTOM
 288         | GFLG_GADGIMAGE
 289         , /* Flags */
 290     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 291     GTYP_BOOLGADGET, /* Type */
 292     &ArrowLeft0Image, &ArrowLeft1Image, /* Render */
 293     NULL, /* Text */
 294     0L, NULL, /* MutualExcl, SpecialInfo */
 295     13, /* GadgetID */
 296     NULL /* UserData */
 297 },
 298 DemoGadget11 =
 299 {
 300     &DemoGadget12, /* NextGadget */
 301     -(BORDER+1*ARROWLEFT1_WIDTH), -((GAD_HEI+BORDER)*3),
 302     ARROWLEFT1_WIDTH, ARROWLEFT1_HEIGHT, /* hit box */
 303     GFLG_GADGHIMAGE
 304         | GFLG_RELRIGHT
 305         | GFLG_RELBOTTOM
 306         | GFLG_GADGIMAGE
 307         , /* Flags */
 308     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 309     GTYP_BOOLGADGET, /* Type */
 310     &ArrowRight0Image, &ArrowRight1Image, /* Render */
 311     NULL, /* Text */
 312     0L, NULL, /* MutualExcl, SpecialInfo */
 313     12, /* GadgetID */
 314     NULL /* UserData */
 315 },
 316 DemoGadget10 =
 317 {
 318     &DemoGadget11, /* NextGadget */
 319     -(BORDER+ARROWDOWN1_WIDTH), -((GAD_HEI+BORDER)*3+ARROWLEFT1_HEIGHT+0*ARROWDOWN1_HEIGHT-5),
 320     ARROWDOWN1_WIDTH, ARROWDOWN1_HEIGHT, /* hit box */
 321     GFLG_GADGHIMAGE
 322         | GFLG_RELRIGHT
 323         | GFLG_RELBOTTOM
 324         | GFLG_GADGIMAGE
 325         , /* Flags */
 326     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 327     GTYP_BOOLGADGET, /* Type */
 328     &ArrowDown0Image, &ArrowDown1Image, /* Render */
 329     NULL, /* Text */
 330     0L, NULL, /* MutualExcl, SpecialInfo */
 331     11, /* GadgetID */
 332     NULL /* UserData */
 333 },
 334 DemoGadget9 =
 335 {
 336     &DemoGadget10, /* NextGadget */
 337     -(BORDER+ARROWDOWN1_WIDTH), -((GAD_HEI+BORDER)*3+ARROWLEFT1_HEIGHT+1*ARROWDOWN1_HEIGHT-5),
 338     ARROWDOWN1_WIDTH, ARROWDOWN1_HEIGHT, /* hit box */
 339     GFLG_GADGHIMAGE
 340         | GFLG_RELRIGHT
 341         | GFLG_RELBOTTOM
 342         | GFLG_GADGIMAGE
 343         , /* Flags */
 344     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 345     GTYP_BOOLGADGET, /* Type */
 346     &ArrowUp0Image, &ArrowUp1Image, /* Render */
 347     NULL, /* Text */
 348     0L, NULL, /* MutualExcl, SpecialInfo */
 349     10, /* GadgetID */
 350     NULL /* UserData */
 351 },
 352 DemoGadget8 =
 353 {
 354     &DemoGadget9, /* NextGadget */
 355     -(BORDER+ARROWDOWN1_WIDTH+GAD_WID), -((GAD_HEI+BORDER)*3+GAD_WID),
 356     GAD_WID, GAD_WID, /* hit box */
 357     GFLG_GADGHIMAGE
 358         | GFLG_RELRIGHT
 359         | GFLG_RELBOTTOM
 360         , /* Flags */
 361     GACT_IMMEDIATE
 362         | GACT_RELVERIFY
 363         | GACT_TOGGLESELECT
 364         , /* Activation */
 365     GTYP_PROPGADGET, /* Type */
 366     NULL, NULL, /* Render */
 367     NULL, /* Text */
 368     0L, (APTR)&DemoPropInfo3, /* MutualExcl, SpecialInfo */
 369     9, /* GadgetID */
 370     NULL /* UserData */
 371 },
 372 DemoGadget7 =
 373 {
 374     &DemoGadget8, /* NextGadget */
 375     -(BORDER+ARROWDOWN1_WIDTH), BORDER,
 376     ARROWDOWN1_WIDTH, -(GAD_HEI*3+BORDER*4+2*ARROWDOWN1_HEIGHT), /* hit box */
 377     GFLG_GADGHIMAGE
 378         | GFLG_RELRIGHT
 379         | GFLG_RELHEIGHT
 380         , /* Flags */
 381     GACT_IMMEDIATE
 382         | GACT_RELVERIFY
 383         | GACT_TOGGLESELECT
 384         , /* Activation */
 385     GTYP_PROPGADGET, /* Type */
 386     NULL, NULL, /* Render */
 387     NULL, /* Text */
 388     0L, (APTR)&DemoPropInfo2, /* MutualExcl, SpecialInfo */
 389     8, /* GadgetID */
 390     NULL /* UserData */
 391 },
 392 DemoGadget6 =
 393 {
 394     &DemoGadget7, /* NextGadget */
 395     BORDER, -((GAD_HEI+BORDER)*3),
 396     -(1+2*BORDER+2*ARROWLEFT0_WIDTH), ARROWLEFT0_HEIGHT, /* hit box */
 397     GFLG_GADGHIMAGE
 398         | GFLG_RELBOTTOM
 399         | GFLG_RELWIDTH
 400         , /* Flags */
 401     GACT_IMMEDIATE
 402         | GACT_RELVERIFY
 403         | GACT_TOGGLESELECT
 404         , /* Activation */
 405     GTYP_PROPGADGET, /* Type */
 406     NULL, NULL, /* Render */
 407     NULL, /* Text */
 408     0L, (APTR)&DemoPropInfo1, /* MutualExcl, SpecialInfo */
 409     7, /* GadgetID */
 410     NULL /* UserData */
 411 },
 412 DemoGadget5 =
 413 {
 414     &DemoGadget6, /* NextGadget */
 415     BORDER+(GAD_WID+BORDER)*4, -((GAD_HEI+BORDER)*2), GAD_WID, GAD_HEI, /* hit box */
 416     GFLG_GADGHIMAGE
 417         | GFLG_LABELSTRING
 418         | GFLG_RELBOTTOM
 419         , /* Flags */
 420     GACT_IMMEDIATE
 421         | GACT_RELVERIFY
 422         | GACT_TOGGLESELECT
 423         , /* Activation */
 424     GTYP_BOOLGADGET, /* Type */
 425     &DemoTopBorder, &DemoITopBorder, /* Render */
 426     (struct IntuiText *)"_Toggle", /* Text */
 427     0L, NULL, /* MutualExcl, SpecialInfo */
 428     6, /* GadgetID */
 429     NULL /* UserData */
 430 },
 431 DemoGadget4 =
 432 {
 433     &DemoGadget5, /* NextGadget */
 434     BORDER+(GAD_WID+BORDER)*3, -((GAD_HEI+BORDER)*2), GAD_WID, GAD_HEI, /* hit box */
 435     GFLG_GADGHNONE
 436         | GFLG_LABELITEXT
 437         | GFLG_RELBOTTOM
 438         , /* Flags */
 439     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 440     GTYP_BOOLGADGET, /* Type */
 441     &DemoTopBorder, NULL, /* Render */
 442     &DemoIText, /* Text */
 443     0L, NULL, /* MutualExcl, SpecialInfo */
 444     5, /* GadgetID */
 445     NULL /* UserData */
 446 },
 447 DemoGadget3 =
 448 {
 449     &DemoGadget4, /* NextGadget */
 450     BORDER+(GAD_WID+BORDER)*2, -((GAD_HEI+BORDER)*2),
 451     IMAGEBUTTON0_WIDTH, IMAGEBUTTON0_HEIGHT, /* hit box */
 452     GFLG_GADGHIMAGE
 453         | GFLG_LABELSTRING
 454         | GFLG_RELBOTTOM
 455         | GFLG_GADGIMAGE
 456         , /* Flags */
 457     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 458     GTYP_BOOLGADGET, /* Type */
 459     &ImageButton0Image, &ImageButton1Image, /* Render */
 460     (struct IntuiText *)"_Image", /* Text */
 461     0L, NULL, /* MutualExcl, SpecialInfo */
 462     4, /* GadgetID */
 463     NULL /* UserData */
 464 },
 465 DemoGadget2 =
 466 {
 467     &DemoGadget3, /* NextGadget */
 468     BORDER+(GAD_WID+BORDER)*1, -((GAD_HEI+BORDER)*2), GAD_WID, GAD_HEI, /* hit box */
 469     GFLG_GADGHBOX
 470         | GFLG_LABELSTRING
 471         | GFLG_RELBOTTOM
 472         , /* Flags */
 473     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 474     GTYP_BOOLGADGET, /* Type */
 475     &DemoTopBorder, NULL, /* Render */
 476     (struct IntuiText *)"_Box", /* Text */
 477     0L, NULL, /* MutualExcl, SpecialInfo */
 478     3, /* GadgetID */
 479     NULL /* UserData */
 480 },
 481 DemoGadget1 =
 482 {
 483     &DemoGadget2, /* NextGadget */
 484     BORDER+(GAD_WID+BORDER)*0, -((GAD_HEI+BORDER)*2), GAD_WID, GAD_HEI, /* hit box */
 485     GFLG_GADGHCOMP
 486         | GFLG_LABELSTRING
 487         | GFLG_RELBOTTOM
 488         , /* Flags */
 489     GACT_IMMEDIATE | GACT_RELVERIFY, /* Activation */
 490     GTYP_BOOLGADGET, /* Type */
 491     &DemoTopBorder, NULL, /* Render */
 492     (struct IntuiText *)"_Complement", /* Text */
 493     0L, NULL, /* MutualExcl, SpecialInfo */
 494     2, /* GadgetID */
 495     NULL /* UserData */
 496 },
 497 ExitGadget =
 498 {
 499     &DemoGadget1, /* NextGadget */
 500     BORDER, -(GAD_HEI+BORDER), GAD_WID, GAD_HEI, /* hit box */
 501     GFLG_GADGHIMAGE
 502         | GFLG_LABELSTRING
 503         | GFLG_RELBOTTOM
 504         , /* Flags */
 505     GACT_RELVERIFY, /* Activation */
 506     GTYP_BOOLGADGET, /* Type */
 507     &DemoTopBorder, &DemoITopBorder, /* Render */
 508     (struct IntuiText *)"E_xit", /* Text */
 509     0L, NULL, /* MutualExcl, SpecialInfo */
 510     1, /* GadgetID */
 511     NULL /* UserData */
 512 };
 513
 514 int main (int argc, char ** argv)
 515 {
 516     struct Window * win;
 517     struct RastPort * rp;
 518     struct IntuiMessage * im;
 519     struct IOStdReq cioreq;
 520     struct InputEvent ievent =
 521     {
 522         NULL,
 523         IECLASS_RAWKEY,
 524         /* ... */
 525     };
 526     int cont, draw;
 527     int prop;
 528
 529     RT_Init ();
 530
 531     printf ("Welcome to the window demo of AROS\n");
 532
 533     GfxBase=(struct GfxBase *)OpenLibrary(GRAPHICSNAME,39);
 534     IntuitionBase=(struct IntuitionBase *)OpenLibrary(INTUITIONNAME,39);
 535
 536     if (!GfxBase)
 537     {
 538         fprintf (stderr, "Couldn't open %s\n", GRAPHICSNAME);
 539         goto end;
 540     }
 541
 542     if (!IntuitionBase)
 543     {
 544         fprintf (stderr, "Couldn't open %s\n", INTUITIONNAME);
 545         goto end;
 546     }
 547
 548     cioreq.io_Message.mn_Length = sizeof(struct IOStdReq);
 549
 550     OpenDevice ("console.device", -1, (struct IORequest *)&cioreq, 0);
 551     ConsoleDevice = cioreq.io_Device;
 552     printf ("Opening console.device=%p (%s)\n", ConsoleDevice,
 553         ConsoleDevice && ConsoleDevice->dd_Library.lib_Node.ln_Name ? ConsoleDevice->dd_Library.lib_Node.ln_Name : "(NULL)");
 554
 555     if (!ConsoleDevice)
 556     {
 557         fprintf (stderr, "Couldn't open console\n");
 558         return 10;
 559     }
 560
 561     frame = NewObject (NULL, FRAMEICLASS
 562         , IA_Width,  GAD_WID
 563         , IA_Height, GAD_HEI
 564         , TAG_END
 565     );
 566
 567     gadget = NewObject (NULL, FRBUTTONCLASS
 568         , GA_Left,      BORDER*2+GAD_WID
 569         , GA_RelBottom, -(GAD_HEI+BORDER)
 570         , GA_Width,     GAD_WID
 571         , GA_Height,    GAD_HEI
 572         , GA_Previous,  (IPTR)&DemoGadget12
 573         , GA_Text,      (IPTR)"_Exit"
 574         , GA_RelVerify, TRUE
 575         , GA_ID,        1
 576         , GA_Image,     (IPTR)frame
 577         , TAG_END
 578     );
 579
 580     win = OpenWindowTags (NULL
 581         , WA_Title,         (IPTR)"Open a window demo"
 582         , WA_Left,          100
 583         , WA_Top,           50
 584         , WA_Width,         640
 585         , WA_Height,        512
 586         , WA_DragBar,       TRUE
 587         , WA_CloseGadget,   TRUE
 588         , WA_DepthGadget,   TRUE
 589         , WA_IDCMP,         IDCMP_RAWKEY
 590                             | IDCMP_REFRESHWINDOW
 591                             | IDCMP_MOUSEBUTTONS
 592                             | IDCMP_MOUSEMOVE
 593                             | IDCMP_GADGETDOWN
 594                             | IDCMP_GADGETUP
 595                             | IDCMP_CLOSEWINDOW
 596         , WA_SimpleRefresh, TRUE
 597         , WA_Gadgets,       (IPTR)&ExitGadget
 598         , TAG_END
 599     );
 600     D(printf("OpenWindow win=%p\n", win));
 601
 602     if (!win)
 603     {
 604         fprintf (stderr, "Couldn't open window\n");
 605         return 10;
 606     }
 607
 608     rp = win->RPort;
 609
 610     DemoIText.LeftEdge = GAD_WID/2 - rp->Font->tf_XSize*2;
 611     DemoIText.TopEdge = GAD_HEI/2 - rp->Font->tf_YSize/2;
 612     RefreshGList(&DemoGadget4,win,NULL,1);
 613
 614     if (!gadget)
 615         printf ("Warning: Couldn't create gadget\n");
 616
 617     if (!frame)
 618         printf ("Warning: Couldn't create frame\n");
 619
 620     cont = 1;
 621     draw = 0;
 622     prop = 0;
 623
 624     /* Refresh the window contents */
 625     Refresh(win->RPort);
 626
 627     while (cont)
 628     {
 629         if ((im = (struct IntuiMessage *)GetMsg (win->UserPort)))
 630         {
 631             /* D("Got msg\n"); */
 632             switch (im->Class)
 633             {
 634             case IDCMP_CLOSEWINDOW:
 635                 cont = 0;
 636                 break;
 637
 638             case IDCMP_RAWKEY: {
 639                 UBYTE buf[10];
 640                 int   len;
 641                 int   t;
 642
 643                 ievent.ie_Code      = im->Code;
 644                 ievent.ie_Qualifier = im->Qualifier;
 645
 646                 len = RawKeyConvert (&ievent, buf, sizeof (buf), NULL);
 647
 648                 printf ("Key %s %3ld + Qual %08lx=\""
 649                     , (im->Code & 0x8000) ? "up  " : "down"
 650                     , (long)(im->Code & 0xFF)
 651                     , (unsigned long)im->Qualifier
 652                 );
 653
 654                 if (len < 0)
 655                 {
 656                     printf ("\" (buffer too short)");
 657                     break;
 658                 }
 659
 660                 for (t=0; t<len; t++)
 661                 {
 662                     if (buf[t] < 32 || (buf[t] >= 127 && buf[t] < 160))
 663                     {
 664                         switch (buf[t])
 665                         {
 666                         case '\n':
 667                             printf ("\\n");
 668                             break;
 669
 670                         case '\t':
 671                             printf ("\\t");
 672                             break;
 673
 674                         case '\b':
 675                             printf ("\\b");
 676                             break;
 677
 678                         case '\r':
 679                             printf ("\\r");
 680                             break;
 681
 682                         case 0x1B:
 683                             printf ("^[");
 684                             break;
 685
 686                         default:
 687                             printf ("\\x%02x", buf[t]);
 688                             break;
 689                         } /* switch */
 690                     }
 691                     else
 692                         putc (buf[t], stdout);
 693                 }
 694                 printf ("\"\n");
 695
 696                 if (*buf == '\x1b' && len == 1)
 697                 {
 698                     if (len == 1)
 699                         cont = 0;
 700                 }
 701
 702                 break; }
 703
 704             case IDCMP_MOUSEBUTTONS:
 705                 switch (im->Code)
 706                 {
 707                 case SELECTDOWN:
 708                     SetAPen (rp, 2);
 709                     Move (rp, im->MouseX, im->MouseY);
 710                     draw = 1;
 711                     break;
 712
 713                 case SELECTUP:
 714                     draw = 0;
 715                     break;
 716
 717                 case MIDDLEDOWN:
 718                     SetAPen (rp, 1);
 719                     Move (rp, im->MouseX, im->MouseY);
 720                     draw = 1;
 721                     break;
 722
 723                 case MIDDLEUP:
 724                     draw = 0;
 725                     break;
 726
 727                 case MENUDOWN:
 728                     SetAPen (rp, 3);
 729                     Move (rp, im->MouseX, im->MouseY);
 730                     draw = 1;
 731                     break;
 732
 733                 case MENUUP:
 734                     draw = 0;
 735                     break;
 736
 737                 }
 738
 739                 break;
 740
 741             case IDCMP_MOUSEMOVE:
 742                 if (draw)
 743                     Draw (rp, im->MouseX, im->MouseY);
 744
 745                 break;
 746
 747             case IDCMP_REFRESHWINDOW:
 748                 printf ("REFRESHWINDOW\n");
 749                 BeginRefresh (win);
 750                 Refresh (rp);
 751                 EndRefresh (win, TRUE);
 752                 break;
 753
 754             case IDCMP_GADGETDOWN: {
 755                 struct Gadget * gadget;
 756                 LONG pot;
 757
 758                 gadget = (struct Gadget *)im->IAddress;
 759
 760                 printf ("User pressed gadget %d\n", gadget->GadgetID);
 761
 762                 switch (gadget->GadgetID)
 763                 {
 764                 case 10: /* Up */
 765                     pot = DemoPropInfo3.VertPot - DemoPropInfo3.VertBody;
 766
 767                     if (pot < 0)
 768                         pot = 0;
 769
 770                     NewModifyProp (&DemoGadget7
 771                         , win
 772                         , NULL
 773                         , DemoPropInfo2.Flags
 774                         , DemoPropInfo2.HorizPot
 775                         , pot
 776                         , DemoPropInfo2.HorizBody
 777                         , DemoPropInfo2.VertBody
 778                         , 1
 779                     );
 780                     NewModifyProp (&DemoGadget8
 781                         , win
 782                         , NULL
 783                         , DemoPropInfo3.Flags
 784                         , DemoPropInfo3.HorizPot
 785                         , pot
 786                         , DemoPropInfo3.HorizBody
 787                         , DemoPropInfo3.VertBody
 788                         , 1
 789                     );
 790
 791                     break;
 792
 793                 case 11: /* Down */
 794                     pot = DemoPropInfo3.VertPot + DemoPropInfo3.VertBody;
 795
 796                     if (pot > MAXPOT)
 797                         pot = MAXPOT;
 798
 799                     NewModifyProp (&DemoGadget7
 800                         , win
 801                         , NULL
 802                         , DemoPropInfo2.Flags
 803                         , DemoPropInfo2.HorizPot
 804                         , pot
 805                         , DemoPropInfo2.HorizBody
 806                         , DemoPropInfo2.VertBody
 807                         , 1
 808                     );
 809                     NewModifyProp (&DemoGadget8
 810                         , win
 811                         , NULL
 812                         , DemoPropInfo3.Flags
 813                         , DemoPropInfo3.HorizPot
 814                         , pot
 815                         , DemoPropInfo3.HorizBody
 816                         , DemoPropInfo3.VertBody
 817                         , 1
 818                     );
 819
 820                     break;
 821
 822                 case 12: /* Right */
 823                     pot = DemoPropInfo1.HorizPot + DemoPropInfo1.HorizBody;
 824
 825                     if (pot > MAXPOT)
 826                         pot = MAXPOT;
 827
 828                     NewModifyProp (&DemoGadget6
 829                         , win
 830                         , NULL
 831                         , DemoPropInfo1.Flags
 832                         , pot
 833                         , DemoPropInfo1.VertPot
 834                         , DemoPropInfo1.HorizBody
 835                         , DemoPropInfo1.VertBody
 836                         , 1
 837                     );
 838                     NewModifyProp (&DemoGadget8
 839                         , win
 840                         , NULL
 841                         , DemoPropInfo3.Flags
 842                         , pot
 843                         , DemoPropInfo3.VertPot
 844                         , DemoPropInfo3.HorizBody
 845                         , DemoPropInfo3.VertBody
 846                         , 1
 847                     );
 848
 849                     break;
 850
 851                 case 13: /* Left */
 852                     pot = DemoPropInfo1.HorizPot - DemoPropInfo1.HorizBody;
 853
 854                     if (pot < 0)
 855                         pot = 0;
 856
 857                     NewModifyProp (&DemoGadget6
 858                         , win
 859                         , NULL
 860                         , DemoPropInfo1.Flags
 861                         , pot
 862                         , DemoPropInfo1.VertPot
 863                         , DemoPropInfo1.HorizBody
 864                         , DemoPropInfo1.VertBody
 865                         , 1
 866                     );
 867                     NewModifyProp (&DemoGadget8
 868                         , win
 869                         , NULL
 870                         , DemoPropInfo3.Flags
 871                         , pot
 872                         , DemoPropInfo3.VertPot
 873                         , DemoPropInfo3.HorizBody
 874                         , DemoPropInfo3.VertBody
 875                         , 1
 876                     );
 877
 878                     break;
 879
 880                 }
 881
 882                 break; }
 883
 884             case IDCMP_GADGETUP: {
 885                 struct Gadget * gadget;
 886
 887                 gadget = (struct Gadget *)im->IAddress;
 888
 889                 printf ("User released gadget %d\n", gadget->GadgetID);
 890
 891                 if (gadget->GadgetID == 1)
 892                     cont = 0;
 893                 else if (gadget->GadgetID == 2)
 894                 {
 895                     prop ++;
 896
 897                     switch (prop)
 898                     {
 899                     case 0:
 900                         NewModifyProp (&DemoGadget6, win, NULL,
 901                             DemoPropInfo1.Flags,
 902                             0, 0, MAXBODY, MAXBODY, 1);
 903                         NewModifyProp (&DemoGadget7, win, NULL,
 904                             DemoPropInfo2.Flags,
 905                             0, 0, MAXBODY, MAXBODY, 1);
 906                         NewModifyProp (&DemoGadget8, win, NULL,
 907                             DemoPropInfo3.Flags,
 908                             0, 0, MAXBODY, MAXBODY, 1);
 909                         break;
 910
 911                     case 1:
 912                         NewModifyProp (&DemoGadget6, win, NULL,
 913                             DemoPropInfo1.Flags,
 914                             0, 0, MAXBODY/2, MAXBODY, 1);
 915                         NewModifyProp (&DemoGadget7, win, NULL,
 916                             DemoPropInfo2.Flags,
 917                             0, 0, MAXBODY, MAXBODY/2, 1);
 918                         NewModifyProp (&DemoGadget8, win, NULL,
 919                             DemoPropInfo3.Flags,
 920                             0, 0, MAXBODY/2, MAXBODY/2, 1);
 921                         break;
 922
 923                     case 2:
 924                         NewModifyProp (&DemoGadget6, win, NULL,
 925                             DemoPropInfo1.Flags,
 926                             MAXPOT, 0, MAXBODY/2, MAXBODY, 1);
 927                         NewModifyProp (&DemoGadget7, win, NULL,
 928                             DemoPropInfo2.Flags,
 929                             0, MAXPOT, MAXBODY, MAXBODY/2, 1);
 930                         NewModifyProp (&DemoGadget8, win, NULL,
 931                             DemoPropInfo3.Flags,
 932                             MAXPOT, MAXPOT, MAXBODY/2, MAXBODY/2, 1);
 933                         break;
 934
 935                     default:
 936                         NewModifyProp (&DemoGadget6, win, NULL,
 937                             DemoPropInfo1.Flags,
 938                             0, 0, MAXBODY/9, MAXBODY, 1);
 939                         NewModifyProp (&DemoGadget7, win, NULL,
 940                             DemoPropInfo2.Flags,
 941                             0, 0, MAXBODY, MAXBODY/9, 1);
 942                         NewModifyProp (&DemoGadget8, win, NULL,
 943                             DemoPropInfo3.Flags,
 944                             0, 0, MAXBODY/9, MAXBODY/9, 1);
 945                         prop = -1;
 946                         break;
 947
 948                     }
 949                 }
 950
 951                 break; }
 952
 953             } /* switch */
 954
 955             ReplyMsg ((struct Message *)im);
 956         }
 957         else
 958         {
 959             /* D("Waiting\n"); */
 960             Wait (1L << win->UserPort->mp_SigBit);
 961         }
 962     }
 963
 964     D(bug("CloseWindow (%p)\n", win));
 965     CloseWindow (win);
 966
 967 end:
 968     if (gadget)
 969         DisposeObject (gadget);
 970
 971     if (frame)
 972         DisposeObject (frame);
 973
 974     if (GfxBase)
 975         CloseLibrary ((struct Library *)GfxBase);
 976
 977     if (IntuitionBase)
 978         CloseLibrary ((struct Library *)IntuitionBase);
 979
 980     if (ConsoleDevice)
 981         CloseDevice ((struct IORequest *)&cioreq);
 982
 983     RT_Exit ();
 984
 985     return 0;
 986 }