' Gambas class file

Private $iId As Integer
Private $sTitle As String
Private $sDescription As String
Private $sLink As String

Property Read Id As Integer
Property FeedTitle As String
Property Description As String
Property {Link} As String

Public Sub _new(Id As Integer)
  $iId = Id
End

Private Function Id_Read() As Integer
  Return $iId
End

Private Function FeedTitle_Read() As String
  Return $sTitle
End

Private Function FeedTitle_Write(Value As String)
  $sTitle = Value
  txaCaption.Text = $sTitle
End

Private Function Description_Read() As String
  Return $sDescription
End

Private Function Description_Write(Value As String)
  $sDescription = Value
  txaTeaser.Text = $sDescription
End

Private Function Link_Read() As String
  Return $sLink
End

Private Sub Link_Write(Value As String)
  $sLink = Value
' Der Wert von Link wird z.Z. nicht auf dem Formular dargestellt
End
