Has anyone else found that WindowActivate() is not working for them?
Or, am I doing something wrong?
Code: Select all
OpenWindow (0, 0, 40, 100, 600, #PB_Window_BorderLess , "Bar Test")
CreateGadgetList(WindowID(0))
ButtonGadget(2, 2, 2, 32, 24, "X", #PB_Button_Left)
ButtonGadget(1, 2, 30, 96, 24, "App", #PB_Button_Left)
vMouseLocStatus = 0
ResizeWindow(2, WindowHeight())
Event_Loop:
Delay(100)
EventID = WindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
GadgetID = EventGadgetID()
If GadgetID = 1
Goto Branch_1
ElseIf GadgetID = 2
Goto Branch_2
EndIf
; X is left to right
; Y is top to bottom
vMouseX = DesktopMouseX()
vMouseY = DesktopMouseY()
If vMouseX < 2 And vMouseLocStatus = 0
vMouseLocStatus = 1
For vWide = 2 To 100 Step 7
ResizeWindow(vWide, WindowHeight())
Next
ActivateWindow()
EndIf
If vMouseX > WindowWidth() And vMouseLocStatus = 1
vMouseLocStatus = 0
vWide = 100
While vWide > 2
vWide = vWide - 7
ResizeWindow(vWide, WindowHeight())
Wend
ResizeWindow(2, WindowHeight())
EndIf
Goto Event_Loop
Branch_1:
;Result = RunProgram("/Applications/File/Xfolders.app")
Goto Event_Loop
Branch_2:
End
appreciated.

Thanks,
-Garrett