Code: Select all
EnableExplicit
Procedure Execute(comstr$)
Protected Pos, Command$
comstr$ = LTrim(comstr$)
If comstr$ = ""
ProcedureReturn
EndIf
Pos = FindString(comstr$ , " ")
If Pos
Command$ = Mid(comstr$, 1, Pos-1)
If Not RunProgram(Command$, Mid(comstr$, Pos+1), "", #PB_Program_Hide | #PB_Program_Wait)
MessageRequester("Error", " The command could not be executed:" + Command$ + ". Make sure that this program is installed.")
; MessageRequester("|" +Mid(comstr$, 1, Pos-1) + "|", "|" +Mid(comstr$, Pos+1) + "|")
EndIf
EndIf
EndProcedure
If RunProgram("bash", "-c " + Chr(34) + "xdotool search --name '-CL-' windowactivate %@" + Chr(34), "", #PB_Program_Open | #PB_Program_Read)
Delay(40)
Execute("xdotool key alt+m")
EndIf
Code: Select all
If OpenWindow(#Win_Main, 0, 0, 99, 99, "-CL-", #PB_Window_SystemMenu | #PB_Window_Invisible)
CatchImage(0, ?Tray24_png)
AddSysTrayIcon(#SysTrayIcon, WindowID(#Win_Main), ImageID(0))
.......
AddKeyboardShortcut(#Win_Main, #PB_Shortcut_Alt | #PB_Shortcut_M , 0)
.......