home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Source / IBPalettes / WWTCLKit / WWTCLVarTrace.h < prev    next >
Encoding:
Text File  |  1995-03-22  |  1.7 KB  |  50 lines
  1. /* Copyright 1993 Michael B. Johnson
  2.  * Permission to use, copy, modify, and distribute this
  3.  * software and its documentation for any non-commercial 
  4.  * purpose and without fee is hereby granted, provided that the 
  5.  * above copyright notice appears in all copies.  Michael B. Johnson
  6.  * makes no representations about the suitability of this
  7.  * software for any purpose.  It is provided "as is" without
  8.  * express or implied warranty.
  9.  *
  10.  * Permission to use, copy, modify or distribute this software
  11.  * and its documentation for any commercial purpose must be
  12.  * confirmed in writing with Michael B. Johnson.  He can be
  13.  * contacted at:
  14.  *              20 Ames St. E15-023G    
  15.  *              Cambridge, MA 02141
  16.  *              (617) 547 0563
  17.  *              
  18.  */
  19.  
  20.  
  21. #import <appkit/appkit.h>
  22. #import "tcl.h"
  23.  
  24. @interface WWTCLVarTrace:Object
  25. {
  26.    char              *varName;
  27.    id                uiObject; // or datum
  28.    id                delegate;
  29.    id                tclInterp;
  30.    Tcl_VarTraceProc  *traceProcPointer;
  31.    BOOL              freeingMyself;
  32. }
  33.  
  34. - initWithVarName:(const char *)varName proc:(Tcl_VarTraceProc *)traceProcPointer datum:(ClientData)datum delegate:delegate interp:newInterp;
  35. - initWithVarName2:(const char *)varName :(const char *)varName2 proc:(Tcl_VarTraceProc *)traceProcPointer datum:(ClientData)datum delegate:delegate interp:newInterp;
  36. - (BOOL)matchWithVarName:(const char *)newVarName proc:(Tcl_VarTraceProc *)newTraceProcPointer datum:(ClientData)newDatum delegate:newDelegate;
  37.  
  38. - (const char *)varName;
  39. - tclInterp;
  40. - datum;
  41. - uiObject;
  42. - (Tcl_VarTraceProc *)traceProcPointer;
  43.  
  44. - free;
  45. - setStringValue:(const char *)newValue;
  46. - executeTrace;
  47. - removeTrace;
  48.  
  49. @end
  50.