[GB.DESKTOP]

* BUG: Fix DesktopWindow.Resize() method.


git-svn-id: svn://localhost/gambas/trunk@5174 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-09-17 19:05:18 +00:00
parent cbad814159
commit 9dd14f1a47
3 changed files with 4 additions and 4 deletions

View file

@ -27,10 +27,10 @@ SearchString=True
File[1]=".src/Desktop.class:219.24"
File[2]=".src/DesktopWatcher.class:70.2"
File[3]=".src/DesktopFile.class:296.7"
File[4]=".src/Main.module:147.12"
File[4]=".src/Main.module:147.13"
File[5]=".src/_DesktopIcons.class:16.0"
Active=6
File[6]=".src/DesktopWindow.class:87.34"
File[6]=".src/DesktopWindow.class:102.2"
File[7]=".src/Form1.class:14.0"
File[8]=".src/Form1.form"
File[9]=".src/Atom.class:10.43"

View file

@ -97,7 +97,7 @@ End
Public Sub Resize(Width As Integer, Height As Integer)
_Desktop.SendClientMessageToRootWindow(Atom["_NET_MOVERESIZE_WINDOW"], [&X10110000000000, Width, Height], $iId)
_Desktop.SendClientMessageToRootWindow(Atom["_NET_MOVERESIZE_WINDOW"], [&X10110000000000, 0, 0, Width, Height], $iId)
_Desktop.Flush
Refresh

View file

@ -145,7 +145,7 @@ Public Sub Main()
'Print hWin.VisibleName
If hWin.VisibleName Like "gambas3 3.3.0 - *" Then
Print hWin.X;; hWin.Y;; hWin.Width;; hWin.Height
hWin.Move(200, 100, 800, 500)
hWin.Resize(400, 400)
hWin.Refresh
Print hWin.X;; hWin.Y;; hWin.Width;; hWin.Height
Endif