I guess the answer to this is "Because it's Sunday" but for those of you who disagree can you tell me please why setText doesn't cause the text to be displayed:

  editor = .EditDlg~new
  editor~execute

::CLASS EditDlg PRIVATE SUBCLASS UserDialog
::REQUIRES "ooDialog.cls"

::METHOD init
  self~init:super()
  self~createcenter(200, 200, "", "THICKFRAME MINIMIZEBOX MAXIMIZEBOX")

::METHOD defineDialog
  u = .DlgAreaU~new(self)
  self~createEdit(100, u~x, u~y, u~w, u~h, "HSCROLL VSCROLL MULTILINE")
  forward class(super)

::METHOD initDialog
  editArea = self~newEdit(100)
  editArea~setText("This is the initial text")


I'm aware this is elementary, I just don't see it.

Thanks,
Staffan