[libreoffice-users] Need comfirmation about no function of Modeless Dialogs in 4.0

We uses the Basic codelines below to make Modeless Dialogs, sinds 4.0 we 
end up with a non-visible window
is this a Windows only problem or a more general regression due to 
changes in the API ?,
it was working until 3.6.4  Windows

Greetz

Fernand

Sub Main
  oDoc = ThisComponent
  oParentFrame = oDoc.CurrentController.Frame
  oPeer = oParentFrame.ContainerWindow
  oToolkit = oPeer.Toolkit

  oWindow = CreateNewWindow(oToolkit,oPeer,150,150,200,200)
  oFrame = CreateUnoService("com.sun.star.frame.Frame")
  oFrame.initialize(oWindow)
  oFrame.setCreator(oParentFrame)
  oFrame.setName("NewFrame")
  oFrame.Title = "New Frame"

  oParentFrame.getFrames().append(oFrame)

  oWindow.setVisible(True)
End Sub


Function CreateNewWindow( _
  oToolkit,oParent,nX,nY,nWidth,nHeight) As Object
  aRect = CreateUnoStruct("com.sun.star.awt.Rectangle")
  With aRect
    .X = nX
    .Y = nY
    .Width = nWidth
    .Height = nHeight
  End With
  aWinDesc = CreateUnoStruct("com.sun.star.awt.WindowDescriptor")
  With aWinDesc
    .Type = com.sun.star.awt.WindowClass.TOP
    .WindowServiceName = "dialog"
    .ParentIndex = -1
    .Bounds = aRect
    .Parent = oParent
    .WindowAttributes = _
      com.sun.star.awt.WindowAttribute.MOVEABLE + _
      com.sun.star.awt.WindowAttribute.CLOSEABLE
  End With
  CreateNewWindow = oToolkit.createWindow(aWinDesc)
End Function


--
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted