Enumeration
  #Image
  #Gadget
EndEnumeration

ExamineDesktops() ; обновление состояния клавиатуры
x = 0 ; координата y левого-верх. угла окна
y = 1 ; если выставить 0, то окно закроет весь рабочий стол вместе с панелями
w = DesktopWidth(0) ; ширина экрана
h = DesktopHeight(0) ; высота экрана

UsePNGImageDecoder() ;
;LoadImage(#Image,"curtain.png") ; загрузка изображения-обоев из файла
CatchImage(#image, ?Image, #PB_Image_DisplayFormat) ; загружаем изображение из памяти

If OpenWindow(0, x, y, w, h, "Curtain", #PB_Window_Invisible) ; построение окна
gtk_window_set_skip_taskbar_hint_ (WindowID (0), #True) ; не отображается в панели задач
gtk_window_set_decorated_(WindowID (0), #False) ; окно без рамки
ResizeImage(#Image, w, h, #PB_Image_Smooth) ; изменяет размеры изображения до w, h
ImageGadget(#Gadget, x, y, w, h, ImageID(#Image))
gtk_window_set_keep_below_(WindowID (0), #True) ; окно позади всех, если setting=TRUE
HideWindow(0, 0) ; отображаем окно после всех преобразований

AddKeyboardShortcut(0, #PB_Shortcut_Control | #PB_Shortcut_Q, 0) ; отслеживание события по двум клавишам Ctrl+Q
Repeat
  Select WaitWindowEvent() ; закрытие окна/шторы по Ctrl+Q
    Case #PB_Event_Menu
      If EventMenu() = 0
         Break
       EndIf
 EndSelect
ForEver
EndIf

DataSection
  Image: IncludeBinary "curtain.png" ; IncludeBinary - упаковываем изображение "внутрь" откомпилированного файла
EndDataSection