<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<font face="Helvetica, Arial, sans-serif">We uses the Basic
codelines below to make Modeless Dialogs, sinds 4.0 we endup with
a non-visible window<br>
is this Windows only or a more general regression ?,<br>
it was working until 3.6.4 windows?<br>
<br>
Greetz<br>
<br>
Fernand<br>
<br>
Sub Main<br>
oDoc = ThisComponent<br>
oParentFrame = oDoc.CurrentController.Frame<br>
oPeer = oParentFrame.ContainerWindow<br>
oToolkit = oPeer.Toolkit<br>
<br>
oWindow = CreateNewWindow(oToolkit,oPeer,150,150,200,200)<br>
oFrame = CreateUnoService("com.sun.star.frame.Frame")<br>
oFrame.initialize(oWindow)<br>
oFrame.setCreator(oParentFrame)<br>
oFrame.setName("NewFrame")<br>
oFrame.Title = "New Frame"<br>
<br>
oParentFrame.getFrames().append(oFrame)<br>
<br>
oWindow.setVisible(True)<br>
End Sub<br>
<br>
<br>
Function CreateNewWindow( _<br>
oToolkit,oParent,nX,nY,nWidth,nHeight) As Object<br>
aRect = CreateUnoStruct("com.sun.star.awt.Rectangle")<br>
With aRect<br>
.X = nX<br>
.Y = nY<br>
.Width = nWidth<br>
.Height = nHeight<br>
End With<br>
aWinDesc = CreateUnoStruct("com.sun.star.awt.WindowDescriptor")<br>
With aWinDesc<br>
.Type = com.sun.star.awt.WindowClass.TOP<br>
.WindowServiceName = "dialog"<br>
.ParentIndex = -1<br>
.Bounds = aRect<br>
.Parent = oParent<br>
.WindowAttributes = _<br>
com.sun.star.awt.WindowAttribute.MOVEABLE + _<br>
com.sun.star.awt.WindowAttribute.CLOSEABLE<br>
End With<br>
CreateNewWindow = oToolkit.createWindow(aWinDesc)<br>
End Function<br>
<br>
</font>
</body>
</html>