home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Sound / MidI / SYNTHLIB.LHA / Synth_Librarian / sources / SynthLib / SynthLibInt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-20  |  13.2 KB  |  356 lines
  1. /**************************************************************/
  2. /* $VER: SynthLibInt.c Revison 1.1                            */
  3. /* This file is part of Synth Librarian v1.1                  */
  4. /* ©1993-1994 Jean-Alexis MONTIGNIES                          */
  5. /* This file must not be distributed modified or separatly    */
  6. /* without my written permission                              */
  7. /* See Synth_Librarian.guide for more details                 */
  8. /**************************************************************/
  9.  
  10. /* Synth librarian main window interface */
  11. /*
  12.  *  Source machine generated by GadToolsBox V1.4
  13.  *  which is (c) Copyright 1991,92 Jaba Development
  14.  */
  15. /* Modified by hand : localized, keyboard shortcut handling */
  16.  
  17. #include <exec/types.h>
  18. #include <intuition/intuition.h>
  19. #include <intuition/classes.h>
  20. #include <intuition/classusr.h>
  21. #include <intuition/imageclass.h>
  22. #include <intuition/gadgetclass.h>
  23. #include <libraries/gadtools.h>
  24. #include <graphics/displayinfo.h>
  25. #include <graphics/gfxbase.h>
  26. #include <clib/exec_protos.h>
  27. #include <clib/intuition_protos.h>
  28. #include <clib/gadtools_protos.h>
  29. #include <clib/graphics_protos.h>
  30. #include <clib/utility_protos.h>
  31. #include <string.h>
  32. #include <libraries/locale.h>
  33.  
  34. #include "SynthLibInt.h"
  35. #define CATCOMP_NUMBERS
  36. #include "SynthLibLoc.h"
  37. STRPTR GetString(struct LocaleInfo *li, LONG stringNum,char *CatCompBlock);
  38. extern struct LocaleInfo MLi;
  39. extern char MainCatBlock[];
  40.  
  41. struct Screen         *Scr = NULL;
  42. UBYTE                 *PubScreenName = "Workbench";
  43. APTR                   VisualInfo = NULL;
  44. struct Window         *LibWnd = NULL;
  45. struct Gadget         *LibGList = NULL;
  46. struct Menu           *LibMenus = NULL;
  47. struct IntuiMessage    LibMsg;
  48. struct Gadget         *LibGadgets[10];
  49. UWORD                  LibLeft = 84;
  50. UWORD                  LibTop = 18;
  51. UWORD                  LibWidth = 469;
  52. UWORD                  LibHeight = 156;
  53. struct TextAttr       *Font, Attr;
  54. UWORD                  FontX, FontY;
  55. UWORD                  OffX, OffY;
  56. STRPTR                 Shortcuts;
  57.  
  58. struct NewMenu LibNewMenu[] = {
  59.         NM_TITLE, (STRPTR)MG_MENU_PROJECT, NULL, 0, NULL, NULL,
  60.         NM_ITEM, (STRPTR)MG_MENU_P_NEW, NULL, 0, 0L, (APTR)LibNew,
  61.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  62.         NM_ITEM, (STRPTR)MG_MENU_P_OPEN, NULL, 0, 0L, (APTR)OpenLib,
  63.         NM_ITEM, (STRPTR)MG_MENU_P_OPEN_RAW, NULL, 0, 0L, (APTR)OpenLibRaw,
  64.         NM_ITEM, (STRPTR)MG_MENU_P_SAVE, NULL, 0, 0L, (APTR)SaveLib,
  65.         NM_ITEM, (STRPTR)MG_MENU_P_SAVE_AS, NULL, 0, 0L, (APTR)SaveAsLib,
  66.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  67.         NM_ITEM, (STRPTR)MG_MENU_P_ABOUT, NULL, 0, 0L, (APTR)AboutLib,
  68.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  69.         NM_ITEM, (STRPTR)MG_MENU_P_QUIT, NULL, 0, 0L, (APTR)LibCloseWindow,
  70.         NM_TITLE, (STRPTR)MG_MENU_DATA, NULL, 0, NULL, NULL,
  71.         NM_ITEM, (STRPTR)MG_MENU_D_REMOVE, NULL, 0, 0L, (APTR)RemoveLib,
  72.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  73.         NM_ITEM, (STRPTR)MG_MENU_D_SAVE, NULL, 0, 0L, (APTR)SaveDumpLib,
  74.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  75.         NM_ITEM, (STRPTR)MG_MENU_D_SEND, NULL, 0, 0L, (APTR)SENDClicked,
  76.         NM_TITLE, (STRPTR)MG_MENU_DRIVER, NULL, 0, NULL, NULL,
  77.         NM_ITEM, (STRPTR)MG_MENU_DR_NEW, NULL, 0, 0L, (APTR)NewDriver,
  78.         NM_ITEM, (STRPTR)NM_BARLABEL, NULL, 0, 0L, NULL,
  79.         NM_ITEM, (STRPTR)MG_MENU_DR_ABOUT, NULL, 0, 0L, (APTR)AboutDriver,
  80.         NM_END, NULL, NULL, 0, 0L, NULL };
  81.  
  82. UWORD LibGTypes[] = {
  83.         STRING_KIND,
  84.         LISTVIEW_KIND,
  85.         BUTTON_KIND,
  86.         TEXT_KIND,
  87.         CHECKBOX_KIND,
  88.         TEXT_KIND,
  89.         NUMBER_KIND,
  90.         LISTVIEW_KIND,
  91.         BUTTON_KIND,
  92.         BUTTON_KIND
  93. };
  94.  
  95. struct NewGadget LibNGad[] = {
  96.         10, 102, 279, 14, NULL, NULL, GD_NodeName, 0, NULL, (APTR)NodeNameClicked,
  97.         10, 13, 279, 72, (UBYTE *)MG_GAD_DATA, NULL, GD_DataNodes, PLACETEXT_ABOVE|NG_HIGHLABEL, NULL, (APTR)DataNodesClicked,
  98.         181, 90, 107, 15, (UBYTE *)MG_GAD_SEND, NULL, GD_SEND, PLACETEXT_IN, NULL, (APTR)SENDClicked,
  99.         9, 140, 448, 12, (UBYTE *)MG_GAD_INFO, NULL, GD_Info, PLACETEXT_ABOVE, NULL, NULL,
  100.         24, 120, 26, 11, (UBYTE *)MG_GAD_SERIAL, NULL, GD_SERIAL, PLACETEXT_RIGHT, NULL, (APTR)SERIALClicked,
  101.         79, 91, 100, 13, (UBYTE *)MG_GAD_TYPE, NULL, GD_DUMP_TYPE, PLACETEXT_LEFT, NULL, NULL,
  102.         79, 103, 115, 13, (UBYTE *)MG_GAD_SIZE, NULL, GD_DUMP_LENGTH, PLACETEXT_LEFT, NULL, NULL,
  103.         301, 14, 159, 72, (UBYTE *)MG_GAD_DATA_TYPES, NULL, GD_TypeList, PLACETEXT_ABOVE, NULL, (APTR)TypeListClicked,
  104.         331, 90, 107, 15, (UBYTE *)MG_GAD_REQUEST, NULL, GD_Request, PLACETEXT_IN, NULL, (APTR)RequestClicked,
  105.         181, 110, 107, 15, (UBYTE *)MG_GAD_ABORT, NULL, GD_Abort, PLACETEXT_IN, NULL, (APTR)AbortClicked
  106. };
  107.  
  108. ULONG LibGTags[] = {
  109.         (GA_TabCycle), FALSE, (GTST_String),0L, (GTST_MaxChars), 256, (TAG_DONE),
  110.         (GTLV_ShowSelected), 1L, (TAG_DONE),
  111.         (GT_Underscore), '_', (GA_Disabled), TRUE, (TAG_DONE),
  112.         (GTTX_Border), TRUE, (TAG_DONE),
  113.         (GT_Underscore), '_',(GA_Disabled), TRUE, (TAG_DONE),
  114.         (GTTX_Text), NULL, (TAG_DONE),
  115.         (TAG_DONE),
  116.         (GTLV_ShowSelected), NULL, (TAG_DONE),
  117.         (GT_Underscore), '_', (GA_Disabled), TRUE, (TAG_DONE),
  118.         (GT_Underscore), '_', (TAG_DONE)
  119. };
  120.  
  121. static UWORD ComputeX( UWORD value )
  122. {
  123.         return(( UWORD )((( FontX * value ) + 4 ) / 8 ));
  124. }
  125.  
  126. static UWORD ComputeY( UWORD value )
  127. {
  128.         return(( UWORD )((( FontY * value ) + 4 ) / 8 ));
  129. }
  130.  
  131. static void ComputeFont( UWORD width, UWORD height )
  132. {
  133.         Font = &Attr;
  134.         Font->ta_Name = (STRPTR)GfxBase->DefaultFont->tf_Message.mn_Node.ln_Name;
  135.         Font->ta_YSize = FontY = GfxBase->DefaultFont->tf_YSize;
  136.         FontX = GfxBase->DefaultFont->tf_XSize;
  137.  
  138.         OffX = Scr->WBorLeft;
  139.         OffY = Scr->RastPort.TxHeight + Scr->WBorTop + 1;
  140.  
  141.         if ( width && height ) {
  142.                 if (( ComputeX( width ) + OffX + Scr->WBorRight ) > Scr->Width )
  143.                         goto UseTopaz;
  144.                 if (( ComputeY( height ) + OffY + Scr->WBorBottom ) > Scr->Height )
  145.                         goto UseTopaz;
  146.         }
  147.         return;
  148.  
  149. UseTopaz:
  150.         Font->ta_Name = (STRPTR)"topaz.font";
  151.         FontX = FontY = Font->ta_YSize = 8;
  152. }
  153.  
  154. int SetupScreen( void )
  155. {
  156.         if ( ! ( Scr = LockPubScreen( PubScreenName )))
  157.                 return( 1L );
  158.  
  159.         ComputeFont( 0, 0 );
  160.  
  161.         if ( ! ( VisualInfo = GetVisualInfo( Scr, TAG_DONE )))
  162.                 return( 2L );
  163.  
  164.         return( 0L );
  165. }
  166.  
  167. void CloseDownScreen( void )
  168. {
  169.         if ( VisualInfo ) {
  170.                 FreeVisualInfo( VisualInfo );
  171.                 VisualInfo = NULL;
  172.         }
  173.  
  174.         if ( Scr        ) {
  175.                 UnlockPubScreen( NULL, Scr );
  176.                 Scr = NULL;
  177.         }
  178. }
  179.  
  180. int HandleLibIDCMP( void )
  181. {
  182.         struct IntuiMessage     *m;
  183.         struct MenuItem         *n;
  184.         int                     (*func)();
  185.         BOOL                    running = TRUE;
  186.  
  187.         while( m = GT_GetIMsg( LibWnd->UserPort )) {
  188.  
  189.                 CopyMem(( char * )m, ( char * )&LibMsg, (long)sizeof( struct IntuiMessage ));
  190.  
  191.                 GT_ReplyIMsg( m );
  192.  
  193.                 switch ( LibMsg.Class ) {
  194.  
  195.                         case    IDCMP_MOUSEBUTTONS:
  196.                                 AknowledgeMessage();
  197.  
  198.                                 break;
  199.  
  200.                         case    IDCMP_REFRESHWINDOW:
  201.                                 GT_BeginRefresh( LibWnd );
  202.                                 GT_EndRefresh( LibWnd, TRUE );
  203.                                 break;
  204.  
  205.                         case    IDCMP_CLOSEWINDOW:
  206.                                 running = LibCloseWindow();
  207.                                 break;
  208.  
  209.                         case    IDCMP_GADGETUP:
  210.                         case    IDCMP_GADGETDOWN:
  211.                                 func = ( void * )(( struct Gadget * )LibMsg.IAddress )->UserData;
  212.                                 running = func();
  213.                                 break;
  214.  
  215.                         case    IDCMP_MENUPICK:
  216.                                 while( LibMsg.Code != MENUNULL ) {
  217.                                         n = ItemAddress( LibMenus, LibMsg.Code );
  218.                                         func = (void *)(GTMENUITEM_USERDATA( n ));
  219.                                         running = func();
  220.                                         LibMsg.Code = n->NextSelect;
  221.                                 }
  222.                                 break;
  223.  
  224.                         case    IDCMP_VANILLAKEY:
  225.                                 if ((LibMsg.Code!='-') && (LibMsg.Code))
  226.                                  {char *p;
  227.                                   int num;
  228.  
  229.                                   if (p=strchr(Shortcuts,LibMsg.Code))
  230.                                    {num=p-Shortcuts;
  231.                                     func=LibNGad[num].ng_UserData;
  232.                                     running= func();
  233.                                    }
  234.                                  }
  235.                                  break;
  236.                 }
  237.         }
  238.         return( running );
  239. }
  240.  
  241. int OpenLibWindow( void )
  242. {
  243.         struct NewGadget        ng;
  244.         struct Gadget   *g;
  245.         struct TagItem  *tmp;
  246.         UWORD           lc, tc;
  247.         UWORD           wleft = LibLeft, wtop = LibTop, ww, wh;
  248.  
  249.         ComputeFont( LibWidth, LibHeight );
  250.  
  251.         ww = ComputeX( LibWidth );
  252.         wh = ComputeY( LibHeight );
  253.  
  254.         if (( wleft + ww + OffX + Scr->WBorRight ) > Scr->Width ) wleft = Scr->Width - ww;
  255.         if (( wtop + wh + OffY + Scr->WBorBottom ) > Scr->Height ) wtop = Scr->Height - wh;
  256.  
  257.         if ( ! ( g = CreateContext( &LibGList )))
  258.                 return( 1L );
  259.  
  260.         for( lc = 0, tc = 0; lc < Lib_CNT; lc++ ) {
  261.  
  262.                 CopyMem((char * )&LibNGad[ lc ], (char * )&ng, (long)sizeof( struct NewGadget ));
  263.  
  264.                 ng.ng_VisualInfo = VisualInfo;
  265.                 ng.ng_TextAttr   = Font;
  266.                 ng.ng_LeftEdge   = OffX + ComputeX( ng.ng_LeftEdge );
  267.                 ng.ng_TopEdge    = OffY + ComputeY( ng.ng_TopEdge );
  268.                 ng.ng_Width      = ComputeX( ng.ng_Width );
  269.                 ng.ng_Height     = ComputeY( ng.ng_Height);
  270.  
  271.                 if (ng.ng_GadgetText)
  272.                   ng.ng_GadgetText=GetString(&MLi,(ULONG)ng.ng_GadgetText,MainCatBlock);
  273.  
  274.                 if ( LibGTypes[ lc ] == LISTVIEW_KIND ) {
  275.                         if ( tmp = FindTagItem( GTLV_ShowSelected, ( struct TagItem * )&LibGTags[ tc ] )) {
  276.                                 if ( tmp->ti_Data ) tmp->ti_Data = (ULONG)g;
  277.                         }
  278.                 }
  279.  
  280.                 LibGadgets[ lc ] = g = CreateGadgetA((ULONG)LibGTypes[ lc ], g, &ng, ( struct TagItem * )&LibGTags[ tc ] );
  281.  
  282.                 while( LibGTags[ tc ] ) tc += 2;
  283.                 tc++;
  284.  
  285.                 if ( NOT g )
  286.                         return( 2L );
  287.         }
  288.  
  289.         {
  290.            struct NewMenu *ANewMenu;
  291.            char *ShortCut;
  292.  
  293.            ANewMenu=LibNewMenu;
  294.            ShortCut=GetString(&MLi,MG_SHORTCUTS_MENUS,MainCatBlock);
  295.  
  296.            while (ANewMenu->nm_Type!=NM_END)
  297.             {if (ANewMenu->nm_Label!=NM_BARLABEL)
  298.               {
  299.                ANewMenu->nm_Label=GetString(&MLi,(ULONG)ANewMenu->nm_Label,MainCatBlock);
  300.                if (ANewMenu->nm_Type!=NM_TITLE)
  301.                 {if (*ShortCut)
  302.                    ANewMenu->nm_CommKey=ShortCut;
  303.                  ShortCut+=strlen(ShortCut)+1;
  304.                 }
  305.               }
  306.              ANewMenu++;
  307.             }
  308.         }
  309.  
  310.         if ( ! ( LibMenus = CreateMenus( LibNewMenu, GTMN_FrontPen,0L,TAG_DONE )))
  311.                 return( 3L );
  312.  
  313.         LayoutMenus( LibMenus, VisualInfo, GTMN_NewLookMenus, TRUE,TAG_DONE );
  314.  
  315.         if ( ! ( LibWnd = OpenWindowTags( NULL,
  316.                                 WA_Left,        wleft,
  317.                                 WA_Top,         wtop,
  318.                                 WA_Width,       ww + OffX + Scr->WBorRight,
  319.                                 WA_Height,      wh + OffY + Scr->WBorBottom,
  320.                                 WA_IDCMP,       STRINGIDCMP|LISTVIEWIDCMP|BUTTONIDCMP|TEXTIDCMP|CHECKBOXIDCMP|NUMBERIDCMP|IDCMP_MENUPICK|IDCMP_CLOSEWINDOW|IDCMP_REFRESHWINDOW|IDCMP_VANILLAKEY,
  321.                                 WA_Flags,       WFLG_DRAGBAR|WFLG_DEPTHGADGET|WFLG_CLOSEGADGET|WFLG_SMART_REFRESH,
  322.                                 WA_Gadgets,     LibGList,
  323.                                 WA_Title,       GetString(&MLi,MG_WINDOW_TITLE,MainCatBlock),
  324.                                 WA_ScreenTitle, GetString(&MLi,MG_SCREEN_TITLE,MainCatBlock),
  325.                                 WA_AutoAdjust,  TRUE,
  326.                                 WA_NewLookMenus,TRUE,
  327.                                 WA_Activate,    TRUE,
  328.                                 TAG_DONE )))
  329.         return( 4L );
  330.  
  331.         SetMenuStrip( LibWnd, LibMenus );
  332.         GT_RefreshWindow( LibWnd, NULL );
  333.  
  334.         Shortcuts=GetString(&MLi,MG_SHORTCUTS_GADGETS,MainCatBlock);
  335.  
  336.         return( 0L );
  337. }
  338.  
  339. void CloseLibWindow( void )
  340. {
  341.         if ( LibMenus      ) {
  342.                 ClearMenuStrip( LibWnd );
  343.                 FreeMenus( LibMenus );
  344.                 LibMenus = NULL;        }
  345.  
  346.         if ( LibWnd        ) {
  347.                 CloseWindow( LibWnd );
  348.                 LibWnd = NULL;
  349.         }
  350.  
  351.         if ( LibGList      ) {
  352.                 FreeGadgets( LibGList );
  353.                 LibGList = NULL;
  354.         }
  355. }
  356.