home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / SDKs / Word Services SDK 1.0.6 / Writeswell Jr 1.2.1 Sources ƒ / Library Source / OutlineButton.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-14  |  1.1 KB  |  40 lines  |  [TEXT/KAHL]
  1. /* OutlineButton.c
  2.  * Draw default outline around buttons.  Very handy library utility.
  3.  * ©1992 Working Software, Inc.
  4.  * This source code is copyrighted.  Permission is granted to use the Word Services
  5.  * portion of the Writeswell Jr. source code in your own programs, but you 
  6.  * may not distribute the Writeswell Jr. word-processor code as a 
  7.  * commercial product.  If you modify the code, please do not call it 
  8.  * Writeswell Jr. (or Writeswell.)  This will ensure that people understand the 
  9.  * program and don’t have to deal with a number of different versions with 
  10.  * who-knows-what going on in the code.
  11.  * 
  12.  * Writeswell Jr. and Writeswell are trademarks of Working Software, Inc.
  13.  *
  14.  * 19 May 92 Mike Crawford
  15.  */
  16.  
  17. #include "OutlineButton.h"
  18.  
  19. pascal void OutlineButton( DialogPtr dPtr, short item )
  20. {
  21.     Handle    itemH;
  22.     Rect    r;
  23.     short    kind;
  24.     PenState    pS;
  25.  
  26.     /* Outline a button to indicate that it is the default */
  27.  
  28.     GetPenState( &pS );
  29.     PenNormal();
  30.     PenSize( 3, 3 );
  31.     
  32.     GetDItem( dPtr, item, &kind, &itemH, &r );
  33.  
  34.     FrameRoundRect( &r, 16, 16 );
  35.  
  36.     SetPenState( &pS );
  37.  
  38.     return;
  39. }
  40.