defmodule Desktop.Fallback do require Logger alias Desktop.{Wx, OS} def taskbaricon_new(popup, icon) do # Proper OTP24 release bar = if OS.type() == MacOS do if is_module?(:wxWebView) do :wxTaskBarIcon.new(createPopupMenu: popup) else # Pre-OTP24 custom version for backwards compat. try do :wxTaskBarIcon.new(popup) catch :error, :function_clause -> Logger.error("No MacOS compatible :wxTaskBarIcon found! Please use at least OTP24") nil end end end bar = if bar == nil do # This works better under Linux and Windows (uses either mouse button for the menu) # but this doesn't work on MacOS at all :-( bar = :wxTaskBarIcon.new() # :wxTaskBarIcon.connect(bar, :taskbar_left_down, skip: true) # :wxTaskBarIcon.connect(bar, :taskbar_right_down, skip: true) bar else bar end true = :wxTaskBarIcon.setIcon(bar, icon) if OS.type() == Windows do # This links the taskbar icon and the application itself on Windows call(:wxNotificationMessage, :useTaskBarIcon, [bar]) end OnCrash.call(fn -> :wx.set_env(Desktop.Env.wx_env()) :wxTaskBarIcon.removeIcon(bar) :wxTaskBarIcon.destroy(bar) end) bar end def webview_new(frame) do if is_module?(:wxWebView) do sizer = :wxFrame.getSizer(frame) :wxSizer.clear(sizer, delete_windows: true) webview = if OS.type() == Windows do if not call(:wxWebView, :isBackendAvailable, ['wxWebViewEdge']) do Logger.warning(""" Missing support for wxWebViewEdge. Check your OTP install for edge support and download it here: https://go.microsoft.com/fwlink/p/?LinkId=2124703 """) win = :wxHtmlWindow.new(frame, []) :wxHtmlWindow.setPage(win, """

Missing Edge Runtime

This demo requires the edge runtime to be installed

Please download it here and try again

https://go.microsoft.com/fwlink/p/?LinkId=2124703

""") :wxHtmlWindow.connect(win, :command_html_link_clicked, skip: true) win else call(:wxWebView, :new, [frame, -1, [backend: 'wxWebViewEdge']]) |> configure_webview() end else call(:wxWebView, :new, [frame, -1]) |> configure_webview() end :wxBoxSizer.add(sizer, webview, proportion: 1, flag: Wx.wxEXPAND()) :wxSizer.layout(sizer) :wxSizer.show(sizer, true) :wxFrame.refresh(frame) webview else Logger.warning( "Missing support for wxWebView - upgrade to OTP/24. Will show OS browser instead" ) end end defp configure_webview(webview) do call(:wxWebView, :connect, [webview, :webview_newwindow]) call(:wxWebView, :enableContextMenu, [webview, [enable: false]]) webview end def webview_can_fix(webview) do is_module?(:wxWebView) and OS.type() == Windows and call(:wxWebView, :isBackendAvailable, ['wxWebViewEdge']) and call(:wxWebView, :isShownOnScreen, [webview]) end def webview_show(%Desktop.Window{webview: webview, frame: frame, last_url: last}, url, only_open) do if webview?() do if last == nil or not only_open do call(:wxWebView, :loadURL, [webview, url]) end if :wxTopLevelWindow.isIconized(frame) do :wxTopLevelWindow.iconize(frame, iconize: false) end if not :wxWindow.isShown(frame) do :wxWindow.show(frame, show: true) :wxTopLevelWindow.centerOnScreen(frame) end OS.raise_frame(frame) else :wx_misc.launchDefaultBrowser(url) end end def webview_rebuild(%Desktop.Window{webview: webview, frame: frame, last_url: url}) do if webview?() do # url = call(:wxWebView, :getCurrentURL, [webview]) webview = webview_new(frame) Logger.info("Rebuilding WebView on Windows with url: #{inspect(url)}") if url != nil do call(:wxWebView, :loadURL, [webview, url]) end webview else webview end end def notification_new(title, type) do if is_module?(:wxNotificationMessage) do flag = case type do :info -> Wx.wxICON_INFORMATION() :warning -> Wx.wxICON_WARNING() :error -> Wx.wxICON_ERROR() end notification = call(:wxNotificationMessage, :new, [title, [flags: flag]]) if notification_events_available?() do for event <- [ :notification_message_click, :notification_message_dismissed, :notification_message_action ] do call(:wxNotificationMessage, :connect, [notification, event]) end else Logger.warning( "Missing support for wxNotificationMessage Events - upgrade to wxWidgets 3.1 - messages won't be clickable" ) end notification else Logger.warning( "Missing support for wxNotificationMessage - upgrade to OTP/24. Messages will be logged only" ) end end def notification_show(notification, message, timeout) do if is_module?(:wxNotificationMessage) do call(:wxNotificationMessage, :setMessage, [notification, to_charlist(message)]) call(:wxNotificationMessage, :show, [notification, [timeout: timeout]]) else Logger.notice("NOTIFICATION: #{message}") end end def wx_subscribe() do call(:wx, :subscribe_events) end defp is_module?(module) do Code.ensure_compiled(module) == {:module, module} end defp notification_events_available?() do {Wx.wxMAJOR_VERSION(), Wx.wxMINOR_VERSION(), Wx.wxRELEASE_NUMBER()} |> case do {major, minor, _} when major >= 3 and minor >= 1 -> true _ -> false end end defp call(module, method, args \\ []) do if Kernel.function_exported?(module, method, length(args)) do apply(module, method, args) end end defp webview?() do is_module?(:wxWebView) and (OS.type() != Windows or call(:wxWebView, :isBackendAvailable, ['wxWebViewEdge'])) end end