home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / RB3774.ZIP / RECORD.ZIP / RECFLDER.SC < prev    next >
Text File  |  1992-04-01  |  3KB  |  121 lines
  1.  
  2. # This file was generated by the SOM Compiler.
  3. # FileName: recflder.sc.
  4. # Generated using:
  5. #     SOM Precompiler spc: 1.21
  6. #     SOM Emitter emitcsc: 1.8
  7. #include "wpfolder.sc"
  8.  
  9. class: RecordFolder, 
  10.     file stem = recflder, external prefix = recflder_, class prefix = recfldercls_, 
  11.     major version = 1, minor version = 1, local;
  12.  
  13.     --  RecordFolder is a folder in which Record objects can be
  14.     --  instantiated.
  15.     --  Its derived as follows:
  16.     --         SOMOject
  17.     --           - WPObject
  18.     --              - WPFileSystem
  19.     --                 - WPFolder
  20.     --                    - RecordFolder
  21.  
  22.  
  23. parent class: WPFolder;
  24.  
  25.  
  26. release order:
  27.     UpdateLastQuery;
  28.  
  29.  
  30. passthru: C.h, after;
  31.  
  32. #define DebugBox(title, text)  WinMessageBox(HWND_DESKTOP,HWND_DESKTOP, \
  33.                                (PSZ) text , (PSZ) title, 0, \
  34.                                MB_OK | MB_INFORMATION )
  35.  
  36. endpassthru;
  37. methods:
  38.  
  39.  
  40.     BOOL    UpdateLastQuery(PSZ szQuery), descriptor = "----";
  41.  
  42.     -- 
  43.     --  METHOD:   UpdateLastQuery                             PRIVATE
  44.     -- 
  45.     --  PURPOSE:  Saves the last query that return a result
  46.     --            from the Record class
  47.     -- 
  48.  
  49.     override wpInitData, descriptor = "----";
  50.  
  51.     -- 
  52.     --  OVERRIDE: wpInitData                                  PUBLIC
  53.     -- 
  54.     --  PURPOSE:  Initialize our instance variables.
  55.     -- 
  56.  
  57.     override wpModifyPopupMenu, descriptor = "----";
  58.  
  59.     -- 
  60.     --  OVERRIDE: wpModifyPopupMenu                           PUBLIC
  61.     -- 
  62.     --  PURPOSE:  Add the extra find option to
  63.     --            the context menu.
  64.     -- 
  65.  
  66.     override wpMenuItemSelected, descriptor = "----";
  67.  
  68.     -- 
  69.     --  OVERRIDE: wpMenuItemSelected                          PUBLIC
  70.     -- 
  71.     --  PURPOSE:  Process input from the extra
  72.     --            menu option that we have added.
  73.     -- 
  74.  
  75.     override wpSaveState, descriptor = "----";
  76.  
  77.     -- 
  78.     --  OVERRIDE: wpSaveState                                 PUBLIC
  79.     -- 
  80.     --  PURPOSE:  Here we can store our persistent instance
  81.     --            data so that it can be restored from
  82.     --            wpRestoreState
  83.     -- 
  84.  
  85.     override wpRestoreState, descriptor = "----";
  86.  
  87.     -- 
  88.     --  OVERRIDE: wpRestoreState                              PUBLIC
  89.     -- 
  90.     --  PURPOSE:  Allow us to resend the last query to
  91.     --            the Record class
  92.     -- 
  93.  
  94.     override wpclsQueryTitle, class, descriptor = "----";
  95.  
  96.     -- 
  97.     --  METHOD: wpclsQueryTitle                               PUBLIC
  98.     -- 
  99.     --  PURPOSE:
  100.     --    Return the string "Record Folder"
  101.     -- 
  102.  
  103.     override wpclsInitData, class, descriptor = "----";
  104.  
  105.     -- 
  106.     --  METHOD: wpclsInitData                                 PUBLIC
  107.     -- 
  108.     --  PURPOSE:
  109.     --    We can do class specific initialisation here
  110.     -- 
  111.  
  112.     override wpclsUnInitData, class, descriptor = "----";
  113.  
  114.     -- 
  115.     --  METHOD: wpclsUnInitData                               PUBLIC
  116.     -- 
  117.     --  PURPOSE:
  118.     --    Here we release any class resources
  119.     -- 
  120.  
  121.