|
How to check whether application is already active?
duble_check(TaskWin) :- ScrWin = cast(window,win_GetAttrVal(Win,attr_screen_window)), WINLIST = win_GetChildWindows(ScrWin), WinText = win_GetText(TaskWin), member_nd(OtherTaskWin,WinList), OtherTaskWin<> TaskWin, TaskWinText = win_GetText(OtherTaskWin), TaskWinText = WinText, !, win_BringToTop(OtherTaskWin), win_Destroy(TaskWin). duble_check(_). |