home *** CD-ROM | disk | FTP | other *** search
- #include "WBTRIS.h"
-
- #define GD_Gadget00 0
- #define GDX_Gadget00 0
- #define Project0_CNT 1
-
- extern struct Screen *myscreen;
- extern APTR VisualInfo;
- struct Window *Project0Wnd = NULL;
- struct Gadget *Project0GList = NULL;
- struct Gadget *Project0Gadgets[1];
- struct Gadget *g = NULL;
- UWORD Project0Left = 68;
- UWORD Project0Top = 127;
- UWORD Project0Width = 225;
- UWORD Project0Height = 61;
- UBYTE *Project0Wdt = NULL; /*(UBYTE *)"Give me your name";*/
-
- extern struct TextAttr helvetica13;
-
- UWORD Project0GTypes[] = {
- STRING_KIND
- };
-
- struct NewGadget Project0NGad[] = {
- 29, 17, 156, 21, (UBYTE *)"Enter you name", NULL, GD_Gadget00, PLACETEXT_ABOVE ,NULL, NULL
- };
-
- ULONG Project0GTags[] = {
- (GTST_MaxChars), 25, (TAG_DONE)
- };
-
- int OpenProject0Window( void )
- {
- struct NewGadget ng;
- UWORD lc, tc;
- UWORD offx = myscreen->WBorLeft, offy = myscreen->WBorTop + myscreen->RastPort.TxHeight + 1;
-
- if ( ! ( g = CreateContext( &Project0GList )))
- return( 1L );
-
- for( lc = 0, tc = 0; lc < Project0_CNT; lc++ ) {
-
- CopyMem((char * )&Project0NGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
-
- ng.ng_VisualInfo = VisualInfo;
- ng.ng_TextAttr = &helvetica13;
- ng.ng_LeftEdge += offx;
- ng.ng_TopEdge += offy;
-
- Project0Gadgets[ lc ] = g = CreateGadgetA((ULONG)Project0GTypes[ lc ], g, &ng, ( struct TagItem * )&Project0GTags[ tc ] );
-
- while( Project0GTags[ tc ] ) tc += 2;
- tc++;
-
- if ( NOT g )
- return( 2L );
- }
-
- if ( ! ( Project0Wnd = OpenWindowTags( NULL,
- WA_Left, Project0Left,
- WA_Top, Project0Top,
- WA_Width, Project0Width,
- WA_Height, Project0Height + offy,
- WA_IDCMP, STRINGIDCMP | IDCMP_REFRESHWINDOW | IDCMP_ACTIVEWINDOW,
- WA_Flags, WFLG_SMART_REFRESH | WFLG_ACTIVATE,
- WA_Gadgets, Project0GList,
- WA_Title, Project0Wdt,
- TAG_DONE )))
- return( 4L );
-
- GT_RefreshWindow( Project0Wnd, NULL );
-
- return( 0L );
- }
-
- void CloseProject0Window( void )
- {
- if ( Project0Wnd ) {
- CloseWindow( Project0Wnd );
- Project0Wnd = NULL;
- }
-
- if ( Project0GList ) {
- FreeGadgets( Project0GList );
- Project0GList = NULL;
- }
- }
-
-
-
-
- void AskForName(void)
- {
- BOOL Done = FALSE;
- struct IntuiMessage *imsg = NULL;
- extern struct RastPort *rp;
- extern short MAINXOFFSET;
- extern short boxxsize;
- extern short boxysize;
- extern BOOL UseLace;
- extern char Name[25];
-
-
- OpenProject0Window();
-
- while(!Done)
- {
- Wait(1L << Project0Wnd->UserPort->mp_SigBit);
-
- while (imsg = (struct IntuiMessage *)GetMsg(Project0Wnd->UserPort)) {
- switch(imsg->Class) {
- case IDCMP_ACTIVEWINDOW:
- ActivateGadget(Project0Gadgets[0], Project0Wnd, NULL);
- break;
- case IDCMP_REFRESHWINDOW:
- GT_BeginRefresh(Project0Wnd);
- GT_EndRefresh(Project0Wnd, TRUE);
- break;
-
- case IDCMP_GADGETUP:
- if (g->GadgetID == GD_Gadget00)
- if (strlen(((struct StringInfo *)g->SpecialInfo)->Buffer) != 0) {
- strcpy(Name, ((struct StringInfo *)g->SpecialInfo)->Buffer);
- Done = TRUE;
- } else
- ActivateGadget(Project0Gadgets[0], Project0Wnd, NULL);
- break;
- }
- ReplyMsg((struct Message *) imsg);
- }
- }
-
- CloseProject0Window();
- }
-