I wrote this code as an example, but can't figure out how to override screen boundaries:
Code: Select all
ExamineDesktops()
CreateImage(0,DesktopWidth(0),22,32)
StartDrawing(ImageOutput(0))
DrawingMode(#PB_2DDrawing_AllChannels)
Box(0,0,DesktopWidth(0),22,RGBA(213,74,102,100))
StopDrawing()
OpenWindow(0,0,0,DesktopWidth(0),22,"test",#PB_Window_BorderLess)
CocoaMessage(0,WindowID(0),"setLevel:",20)
CocoaMessage(0,WindowID(0),"setOpaque:",#NO)
CocoaMessage(0,WindowID(0),"setBackgroundColor:",CocoaMessage(0,0,"NSColor colorWithPatternImage:",ImageID(0)))
CocoaMessage(0,WindowID(0),"setMovableByWindowBackground:",#NO)
CocoaMessage(0,WindowID(0),"setHasShadow:",#NO)
CocoaMessage(0,WindowID(0),"setIgnoresMouseEvents:",#YES)
Repeat
Delay(10)
i + 3
ResizeWindow(0,-i,0,#PB_Ignore,#PB_Ignore)
WindowEvent()
If i = DesktopWidth(0) : Break : EndIf
Until ev = #PB_Event_CloseWindow