VERSION 1.0 CLASS
BEGIN
  MultiUse = 0   'False
END
Attribute VB_Name = "C3POServer"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
'/***************************************************************************
'$name: C3POSERV.CLS
'$version: 1.0 
'$date_modified: 121198 
'$description: Visual Basic class module
'$owner: GroupWise SDK Team Lead
'Copyright (c) 1998 Novell, Inc. All Rights Reserved.
'
'THIS WORK IS SUBJECT TO U.S. AND INTERNATIONAL COPYRIGHT LAWS AND TREATIES.
'USE AND REDISTRIBUTION OF THIS WORK IS SUBJECT TO THE LICENSE AGREEMENT
'ACCOMPANYING THE SOFTWARE DEVELOPMENT KIT (SDK) THAT CONTAINS THIS WORK.
'PURSUANT TO THE SDK LICENSE AGREEMENT, NOVELL HEREBY GRANTS TO DEVELOPER A
'ROYALTY-FREE, NON-EXCLUSIVE LICENSE TO INCLUDE NOVELL'S SAMPLE CODE IN ITS
'PRODUCT. NOVELL GRANTS DEVELOPER WORLDWIDE DISTRIBUTION RIGHTS TO MARKET,
'DISTRIBUTE, OR SELL NOVELL'S SAMPLE CODE AS A COMPONENT OF DEVELOPER'S
'PRODUCTS. NOVELL SHALL HAVE NO OBLIGATIONS TO DEVELOPER OR DEVELOPER'S
'CUSTOMERS WITH RESPECT TO THIS CODE.
'****************************************************************************/

Dim gCommandFactory As New CommandFactory
Dim gDescription As String
Dim gIconFactory As New IconFactory
Dim gEventMonitor As New EventMonitor



Public Function CanShutdown() As Boolean
    
    C3POForm.OutList.AddItem "CanShutdown"
    CanShutdown = True

End Function


Public Sub DeInit()
    
    C3POForm.OutList.AddItem "DeInit"
    Set gCommandFactory = Nothing
    gDescription = Empty
    Set gIconFactory = Nothing
    Set gEventMonitor = Nothing
   
End Sub

Public Property Get EventMonitor() As Object
    
    C3POForm.OutList.AddItem "Get EventMonitor"
    Set EventMonitor = gEventMonitor
    
End Property
Public Property Get CommandFactory() As Object
    
    C3POForm.OutList.AddItem "Get CommandFactory"
    Set CommandFactory = gCommandFactory
    
End Property


Public Property Get IconFactory() As Object
    
    C3POForm.OutList.AddItem "Get EventMonitor"
    Set IconFactory = gIconFactory
    
End Property

Public Sub Init(Manager As Object)
    
    C3POForm.OutList.AddItem "Init"

End Sub



Private Sub Class_Terminate()
    End
End Sub