[Gambas-user] Cliboard-Problem

[Norarg]

Hi,

I have a problem with the clipboard,
using ubuntu 9.10, gambas 2.13

following code works ONE time:

PUBLIC SUB CLIP_B_Click()
  DIM S AS String
  DIM I AS Integer
  DIM TR AS Result
  TR = M.ReadRecord(OPVDM!tabelle, OPVDM!TBID, OPVDM!TBIDWert)
  IF TR.Count = 0 THEN
    Message.Info("Daten nicht gefunden", "Ok")
    RETURN
  ENDIF
  Clipboard.Clear
  S = "Datenausgabe " & OPVDM!betreff & CRLF
  S = S & String(75, "_") & CRLF
  S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, 
" "), 40) & "Datentyp" & CRLF
  S = S & String(75, "_") & CRLF
  OPVDF.MoveFirst
  TR.MoveFirst
  FOR I = 1 TO OPVDF.Count
    S = S & Left(OPVDF!feldbezeichnung & String(25, " "), 25)
    S = S & Left(TR[OPVDF!feldname] & String(50, " "), 40)
    S = S & OPVDF!feldtyp & CRLF
    OPVDF.MoveNext
  NEXT 
  S = S & String(75, "_") & CRLF
  Clipboard.Copy(S)
END

I am sure there is no data-problem, the print of S is ok.
The second time I call this procedure, I get a message in the direct-window:

*QClipboard: cannot transfer data, no data available
*
I hope someone can help me with this. Oh, I also tried the following, to 
get sure nothing is wrong with the string (removed all data):

PUBLIC SUB CLIP_B_Click()
  DIM S AS String
  Clipboard.Clear
  S = "Datenausgabe " & CRLF
  S = S & String(75, "_") & CRLF
  S = S & Left("Feld" & String(25, " "), 25) & Left("Wert" & String(40, 
" "), 40) & "Datentyp" & CRLF
  S = S & String(75, "_") & CRLF
  S = S & String(75, "_") & CRLF
  Clipboard.Copy(S)
END

CRLF ist just CHR(10)

Same error.

Thanks in advance


*
*