Sticky Window

[Azur]

Hello
In this code i try to open a fullSized window and opening a secondary window on the top
the stickywindow(n) dosen't seems to work with a fullsized window in the background.
PB511 32 Debian 6 Gnome.

Code: Select all

EnableExplicit

Define working=1 ; _________ change to 0, green window is not sticky 

ExamineDesktops()

If working =0
  OpenWindow(0,0,0,DesktopWidth(0),DesktopHeight(0),"",#PB_Window_BorderLess)
Else
  OpenWindow(0,0,0,900,800,"",#PB_Window_BorderLess)
EndIf


ButtonGadget(0,10,40,150,25,"Open Window 2")
ButtonGadget(1,10,70,100,25,"Exit")

Repeat
  Select WaitWindowEvent(10)
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          End
        Case 0
          OpenWindow(1,0,0,800,600,"",#PB_Window_ScreenCentered|#PB_Window_BorderLess)
          TextGadget(3,20,20,150,30,"Should be sticky")
          SetWindowColor(1,RGB(0,128,0))
          StickyWindow(1,1)
      EndSelect
  EndSelect
ForEver