home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / cdity / EasyTM_src.lha / EasyTM-src / GadToolsBox.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-27  |  10.7 KB  |  381 lines
  1. /*
  2.  *  Source machine generated by GadToolsBox V2.0b
  3.  *  which is (c) Copyright 1991-1993 Jaba Development
  4.  *
  5.  *  GUI Designed by : Tak Tang
  6.  */
  7.  
  8. #include <exec/types.h>
  9. #include <intuition/intuition.h>
  10. #include <intuition/classes.h>
  11. #include <intuition/classusr.h>
  12. #include <intuition/imageclass.h>
  13. #include <intuition/gadgetclass.h>
  14. #include <libraries/gadtools.h>
  15. #include <graphics/displayinfo.h>
  16. #include <graphics/gfxbase.h>
  17. #include <clib/exec_protos.h>
  18. #include <clib/intuition_protos.h>
  19. #include <clib/gadtools_protos.h>
  20. #include <clib/graphics_protos.h>
  21. #include <clib/utility_protos.h>
  22. #include <string.h>
  23. #include <clib/diskfont_protos.h>
  24.  
  25. #include <pragmas/exec_pragmas.h>
  26. #include <pragmas/intuition_pragmas.h>
  27. #include <pragmas/gadtools_pragmas.h>
  28. #include <pragmas/graphics_pragmas.h>
  29. #include <pragmas/utility_pragmas.h>
  30.  
  31. #include "GadToolsBox.h"
  32.  
  33. struct Screen         *Scr = NULL;
  34. UBYTE                 *PubScreenName = NULL;
  35. APTR                   VisualInfo = NULL;
  36. struct Window         *ETMPWnd = NULL;
  37. struct Gadget         *ETMPGList = NULL;
  38. struct Menu           *ETMPMenus = NULL;
  39. struct IntuiMessage    ETMPMsg;
  40. UWORD                  ETMPZoom[4];
  41. struct Gadget         *ETMPGadgets[18];
  42. extern Class          *initGet( void );
  43. struct IClass         *getClass = NULL;
  44. struct _Object        *getImage = NULL;
  45. UWORD                  ETMPLeft = 10;
  46. UWORD                  ETMPTop = 15;
  47. UWORD                  ETMPWidth = 433;
  48. UWORD                  ETMPHeight = 152;
  49. UBYTE                 *ETMPWdt = (UBYTE *)"EasyTM Prefs";
  50. struct TextAttr       *Font, Attr;
  51. UWORD                  FontX, FontY;
  52. UWORD                  OffX, OffY;
  53. struct TextFont       *ETMPFont = NULL;
  54.  
  55. UBYTE *Env0Labels[] = {
  56.     (UBYTE *)"Workbench",
  57.     (UBYTE *)"CLI",
  58.     NULL };
  59.  
  60. UBYTE *Args0Labels[] = {
  61.     (UBYTE *)"None",
  62.     (UBYTE *)"Each",
  63.     (UBYTE *)"All",
  64.     NULL };
  65.  
  66. struct NewMenu ETMPNewMenu[] = {
  67.     NM_TITLE, (STRPTR)"Project", NULL, 0, NULL, NULL,
  68.     NM_ITEM, (STRPTR)"Open...", (STRPTR)"O", 0, 0L, (APTR)ETMPMENP_OPEN,
  69.     NM_ITEM, (STRPTR)"Save As...", (STRPTR)"A", 0, 0L, (APTR)ETMPMENP_SAVE,
  70.     NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  71.     NM_ITEM, (STRPTR)"About", (STRPTR)"?", 0, 0L, (APTR)ETMPMENP_ABOUT,
  72.     NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  73.     NM_ITEM, (STRPTR)"Quit", (STRPTR)"Q", 0, 0L, (APTR)ETMPMENP_QUIT,
  74.     NM_TITLE, (STRPTR)"Edit", NULL, 0, NULL, NULL,
  75.     NM_ITEM, (STRPTR)"Reset To Defaults", (STRPTR)"D", 0, 0L, (APTR)ETMPMENE_DEF,
  76.     NM_ITEM, (STRPTR)"Last Saved", (STRPTR)"L", 0, 0L, (APTR)ETMPMENE_LAST,
  77.     NM_ITEM, (STRPTR)"Restore", (STRPTR)"R", 0, 0L, (APTR)ETMPMENE_REST,
  78.     NM_TITLE, (STRPTR)"Settings", NULL, 0, NULL, NULL,
  79.     NM_ITEM, (STRPTR)"Create Icons?", (STRPTR)"I", CHECKIT|CHECKED|MENUTOGGLE, 0L, (APTR)ETMPMENS_ICON,
  80.     NM_END, NULL, NULL, 0, 0L, NULL };
  81.  
  82. UWORD ETMPGTypes[] = {
  83.     BUTTON_KIND,
  84.     BUTTON_KIND,
  85.     BUTTON_KIND,
  86.     BUTTON_KIND,
  87.     CYCLE_KIND,
  88.     GENERIC_KIND,
  89.     BUTTON_KIND,
  90.     BUTTON_KIND,
  91.     BUTTON_KIND,
  92.     BUTTON_KIND,
  93.     BUTTON_KIND,
  94.     STRING_KIND,
  95.     LISTVIEW_KIND,
  96.     STRING_KIND,
  97.     STRING_KIND,
  98.     INTEGER_KIND,
  99.     INTEGER_KIND,
  100.     CYCLE_KIND
  101. };
  102.  
  103. struct NewGadget ETMPNGad[] = {
  104.     28, 98, 38, 14, (UBYTE *)"New", NULL, GD_New, PLACETEXT_IN, NULL, (APTR)NewClicked,
  105.     66, 98, 38, 14, (UBYTE *)"Del", NULL, GD_Del, PLACETEXT_IN, NULL, (APTR)DelClicked,
  106.     105, 98, 38, 14, (UBYTE *)"Up", NULL, GD_Up, PLACETEXT_IN, NULL, (APTR)UpClicked,
  107.     143, 98, 38, 14, (UBYTE *)"Down", NULL, GD_Down, PLACETEXT_IN, NULL, (APTR)DownClicked,
  108.     266, 82, 131, 13, (UBYTE *)"_Env", NULL, GD_Env, PLACETEXT_LEFT, NULL, (APTR)EnvClicked,
  109.     377, 16, 20, 14, NULL, NULL, GD_GetFile, 0, NULL, (APTR)GetFileClicked,
  110.     340, 50, 57, 13, (UBYTE *)"Get", NULL, GD_GetS, PLACETEXT_IN, NULL, (APTR)GetSClicked,
  111.     340, 66, 57, 13, (UBYTE *)"Get", NULL, GD_GetP, PLACETEXT_IN, NULL, (APTR)GetPClicked,
  112.     28, 124, 77, 14, (UBYTE *)"Save", NULL, GD_Save, PLACETEXT_IN, NULL, (APTR)SaveClicked,
  113.     174, 124, 77, 14, (UBYTE *)"Use", NULL, GD_Use, PLACETEXT_IN, NULL, (APTR)UseClicked,
  114.     320, 124, 77, 14, (UBYTE *)"Cancel", NULL, GD_Cancel, PLACETEXT_IN, NULL, (APTR)CancelClicked,
  115.     28, 84, 153, 14, NULL, NULL, GD_Item, 0, NULL, (APTR)ItemClicked,
  116.     28, 16, 153, 88, (UBYTE *)"_Menu Items", NULL, GD_MenuItems, PLACETEXT_ABOVE|NG_HIGHLABEL, NULL, (APTR)MenuItemsClicked,
  117.     266, 16, 111, 14, (UBYTE *)"_Tool", NULL, GD_Tool, PLACETEXT_LEFT, NULL, (APTR)ToolClicked,
  118.     266, 33, 131, 14, (UBYTE *)"_Drawer", NULL, GD_Drawer, PLACETEXT_LEFT, NULL, (APTR)DrawerClicked,
  119.     266, 50, 74, 13, (UBYTE *)"_Stack", NULL, GD_Stack, PLACETEXT_LEFT, NULL, (APTR)StackClicked,
  120.     266, 66, 74, 13, (UBYTE *)"_Pri", NULL, GD_Pri, PLACETEXT_LEFT, NULL, (APTR)PriClicked,
  121.     266, 99, 131, 13, (UBYTE *)"Ar_gs", NULL, GD_Args, PLACETEXT_LEFT, NULL, (APTR)ArgsClicked
  122. };
  123.  
  124. ULONG ETMPGTags[] = {
  125.     (TAG_DONE),
  126.     (TAG_DONE),
  127.     (TAG_DONE),
  128.     (TAG_DONE),
  129.     (GTCY_Labels), (ULONG)&Env0Labels[ 0 ], (GT_Underscore), '_', (TAG_DONE),
  130.     (TAG_DONE),
  131.     (TAG_DONE),
  132.     (TAG_DONE),
  133.     (TAG_DONE),
  134.     (TAG_DONE),
  135.     (TAG_DONE),
  136.     (GTST_MaxChars), 64, (TAG_DONE),
  137.     (GTLV_ShowSelected), 1L, (GT_Underscore), '_', (TAG_DONE),
  138.     (GTST_MaxChars), 64, (GT_Underscore), '_', (TAG_DONE),
  139.     (GTST_MaxChars), 256, (GT_Underscore), '_', (TAG_DONE),
  140.     (GTIN_Number), 4096, (GTIN_MaxChars), 10, (GT_Underscore), '_', (TAG_DONE),
  141.     (GTIN_Number), 0, (GTIN_MaxChars), 4, (GT_Underscore), '_', (TAG_DONE),
  142.     (GTCY_Labels), (ULONG)&Args0Labels[ 0 ], (GT_Underscore), '_', (TAG_DONE)
  143. };
  144.  
  145. static UWORD ComputeX( UWORD value )
  146. {
  147.     return(( UWORD )((( FontX * value ) + 4 ) / 8 ));
  148. }
  149.  
  150. static UWORD ComputeY( UWORD value )
  151. {
  152.     return(( UWORD )((( FontY * value ) + 4 ) / 8 ));
  153. }
  154.  
  155. static void ComputeFont( UWORD width, UWORD height )
  156. {
  157.     Forbid();
  158.     Font = &Attr;
  159.     Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
  160.     Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
  161.     FontX = GfxBase->DefaultFont->tf_XSize;
  162.     Permit();
  163.  
  164.     OffX = Scr->WBorLeft;
  165.     OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
  166.  
  167.     if ( width && height ) {
  168.         if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
  169.             goto UseTopaz;
  170.         if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
  171.             goto UseTopaz;
  172.     }
  173.     return;
  174.  
  175. UseTopaz:
  176.     Font->ta_Name = (STRPTR)"topaz.font";
  177.     FontX = FontY = Font->ta_YSize = 8;
  178. }
  179.  
  180. int SetupScreen( void )
  181. {
  182.     if ( ! ( Scr = LockPubScreen( PubScreenName )))
  183.         return( 1L );
  184.  
  185.     ComputeFont( 0, 0 );
  186.  
  187.     if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
  188.         return( 2L );
  189.  
  190.     if ( ! ( getClass = initGet()))
  191.         return( 3L );
  192.  
  193.     if ( ! ( getImage = NewObject( getClass, NULL, GT_VisualInfo, VisualInfo, TAG_DONE )))
  194.         return( 4L );
  195.  
  196.     return( 0L );
  197. }
  198.  
  199. void CloseDownScreen( void )
  200. {
  201.     if ( getImage   ) {
  202.         DisposeObject( getImage );
  203.         getImage = NULL;
  204.     }
  205.  
  206.     if ( getClass   ) {
  207.         FreeClass( getClass );
  208.         getClass = NULL;
  209.     }
  210.  
  211.     if ( VisualInfo ) {
  212.         FreeVisualInfo( VisualInfo );
  213.         VisualInfo = NULL;
  214.     }
  215.  
  216.     if ( Scr        ) {
  217.         UnlockPubScreen( NULL, Scr );
  218.         Scr = NULL;
  219.     }
  220. }
  221.  
  222. int HandleETMPIDCMP( void )
  223. {
  224.     struct IntuiMessage    *m;
  225.     struct MenuItem        *n;
  226.     int            (*func)(void);
  227.     BOOL            running = TRUE;
  228.  
  229.     while( m = GT_GetIMsg( ETMPWnd->UserPort )) {
  230.  
  231.         CopyMem(( char * )m, ( char * )&ETMPMsg, (long)sizeof( struct IntuiMessage ));
  232.  
  233.         GT_ReplyIMsg( m );
  234.  
  235.         switch ( ETMPMsg.Class ) {
  236.  
  237.             case    IDCMP_REFRESHWINDOW:
  238.                 GT_BeginRefresh( ETMPWnd );
  239.                 GT_EndRefresh( ETMPWnd, TRUE );
  240.                 break;
  241.  
  242.             case    IDCMP_CLOSEWINDOW:
  243.                 running = ETMPCloseWindow();
  244.                 break;
  245.  
  246.             case    IDCMP_GADGETUP:
  247.             case    IDCMP_GADGETDOWN:
  248.                 func = ( int (*)(void) )(( struct Gadget * )ETMPMsg.IAddress )->UserData;
  249.                 running = func();
  250.                 break;
  251.  
  252.             case    IDCMP_MENUPICK:
  253.                 while( ETMPMsg.Code != MENUNULL ) {
  254.                     n = ItemAddress( ETMPMenus, ETMPMsg.Code );
  255.                     func = ( int (*)(void) )(GTMENUITEM_USERDATA( n ));
  256.                     running = func();
  257.                     ETMPMsg.Code = n->NextSelect;
  258.                 }
  259.                 break;
  260.         }
  261.     }
  262.     return( running );
  263. }
  264.  
  265. int OpenETMPWindow( void )
  266. {
  267.     struct NewGadget    ng;
  268.     struct Gadget    *g;
  269.     struct TagItem    *tmp;
  270.     UWORD        lc, tc;
  271.     UWORD        wleft = ETMPLeft, wtop = ETMPTop, ww, wh;
  272.  
  273.     ComputeFont( ETMPWidth, ETMPHeight );
  274.  
  275.     ww = ComputeX( ETMPWidth );
  276.     wh = ComputeY( ETMPHeight );
  277.  
  278.     if (( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width ) wleft = Scr->Width - ww;
  279.     if (( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height ) wtop = Scr->Height - wh;
  280.  
  281.     if ( ! ( ETMPFont = OpenDiskFont( Font )))
  282.         return( 5L );
  283.  
  284.     if ( ! ( g = CreateContext( &ETMPGList )))
  285.         return( 1L );
  286.  
  287.     for( lc = 0, tc = 0; lc < ETMP_CNT; lc++ ) {
  288.  
  289.         CopyMem((char * )&ETMPNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
  290.  
  291.         ng.ng_VisualInfo = VisualInfo;
  292.         ng.ng_TextAttr   = Font;
  293.         ng.ng_LeftEdge   = OffX + ComputeX( ng.ng_LeftEdge );
  294.         ng.ng_TopEdge    = OffY + ComputeY( ng.ng_TopEdge );
  295.  
  296.         if ( ETMPGTypes[ lc ] != GENERIC_KIND ) {
  297.             ng.ng_Width      = ComputeX( ng.ng_Width );
  298.             ng.ng_Height     = ComputeY( ng.ng_Height);
  299.         }
  300.  
  301.         if ( ETMPGTypes[ lc ] == LISTVIEW_KIND ) {
  302.             if ( tmp = FindTagItem( GTLV_ShowSelected, ( struct TagItem * )&ETMPGTags[ tc ] )) {
  303.                 if ( tmp->ti_Data ) tmp->ti_Data = (ULONG)g;
  304.             }
  305.         }
  306.  
  307.         ETMPGadgets[ lc ] = g = CreateGadgetA((ULONG)ETMPGTypes[ lc ], g, &ng, ( struct TagItem * )&ETMPGTags[ tc ] );
  308.  
  309.         if ( ETMPGTypes[ lc ] == GENERIC_KIND ) {
  310.             g->Flags             |= GFLG_GADGIMAGE | GFLG_GADGHIMAGE;
  311.             g->Activation        |= GACT_RELVERIFY;
  312.             g->GadgetRender       = (APTR)getImage;
  313.             g->SelectRender       = (APTR)getImage;
  314.         }
  315.  
  316.         while( ETMPGTags[ tc ] ) tc += 2;
  317.         tc++;
  318.  
  319.         if ( NOT g )
  320.             return( 2L );
  321.     }
  322.  
  323.     if ( ! ( ETMPMenus = CreateMenus( ETMPNewMenu, /*GTMN_FrontPen, 0L,*/ TAG_DONE )))
  324.         return( 3L );
  325.  
  326.     LayoutMenus( ETMPMenus, VisualInfo, GTMN_NewLookMenus, 1L, TAG_DONE );
  327.  
  328.     ETMPZoom[0] = ETMPLeft;
  329.     ETMPZoom[1] = ETMPTop;
  330.     if ( ETMPWdt )
  331.         ETMPZoom[2] = TextLength( &Scr->RastPort, (UBYTE *)ETMPWdt, strlen((char *)ETMPWdt )) + 80;
  332.     else
  333.         ETMPZoom[2]  = 80L;
  334.         ETMPZoom[3] = Scr->WBorTop + Scr->RastPort.TxHeight + 1;
  335.  
  336.     if ( ! ( ETMPWnd = OpenWindowTags( NULL,
  337.                 WA_Left,    wleft,
  338.                 WA_Top,        wtop,
  339.                 WA_Width,    ww + OffX + Scr->WBorRight,
  340.                 WA_Height,    wh + OffY + Scr->WBorBottom,
  341.                 WA_IDCMP,    BUTTONIDCMP|CYCLEIDCMP|IDCMP_GADGETUP|STRINGIDCMP|LISTVIEWIDCMP|INTEGERIDCMP|IDCMP_MENUPICK|IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW,
  342.                 WA_Flags,    WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH|WFLG_ACTIVATE|WFLG_NEWLOOKMENUS,
  343.                 WA_Gadgets,    ETMPGList,
  344.                 WA_Title,    ETMPWdt,
  345.                 WA_ScreenTitle,    "EasyTM Prefs",
  346.                 WA_PubScreen,    Scr,
  347.                 WA_Zoom,    ETMPZoom,
  348.                 WA_AutoAdjust,    TRUE,
  349.                 WA_PubScreenFallBack,    TRUE,
  350.                 TAG_DONE )))
  351.     return( 4L );
  352.  
  353.     SetMenuStrip( ETMPWnd, ETMPMenus );
  354.     GT_RefreshWindow( ETMPWnd, NULL );
  355.  
  356.     return( 0L );
  357. }
  358.  
  359. void CloseETMPWindow( void )
  360. {
  361.     if ( ETMPMenus      ) {
  362.         ClearMenuStrip( ETMPWnd );
  363.         FreeMenus( ETMPMenus );
  364.         ETMPMenus = NULL;    }
  365.  
  366.     if ( ETMPWnd        ) {
  367.         CloseWindow( ETMPWnd );
  368.         ETMPWnd = NULL;
  369.     }
  370.  
  371.     if ( ETMPGList      ) {
  372.         FreeGadgets( ETMPGList );
  373.         ETMPGList = NULL;
  374.     }
  375.  
  376.     if ( ETMPFont ) {
  377.         CloseFont( ETMPFont );
  378.         ETMPFont = NULL;
  379.     }
  380. }
  381.