Public Class Widget



    Private FArea As New RectangleF(0.1, 0.1, 0.8, 0.8)



    Public Property Area() As RectangleF

        Get

            Return FArea

        End Get

        Set(ByVal value As RectangleF)

            Dim OldArea As RectangleF = FArea

            FArea = value

            If OldArea <> value Then RaiseEvent AreaChanged(Me)

        End Set

    End Property



    Private FTarget As Object = Nothing



    Public Property Target() As Object

        Get

            Return FTarget

        End Get

        Set(ByVal value As Object)

            Dim OldTarget As Object = FTarget

            FTarget = value

            If OldTarget IsNot value Then RaiseEvent TargetChanged(Me, value)

        End Set

    End Property



    Public Event AreaChanged(ByVal widget As Widget)

    Public Event TargetChanged(ByVal widget As Widget, ByVal newValue As Object)

    Public Event Draw(ByVal graphics As Graphics, ByVal region As Rectangle)



    Public Sub New(ByVal target As Object)

        FTarget = target

    End Sub



    Public Sub New(ByVal target As Object, ByVal area As RectangleF)

        FTarget = target

        FArea = area

    End Sub



    Friend Sub RaiseDrawEvent(ByVal graphics As Graphics, ByVal region As Rectangle)

        RaiseEvent Draw(graphics, region)

    End Sub



End Class