[Gambas-user] Exposing Properties of a class..

[Ron Onstenk]

On Sunday 30 July 2006 07:37, sbungay wrote:

> PROPERTY ExposedProperty AS INTEGER ' need Let & Get
> PROPERTY READ Result AS INTEGER ' need only Get
> 
> PRIVATE mValue as INTEGER.
> PRIVATE mResult as INTEGER

  PUBLIC Function ExposedProperty_Read() AS INTEGER ' the VB get
    return mValue
  end
> 
> PUBLIC SUB ExposedProperty_Write(Value AS INTEGER) ' the VB Let
>     mValue = Value
>     mResult = Process(mValue)
> END
> 
> PUBLIC Function Result_Read() AS Integer
>     RETURN (mResult)
> END
> 
> PRIVATE FUNCTION Process(Value AS INTEGER) AS INTEGER
>    RETURN (Value * 2)
> END

Ron