home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / sharewar / envlp14 / ENVELOP.1 / upldptch.eto < prev    next >
Encoding:
Text File  |  1996-07-08  |  1.5 KB  |  42 lines
  1. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  2. '  Temporarily change the open module to the module containing the 
  3. '   object we are trying to extend
  4. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  5. Begin Code
  6.   ModuleManager.CurrentModule = ModuleManager.ModuleContaining(EnvelopForm)
  7. End Code
  8.  
  9.  
  10. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  11. ' Extends the Envelop form by adding a menu item to the tools menu
  12. ' and adds the callbacks for it.
  13. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  14. Type EnvelopForm From EnvelopForm
  15.   Function UpldPkgUploadItem_Enable() As Integer
  16.     Declare Function SearchPath Lib "kernel32" Alias "SearchPathA" (ByVal path As Long, ByVal target As String, ByVal ext As Long, ByVal cchBuf As Long, ByVal buf As Long, namePartAddr As Long) As Long
  17.     Dim db As New DataBuffer
  18.     Dim namePartAddr As Long
  19.     db.Size = 260
  20.  
  21.     ' Menu is enabled if the package is in or loadable...
  22.     UpldPkgUploadItem_Enable = FindObject(UploadPackage) || SearchPath(0, "upldpkg.ebo", 0, 260, db.Data, namePartAddr) 
  23.   End Function
  24.   
  25.   Sub UpldPkgUploadItem_Click()
  26.  
  27.     ' If module isn't loaded, load it.
  28.     If Not FindObject("UploadPackage") Then ModuleManager.LoadModule("upldpkg.ebo", False)
  29.  
  30.     ' Ensure that package is loaded
  31.     If Not FindObject("UploadPackage") Then 
  32.       MessageBox.Msg("Upload Failed", "Upload wizard improperly installed")
  33.       Exit Sub
  34.     End If
  35.  
  36.     ' Run package
  37.     UploadPackage.Run
  38.   End Sub
  39.  
  40. End Type
  41.  
  42.