[GB.SETTINGS]

* BUG: Saving the settings of a window now takes the window desktop into account only for toplevel windows.


git-svn-id: svn://localhost/gambas/trunk@8074 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.settings/.src/Settings.class

@@ -381,14 +381,19 @@ Private Sub WriteWindow(hWindow As Window, sKey As String)
   'Dim D As Integer
   Dim aVal As Integer[]
   
-  'Dim hDesktopWin As DesktopWindow
-  
-  S = hWindow.Screen
-  
-  X = hWindow.X - Screens[S].AvailableX
-  Y = hWindow.Y - Screens[S].AvailableY
+  X = hWindow.X
+  Y = hWindow.Y
   W = hWindow.Width
   H = hWindow.Height
+
+  If hWindow.TopLevel Then
+  
+    S = hWindow.Screen
+    
+    X -= Screens[S].AvailableX
+    Y -= Screens[S].AvailableY
+    
+  Endif
   
   aVal = [X, Y, W, H, S]