home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Programming_10 / WASTE 1.3a1.sit / WASTE 1.3a1 Distribution / Extras / WASTE Tabs 1.3.2 / WETabs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-08-23  |  2.4 KB  |  117 lines  |  [TEXT/CWIE]
  1. /*
  2.  *    WETabs.c
  3.  *
  4.  *    WASTE TABS PACKAGE
  5.  *    Routines for installing/removing tab hooks; accessors
  6.  *
  7.  */
  8.  
  9.  
  10. #include "WETabs.h"
  11. #include "WETabHooks.h"
  12.  
  13. #ifndef __ERRORS__
  14. #include <Errors.h>
  15. #endif
  16.  
  17. /* static UPP's */
  18. static WEDrawTextUPP        _weTabDrawTextProc = nil;
  19. static WEPixelToCharUPP        _weTabPixelToCharProc = nil;
  20. static WECharToPixelUPP        _weTabCharToPixelProc = nil;
  21. static WELineBreakUPP        _weTabLineBreakProc = nil;
  22.  
  23. pascal OSErr WEInstallTabHooks(WEReference we)
  24. {
  25.     OSErr err;
  26.  
  27.     /* if first time, create routine descriptors */
  28.     if (_weTabDrawTextProc == nil)
  29.     {
  30.         _weTabDrawTextProc = NewWEDrawTextProc(_WETabDrawText);
  31.         _weTabPixelToCharProc = NewWEPixelToCharProc(_WETabPixelToChar);
  32.         _weTabCharToPixelProc = NewWECharToPixelProc(_WETabCharToPixel);
  33.         _weTabLineBreakProc = NewWELineBreakProc(_WETabLineBreak);
  34.     }
  35.  
  36.     if ((err = WESetInfo( weDrawTextHook, &_weTabDrawTextProc, we )) != noErr)
  37.     {
  38.         goto cleanup;
  39.     }
  40.     if ((err = WESetInfo( wePixelToCharHook, &_weTabPixelToCharProc, we )) != noErr)
  41.     {
  42.         goto cleanup;
  43.     }
  44.     if ((err = WESetInfo( weCharToPixelHook, &_weTabCharToPixelProc, we )) != noErr)
  45.     {
  46.         goto cleanup;
  47.     }
  48.     if ((err = WESetInfo( weLineBreakHook, &_weTabLineBreakProc, we )) != noErr)
  49.     {
  50.         goto cleanup;
  51.     }
  52.  
  53. cleanup:
  54.     return err;
  55. }
  56.  
  57. pascal OSErr WERemoveTabHooks(WEReference we)
  58. {
  59.     UniversalProcPtr nullHook = nil;
  60.     OSErr err;
  61.  
  62.     if ((err = WESetInfo( weDrawTextHook, &nullHook, we )) != noErr)
  63.     {
  64.         goto cleanup;
  65.     }
  66.     if ((err = WESetInfo( wePixelToCharHook, &nullHook, we )) != noErr)
  67.     {
  68.         goto cleanup;
  69.     }
  70.     if ((err = WESetInfo( weCharToPixelHook, &nullHook, we )) != noErr)
  71.     {
  72.         goto cleanup;
  73.     }
  74.     if ((err = WESetInfo( weLineBreakHook, &nullHook, we )) != noErr)
  75.     {
  76.         goto cleanup;
  77.     }
  78.  
  79. cleanup:
  80.     return err;
  81. }
  82.  
  83. pascal Boolean WEIsTabHooks(WEReference we)
  84. {
  85.     WEPixelToCharUPP hook = nil;
  86.  
  87.     /* return true if our tab hooks are installed */
  88.  
  89.     return     ( _weTabPixelToCharProc != nil ) &&
  90.             ( WEGetInfo( wePixelToCharHook, &hook, we ) == noErr) &&
  91.             ( _weTabPixelToCharProc == hook );
  92. }
  93.  
  94. pascal SInt16 WEGetTabSize(WEReference we)
  95. {
  96.     SInt32 result;
  97.  
  98.     if (WEGetUserInfo( kTabSizeTag, &result, we ) != noErr)
  99.     {
  100.         result = kDefaultTabSize;
  101.     }
  102.     return result;
  103. }
  104.  
  105. pascal OSErr WESetTabSize(SInt16 tabSize, WEReference we)
  106. {
  107.     //    make sure tabSize is a reasonable size
  108.     if ((tabSize < kMinTabSize) || (tabSize > kMaxTabSize))
  109.     {
  110.         return paramErr;
  111.     }
  112.     else
  113.     {
  114.         return WESetUserInfo( kTabSizeTag, tabSize, we );
  115.     }
  116. }
  117.