home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / amiga / programm / 15514 < prev    next >
Encoding:
Text File  |  1992-11-08  |  8.9 KB  |  284 lines
  1. Newsgroups: comp.sys.amiga.programmer
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!torn!nott!cu23.crl.aecl.ca!wl.aecl.ca!taylorm
  3. From: taylorm@wl.aecl.ca
  4. Subject: Listview slider problem (Code included)
  5. Message-ID: <7NOV92.13340477@wl.aecl.ca>
  6. Sender: news@cu23.crl.aecl.ca (USENET News System)
  7. Nntp-Posting-Host: wc4.wl.aecl.ca
  8. Organization: AECL RESEARCH
  9. Date: Sat, 7 Nov 1992 19:34:04 GMT
  10. Lines: 272
  11.  
  12. Here is the source code for a program that opens a window with a Listview
  13. gadget in it.  The problem is that the slider on the listview does not
  14. render properly.  The slider does, however, function properly in all other
  15. respects.  The slider appears in blue and always seems to be full height.
  16.  
  17. This code is part of a much larger program with other gadgets that function
  18. and look proper.  I removed the rest of the code to make the bug easier to
  19. find.
  20.  
  21. I am only posting this as a final resort.  I have agonized over it for long
  22. hours with no luck.  I have also poured through the examples in the RKMs.
  23. I have also checked it against the program "Demo" by Miller in the August
  24. 1991 Amigaworld Tech Journal which does compile and run properly.
  25. Anyone who could find the bug would receive my enternal gratitude and 
  26. preserve my sanity.
  27.  
  28. This should compile effortlessly under SAS/C 6.0. 
  29.  
  30. /*****************/
  31. /* Include Files */
  32. /*****************/
  33.  
  34. #include <exec/types.h>
  35. #include <exec/memory.h>    
  36. #include <exec/lists.h>     
  37. #include <intuition/intuition.h> 
  38. #include <intuition/imageclass.h>         
  39. #include <intuition/gadgetclass.h>       
  40. #include <libraries/gadtools.h>
  41. #include <clib/alib_protos.h> 
  42. #include <clib/exec_protos.h>   
  43. #include <clib/graphics_protos.h>  
  44. #include <clib/intuition_protos.h>
  45. #include <clib/gadtools_protos.h> 
  46. #include <stdio.h>
  47.  
  48.  
  49.  
  50. struct List stack;               /* Exec list structure for stack       */
  51.  
  52. long win_width  = 221;           /* Window width                        */
  53. long win_innerheight = 179;      /* Inner height of window              */
  54. long x_coord = 0;                /* Coordinates for window to open at   */
  55. long y_coord = 0;
  56.  
  57. struct TextAttr Topaz80 = { "topaz.font", 8, 0, 0, };
  58.                                  /* Font definition                     */
  59.  
  60. struct Library *IntuitionBase;   /* Pointers to libraries               */
  61. struct Library *GfxBase;
  62. struct Library *GadToolsBase;
  63.  
  64. struct Screen  *calcsc  = NULL;  /* Screen pointer                      */
  65. struct Window  *calcwin = NULL;  /* Window pointer                      */
  66.  
  67. struct Gadget   *glist  = NULL; 
  68. void *vi;                 /* VisualInfo pointer                  */
  69.  
  70. struct Remember *rmem = NULL;
  71.  
  72. char *month_labels[] = {                                          
  73.            "January", "February", "March", "April", "May", "June", "July",
  74.            "August", "September", "October", "November", "December", NULL 
  75.            };
  76.  
  77.  
  78. /***************/
  79. /* Subprograms */
  80. /***************/
  81.  
  82.  
  83. VOID errorMessage(char *message)
  84. {
  85.    printf("%s\n",message);
  86. } 
  87.  
  88.  
  89. /* Set up Gadgets */
  90. struct Gadget *createGadgets(UWORD topborder)
  91. {  
  92.    struct NewGadget ng;
  93.    struct Gadget *gad;
  94.    struct Node *node;
  95.    int index;
  96.  
  97.    gad = CreateContext(&glist);
  98.  
  99.    NewList(&stack);                  /* Initialize Global Variables */
  100.  
  101.    index = 0;                                                        
  102.    while (month_labels[index])                                       
  103.       {                                                                 
  104.       node = (struct Node *)AllocRemember(&rmem, sizeof(struct Node), 
  105.                                           MEMF_CLEAR);               
  106.       /* if (!node)                                                     
  107.          abort("Couldn't allocate LISTVIEW List."); */
  108.  
  109.       node->ln_Name = month_labels[index++];                         
  110.       AddTail(&stack, node);                                          
  111.       }
  112.  
  113.    ng.ng_LeftEdge   = 10;                             
  114.    ng.ng_Width      = 201;
  115.    ng.ng_GadgetText = NULL;
  116.    ng.ng_TextAttr   = &Topaz80;   
  117.    ng.ng_VisualInfo = vi;                               
  118.    ng.ng_TopEdge    = 7+topborder;
  119.    ng.ng_Height     = 80;
  120.    ng.ng_GadgetID   = 0;
  121.    ng.ng_Flags      = 0;
  122.  
  123.    gad = CreateGadget (LISTVIEW_KIND, gad, &ng,
  124.                                 GTLV_Labels, &stack,
  125.                                 GTLV_ReadOnly, TRUE,
  126.                                 GTLV_ScrollWidth, 18,
  127.                                 GTLV_Top, 1,
  128.                                 LAYOUTA_Spacing, 1,
  129.                                 TAG_END);
  130.  
  131.    return(gad);
  132. }
  133.  
  134.  
  135. VOID process_window_events(VOID)
  136. {
  137.    struct IntuiMessage *imsg;
  138.    ULONG imsgClass;
  139.    UWORD imsgCode;
  140.    struct Gadget *gad;
  141.    BOOL terminated = FALSE;
  142.  
  143.    while (!terminated)
  144.       {
  145.       Wait (1 << calcwin->UserPort->mp_SigBit);
  146.  
  147.       while ((!terminated) &&
  148.              (imsg = GT_GetIMsg(calcwin->UserPort)))
  149.          {
  150.          gad = (struct Gadget *)imsg->IAddress;
  151.  
  152.          imsgClass = imsg->Class;
  153.          imsgCode  = imsg->Code;
  154.  
  155.          GT_ReplyIMsg(imsg);
  156.  
  157.          switch (imsgClass)
  158.             {
  159.             case IDCMP_GADGETDOWN:
  160.                break;
  161.             case IDCMP_GADGETUP:
  162.                break;
  163.             case IDCMP_CLOSEWINDOW:
  164.                terminated = TRUE;
  165.                break;
  166.             case IDCMP_REFRESHWINDOW:
  167.                GT_BeginRefresh(calcwin);
  168.                GT_EndRefresh(calcwin, TRUE);
  169.                break;
  170.             }
  171.          }
  172.       }
  173. }
  174.  
  175.  
  176. VOID gadtoolsWindow(int argc, char **argv)
  177. { 
  178.    struct TextFont *font;
  179.    UWORD  topborder;
  180.  
  181.  
  182.    if (NULL == (font = OpenFont(&Topaz80)))
  183.       errorMessage( "Failed to open Topaz 80");
  184.    else
  185.       {
  186.       if (NULL == (calcsc = LockPubScreen("Workbench")))
  187.          errorMessage( "Couldn't lock default public screen");
  188.       else
  189.          {       
  190.          if (NULL ==(vi = GetVisualInfo(calcsc, TAG_END)))
  191.             errorMessage( "GetVisualInfo() failed");
  192.          else
  193.             {
  194.             topborder = calcsc->WBorTop + (calcsc->Font->ta_YSize + 1);
  195.  
  196.             if (NULL == createGadgets(topborder))
  197.                errorMessage ( "createAllGadgets() failed");
  198.             else
  199.                {
  200.                if (NULL == (calcwin = OpenWindowTags(NULL,
  201.                        WA_Left,          x_coord,
  202.                        WA_Top,           y_coord,
  203.                        WA_Title,         "Listview test",
  204.                        WA_Gadgets,       glist,
  205.                        WA_AutoAdjust,    FALSE,
  206.                        WA_Width,         win_width,
  207.                        WA_InnerHeight,   win_innerheight,
  208.                        WA_DragBar,       TRUE,
  209.                        WA_DepthGadget,   TRUE,
  210.                        WA_Activate,      TRUE,
  211.                        WA_CloseGadget,   TRUE,
  212.                        WA_SizeGadget,    FALSE,
  213.                        WA_SimpleRefresh, TRUE,
  214.                        WA_DetailPen,     -1,
  215.                        WA_BlockPen,      -1, 
  216.                        WA_IDCMP, IDCMP_CLOSEWINDOW | IDCMP_REFRESHWINDOW |
  217.                                         LISTVIEWIDCMP,
  218.                        WA_PubScreen,     calcsc,
  219.                        TAG_END)))
  220.                   errorMessage( "OpenWindow() failed");
  221.                else
  222.                   {
  223.                   /*AddGList(calcwin, glist, (UWORD)-1, (UWORD)-1, NULL); */
  224.  
  225.                   /* AddGList(calcwin, &CUST_SQRT, ~0, 6L, NULL); */
  226.                   RefreshGList(glist, calcwin, NULL, (UWORD)-1);
  227.  
  228.                   GT_RefreshWindow(calcwin, NULL);
  229.  
  230.                   process_window_events(); 
  231.  
  232.                   /* clear_stack(); */
  233.  
  234.                   CloseWindow(calcwin);
  235.                   }
  236.               }
  237.             FreeGadgets(glist);
  238.             FreeVisualInfo(vi);            
  239.             }
  240.          UnlockPubScreen(NULL, calcsc);
  241.          } 
  242.       CloseFont(font);
  243.       }
  244. }      
  245.  
  246.  
  247. /* Open Libraries and run main code */
  248. VOID main(int argc, char **argv)
  249. {      
  250.    if (NULL == (IntuitionBase = OpenLibrary("intuition.library", 37)))
  251.       errorMessage( "Requires V37 intuition.library");
  252.    else
  253.       {
  254.       if (NULL == (GfxBase = OpenLibrary("graphics.library", 37)))
  255.          errorMessage ("Requires V37 graphics.library");
  256.       else
  257.          {
  258.          if (NULL ==(GadToolsBase = OpenLibrary("gadtools.library", 37)))
  259.             errorMessage( "Requires V37 gadtools.library");
  260.          else
  261.             {
  262.             gadtoolsWindow(argc, argv);
  263.  
  264.                if (rmem) FreeRemember(&rmem, TRUE);
  265.  
  266.             CloseLibrary(GadToolsBase);
  267.             }
  268.          CloseLibrary(GfxBase);
  269.          }
  270.       CloseLibrary(IntuitionBase); 
  271.       }
  272. } 
  273.  
  274.  
  275.  
  276. -------Cut-------
  277.  
  278. *****************************************************************************
  279.   In search of the virtual world       *             /\/\ike Taylor
  280.                                        * mataylor@undergrad.math.uwaterloo.ca
  281.     Sometimes real is too real         *          taylorm@wl.aecl.ca
  282. *****************************************************************************
  283.  
  284.