home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / transklc.sit / MSkelHelp.c.bin / MSkelHelp.c
Encoding:
C/C++ Source or Header  |  1989-01-29  |  6.6 KB  |  264 lines  |  [TEXT/KAHL]
  1. /*
  2.     TransSkel multiple-window demonstration: Help module
  3.  
  4.     This module handles a help window, in which text may be scrolled but
  5.     not edited.  A TextEdit record is used to hold the text, though.
  6.  
  7.     21 April 1988        Paul DuBois
  8. */
  9.  
  10. # include    "MultiSkel.h"
  11. # include    <ControlMgr.h>
  12. # include    <TextEdit.h>
  13.  
  14.  
  15.  
  16.  
  17. WindowPtr                helpWind;
  18. static TEHandle            teHelp;        /* handle to help window TextEdit record */
  19. static ControlHandle    helpScroll;    /* help window scroll bar */
  20. static Integer            helpLine;    /* line currently at top of window */
  21. static Integer            halfPage;    /* number of lines in half a window */
  22.  
  23.  
  24. static Halt ()
  25. {
  26.     TEDispose (teHelp);
  27.     DisposeControl (helpScroll);
  28.     CloseWindow (helpWind);
  29. }
  30.  
  31.  
  32. /*
  33.     Scroll to the correct position.  lDelta is the
  34.     amount to CHANGE the current scroll setting by.
  35. */
  36.  
  37. DoScroll (lDelta)
  38. Integer    lDelta;
  39. {
  40. Integer    newLine;
  41.  
  42.     newLine = helpLine + lDelta;
  43.     if (newLine < 0)
  44.         newLine = 0;
  45.     if (newLine > GetCtlMax (helpScroll))
  46.         newLine = GetCtlMax (helpScroll);
  47.     SetCtlValue (helpScroll, newLine);
  48.     lDelta = (helpLine - newLine ) * (**teHelp).lineHeight;
  49.     TEScroll (0, lDelta, teHelp);
  50.     helpLine = newLine;
  51. }
  52.  
  53.  
  54. /*
  55.     Filter proc for tracking mousedown in scroll bar.  The part code
  56.     of the part originally hit is stored as the control's reference
  57.     value.
  58.  
  59.     The "void" had better be there!  Otherwise Lightspeed will treat
  60.     it as an integer function, not a procedure.
  61. */
  62.  
  63. pascal void TrackScroll (theScroll, partCode)
  64. ControlHandle    theScroll;
  65. Integer            partCode;
  66. {
  67. Integer            lDelta;
  68.  
  69.     if (partCode == GetCRefCon (theScroll))    /* still in same part? */
  70.     {
  71.         switch (partCode)
  72.         {
  73.             case inUpButton: lDelta = -1; break;
  74.             case inDownButton: lDelta = 1; break;
  75.             case inPageUp: lDelta = -halfPage; break;
  76.             case inPageDown: lDelta = halfPage; break;
  77.         }
  78.         DoScroll (lDelta);
  79.     }
  80. }
  81.  
  82.  
  83. /*
  84.     Handle hits in scroll bar
  85. */
  86.  
  87. static Mouse (thePt, t, mods)
  88. Point    thePt;
  89. Longint    t;
  90. Integer    mods;
  91. {
  92. Integer    thePart;
  93.  
  94.         if ((thePart = TestControl (helpScroll, thePt)) == inThumb)
  95.         {
  96.             (void) TrackControl (helpScroll, thePt, nil);
  97.             DoScroll (GetCtlValue (helpScroll) - helpLine);
  98.         }
  99.         else if (thePart != 0)
  100.         {
  101.             SetCRefCon (helpScroll, (Longint) thePart);
  102.             (void) TrackControl (helpScroll, thePt, &TrackScroll);
  103.         }
  104. }
  105.  
  106.  
  107. /*
  108.     Update help window.  The update event might be in response to a
  109.     window resizing.  If so, resize the rects and recalc the linestarts
  110.     of the text.  To resize the rects, only the right edge of the
  111.     destRect need be changed (the bottom is not used, and the left and
  112.     top should not be changed). The viewRect should be sized to the
  113.     screen.  Pull text down if necessary to fill window.
  114. */
  115.  
  116. static Update (resized)
  117. Boolean    resized;
  118. {
  119. Rect    r;
  120. Integer    visLines;
  121. Integer    lHeight;
  122. Integer    topLines;
  123. Integer    nLines;
  124. Integer    scrollLines;
  125.  
  126.     r = helpWind->portRect;
  127.     EraseRect (&r);
  128.     if (resized)
  129.     {
  130.         r.left += 4;
  131.         r.bottom -= 2;
  132.         r.top += 2;
  133.         r.right -= 19;
  134.         (**teHelp).destRect.right = r.right;
  135.         (**teHelp).viewRect = r;
  136.         TECalText (teHelp);
  137.         lHeight = (**teHelp).lineHeight;
  138.         nLines = (**teHelp).nLines;
  139.         visLines = (r.bottom - r.top) / lHeight;
  140.         halfPage = visLines / 2;
  141.         topLines = (r.top - (**teHelp).destRect.top) / lHeight;
  142.         scrollLines = visLines - (nLines - topLines);
  143.         if (scrollLines > 0 && topLines > 0)
  144.         {
  145.             if (scrollLines > topLines)
  146.                 scrollLines = topLines;
  147.             TEScroll (0, scrollLines * lHeight, teHelp);
  148.         }
  149.         scrollLines = nLines - visLines;
  150.         helpLine = (r.top - (**teHelp).destRect.top) / lHeight;
  151. /*
  152.     move and resize the scroll bar as well.  The ValidRect call is done
  153.     because the HideControl adds the control bounds box to the update
  154.     region - which would generate another update event!  Since everything
  155.     gets redrawn below, the ValidRect is used to cancel the update.
  156. */
  157.  
  158.         HideControl (helpScroll);
  159.         r = helpWind->portRect;
  160.         r.left = r.right - 15;
  161.         r.bottom -= 14;
  162.         --r.top;
  163.         ++r.right;
  164.         SizeControl (helpScroll, r.right - r.left, r.bottom - r.top);
  165.         MoveControl (helpScroll, r.left, r.top);
  166.         SetCtlMax (helpScroll, nLines - visLines < 0 ? 0 : nLines - visLines);
  167.         SetCtlValue (helpScroll, helpLine);
  168.         /*if (scrollLines <= 0)
  169.             HiliteControl (helpScroll, (scrollLines > 0 ? 0 : 255));*/
  170.         ShowControl (helpScroll);
  171.         /*if (GetCtlValue (helpScroll) > scrollLines)
  172.             DoScroll (GetCtlValue (helpScroll) - scrollLines);*/
  173.     }
  174.     DrawGrowBox (helpWind);
  175.     DrawControls (helpWind);    /* redraw scroll bar */
  176.     r = (**teHelp).viewRect;
  177.     TEUpdate (&r, teHelp);        /* redraw text display */
  178.     ValidRect (&helpWind->portRect);
  179. }
  180.  
  181.  
  182. /*
  183.     When the window comes active, disable the Edit menu and highlight
  184.     the scroll bar if there are any lines not visible in the content
  185.     region.  When the window is deactivated, enable the Edit menu and
  186.     un-highlight the scroll bar.
  187. */
  188.  
  189. static Activate (active)
  190. Boolean    active;
  191. {
  192.     DrawGrowBox (helpWind);
  193.     if (active)
  194.     {
  195.         DisableItem (editMenu, 0);
  196.         HiliteControl (helpScroll, (GetCtlMax (helpScroll) > 0 ? 0 : 255));
  197.     }
  198.     else
  199.     {
  200.         EnableItem (editMenu, 0);
  201.         HiliteControl (helpScroll, 255);
  202.     }
  203.     DrawMenuBar ();
  204. }
  205.  
  206.  
  207. HelpWindInit ()
  208. {
  209. Rect    r;
  210. Handle    textHandle;
  211. Integer    visLines;
  212. Integer    scrollLines;
  213.  
  214.     helpWind = GetNewWindow (helpWindRes, nil, -1L);
  215.     (void) SkelWindow (helpWind, Mouse, nil, Update,
  216.                 Activate, nil, Halt, nil, true);
  217.  
  218.     TextFont (0);
  219.     TextSize (0);
  220.  
  221.     r = helpWind->portRect;
  222.     r.left += 4;
  223.     r.bottom -= 2;
  224.     r.top += 2;
  225.     r.right -= 19;
  226.     teHelp = TENew (&r, &r);
  227.     textHandle = GetResource ('TEXT', helpTextRes);    /* read help text */
  228.     HLock (textHandle);        /* lock it and insert into TERec */
  229.     TEInsert (*textHandle, GetHandleSize (textHandle), teHelp);
  230.     HUnlock (textHandle);
  231.     ReleaseResource (textHandle);    /* done with it, so goodbye */
  232. /*
  233.     Now figure out how many lines will fit in the window and how many
  234.     will not.  Determine the number of lines in half a window for use
  235.     in tracking clicks in the page up and page down regions of the
  236.     scroll bar.  Then create the scroll bar .  Make sure the borders
  237.     overlap the window frame and the frame of the grow box.
  238. */
  239.     visLines = (r.bottom - r.top) / (**teHelp).lineHeight;
  240.     scrollLines = (**teHelp).nLines - visLines;
  241.     halfPage = visLines / 2;
  242.     helpLine = 0;
  243.     r = helpWind->portRect;
  244.     r.left = r.right - 15;
  245.     r.bottom -= 14;
  246.     --r.top;
  247.     ++r.right;
  248. /*
  249.     Build the scroll bar.  Don't need to bother testing whether to
  250.     highlight it or not, since that will be done in response to the
  251.     activate event.
  252. */
  253.     helpScroll = NewControl (helpWind, &r, "\p", true,
  254.                     helpLine, 0, scrollLines, scrollBarProc, 0L);
  255.  
  256. /*
  257.     GetNewWindow generates an update event for entire portRect.
  258.     Cancel it, since the everything has been drawn already,
  259.     except for the grow box (which will be drawn in response
  260.     to the activate event).
  261. */
  262.     ValidRect (&helpWind->portRect);
  263. }
  264.