#
# $Id: event.icn,v 1.1 2004/06/27 16:19:05 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package util

import lang

#
#
# An instance of this class is used to represent an event.
#
class Event : Object(
   source,
   type,
   param
   )

   #
   # Returns the event parameter, if any
   #
   method get_param()
      return self.param
   end

   method set_param(x)
      return self.param := x
   end

   #
   # Returns the event type
   #
   method get_type()
      return self.type
   end

   method set_type(x)
      return self.type := x
   end

   #
   # Returns the source of the event.
   #
   method get_source()
      return self.source
   end

   method set_source(x)
      return self.source := x
   end
end