home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vptool.zip / vpobj.sc < prev    next >
Text File  |  1994-04-08  |  6KB  |  169 lines
  1.  
  2. # This file was generated by the SOM Compiler.
  3. # FileName: vpobj.sc.
  4. # Generated using:
  5. #     SOM Precompiler spc: 1.22
  6. #     SOM Emitter emitcsc: 1.10
  7. #include <somobj.sc>
  8.  
  9. class: VPObj, 
  10.     file stem = vpobj, external prefix = vpr_, class prefix = vprc_, 
  11.     major version = 1, minor version = 1, local;
  12.  
  13.  
  14. parent class: SOMObject;
  15.  
  16.  
  17. release order:
  18.     pControl, pControlRun, pWndInfo, 
  19.     pRunInfo, GetHwnd, IndicateChanged, 
  20.     SetRuntimeInfo, SetEditorInfo, RedrawObject, 
  21.     RecreateObject, InitHelpInstance, QueryClassInfo, 
  22.     QueryHelpInstance, SetHelpInstance;
  23.  
  24.  
  25. passthru: C.h;
  26.  
  27. #ifndef REXXSAA_INCLUDED
  28. #define INCL_REXXSAA
  29. #include <rexxsaa.h>                   /* needed for RexxStart()     */
  30. #endif
  31.  
  32. #define MAXNUMEVENTS          32
  33.  
  34. #define WM_VPRSETVALUES   WM_USER
  35.  
  36. typedef struct _FORMEVENTSTRUCT {
  37.    ULONG msg;
  38.    PSZ   pszEventName;
  39.    PSZ   pszAbbrevName;
  40.    PSZ   pszModel;
  41.    HPOINTER hptrIcon;
  42. } FORMEVENTSTRUCT;
  43. typedef FORMEVENTSTRUCT *PFORMEVENTSTRUCT;
  44.  
  45. typedef struct _VPEVENTITEM {
  46.   PSZ pszDescName;    /* Descriptive name for the event */
  47.   PSZ pszAbbrevName;  /* abbrev name for the object, ie. 1CLK */
  48.   PSZ pszModel;       /* reserved must be zero */
  49.   ULONG useFlags;     /* reserved must be zero */
  50.   LONG lIconResID;    /* pointer resource id for the event */
  51.   LONG lHelpID;       /* reserved */
  52.   HPOINTER hptrIcon;  /* reserved */
  53. } VPEVENTITEM;
  54. typedef VPEVENTITEM *PVPEVENTITEM;
  55.  
  56. typedef struct _VPLOGICITEM {
  57.   LONG lHelpID;        /* help panel id for the Create Link... item */
  58.   PSZ pszDescName;     /* descriptive name for the REXX extension */
  59.   PSZ pszModel;        /* function call prototype */
  60.   ULONG menuUseFlags;  /* reserved */
  61.   ULONG useFlags;      /* reserved */
  62.   } VPLOGICITEM;
  63. typedef VPLOGICITEM *PVPLOGICITEM;
  64.  
  65. typedef struct _VPCLASSINFO {
  66.    ULONG cbSize;
  67.    PSZ   pszDescName;        /* descriptive name of object              */
  68.    PSZ   pszAbbrevName;      /* abbreviated name for the object, ie. PB */
  69.    BOOL  bHasText;           /* does the object support direct editing  */
  70.    PSZ   pszDefaultText;     /* default text for controls that have it  */
  71.    BOOL  bHasCtrlData;       /* does the object have create data        */
  72.    PSZ   pszWindowClass;     /* WC_* or the registered class name       */
  73.    LONG  lDefaultWidth;      /* default width for a new object          */
  74.    LONG  lDefaultHeight;     /* default height for a new object         */
  75.    ULONG ulDefaultStyle;     /* default window style for a new object   */
  76.    PVOID pDefaultCtrlData;   /* pointer to default control data         */
  77.    HMODULE hModResource;     /* module handle for resource file         */
  78.    LONG  lIconResID;         /* pointer resource id for the object      */
  79.    LONG  lStyleDlgID;        /* style dialog id for the styles page     */
  80.    PFNWP pfnwpStyleDlgProc;  /* address of the dialog style dialog proc */
  81.    LONG  lToolHelpID;        /* id for the tool help                    */
  82.    LONG  lStylesPageHelpID;  /* id for the styles notebook help         */
  83.    HWND  hwndHelpInstance;   /* handle for the help instance            */
  84.    LONG  lNumEvents;         /* number of events defined for this class */
  85.    VPEVENTITEM Events[MAXNUMEVENTS];   /* event table for custom events */
  86.    ULONG usTranslate[MAXNUMEVENTS]; //notification ids for each event wm_control
  87.                              //unused entries hold 0
  88.    PVPLOGICITEM Logic;       /* logic models for linking                */
  89.    HPOINTER hptrIcon;        /* reserved                                */
  90.    HPOINTER hptrMouse;       /* reserved                                */
  91.    ULONG  ulReserved;        /* reserved                                */
  92.    ULONG  ulReserved2;       /* reserved                                */
  93.  
  94.    } VPCLASSINFO;
  95. typedef VPCLASSINFO *PVPCLASSINFO;
  96.  
  97.  
  98. LONG TranslateObjSymbol(HWND hwnd, PSZ pszSymbol);
  99.  
  100. endpassthru;
  101. methods:
  102.  
  103.  
  104.     HWND    GetHwnd();
  105.  
  106.     -- 
  107.     --   METHOD:   GetHwnd
  108.     --   PURPOSE:  Get the objects window handle
  109.     --   INVOKED:  From style dialog in editor session
  110.     -- 
  111.  
  112.     VOID    IndicateChanged();
  113.  
  114.     -- 
  115.     --   METHOD:   IndicateChanged
  116.     --   PURPOSE:  Flag form as requiring writing to disk
  117.     --   INVOKED:  From style dialog in editor session
  118.     -- 
  119.  
  120.     VOID    RedrawObject();
  121.  
  122.     -- 
  123.     --   METHOD:   RedrawObject
  124.     --   PURPOSE:  Redraws the object
  125.     --   INVOKED:
  126.     -- 
  127.  
  128.     VOID    RecreateObject();
  129.  
  130.     -- 
  131.     --   METHOD:   RecreateObject
  132.     --   PURPOSE:  Recreates the object
  133.     --   INVOKED:
  134.     -- 
  135.  
  136.     HWND    InitHelpInstance(), class;
  137.  
  138.     -- 
  139.     --   METHOD:   InitHelpInstance
  140.     --   PURPOSE:  Time to initialize the help system for your object
  141.     --   INVOKED:
  142.     -- 
  143.  
  144.     VOID    QueryClassInfo(PVPCLASSINFO pVpClassInfo), class;
  145.  
  146.     -- 
  147.     --   METHOD:   QueryClassInfo
  148.     --   PURPOSE:  To set the information for the object class
  149.     --   INVOKED:  At object creation
  150.     -- 
  151.  
  152.     override somInitClass, class;
  153.  
  154.     -- 
  155.     --   METHOD:   somInitClass
  156.     --   PURPOSE:  Used to load the resource module and the tool icon,
  157.     --             as well as do a WinRegisterClass if required
  158.     --   INVOKED:  Upon class creation
  159.     -- 
  160.  
  161.     HWND    QueryHelpInstance(), class;
  162.  
  163.     -- 
  164.     --   METHOD:   QueryHelpInstance
  165.     --   PURPOSE:  Querys the help instance class variable
  166.     --   INVOKED:
  167.     -- 
  168.  
  169.