mlib update: modify new files to compile on aros
[tangerine.git] / test / textbug.c
blobd9aaed9edbee59afe98e768a7061c262db5043e3
1 #include <proto/exec.h>
2 #include <proto/intuition.h>
3 #include <proto/keymap.h>
4 #include <proto/graphics.h>
5 #include <stdio.h>
6 #include <stdlib.h>
7 #include <string.h>
8 #include <exec/execbase.h>
10 static void dotest(void)
12 struct Window *win;
13 struct IntuiMessage *msg;
14 BOOL quitme = FALSE;
16 win = OpenWindowTags(NULL, WA_Left, 20,
17 WA_Top, 20,
18 WA_Width, 300,
19 WA_Height, 100,
20 WA_Activate, TRUE,
21 WA_CloseGadget, TRUE,
22 WA_DepthGadget, TRUE,
23 WA_Title, (IPTR)"TextBug",
24 WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_RAWKEY,
25 TAG_DONE);
26 if (!win)
28 return;
31 SetSoftStyle(win->RPort, FSF_BOLD, AskSoftStyle(win->RPort));
32 SetAPen(win->RPort, 2);
33 SetBPen(win->RPort, 1);
34 #if 1
35 SetDrMd(win->RPort, JAM2);
36 Move(win->RPort, -20, 40);
37 Text(win->RPort, "1234567890", 10);
38 Move(win->RPort, 120, 40);
39 Text(win->RPort, "1234567890", 10);
41 SetDrMd(win->RPort, JAM1);
42 Move(win->RPort, -20, 60);
43 Text(win->RPort, "1234567890", 10);
44 Move(win->RPort, 120, 60);
45 Text(win->RPort, "1234567890", 10);
47 #endif
48 RefreshWindowFrame(win);
50 while(!quitme)
52 WaitPort(win->UserPort);
53 while((msg = (struct IntuiMessage *)GetMsg(win->UserPort)))
55 switch(msg->Class)
57 case IDCMP_CLOSEWINDOW:
58 quitme = TRUE;
59 break;
62 ReplyMsg((struct Message *)msg);
66 CloseWindow(win);
69 int main(int argc, char **argv)
71 dotest();
72 return 0;