e_policy_wl: Support new tzsh_service_kvm protocol

[platform/upstream/enlightenment.git] / src / bin / e_policy.c

diff --git a/src/bin/e_policy.c b/src/bin/e_policy.c
index 98d8bdb..694b365 100644 (file)
--- a/src/bin/e_policy.c
+++ b/src/bin/e_policy.c
@@ -1921,6 +1921,17 @@ e_policy_client_is_taskbar(E_Client *ec)
    return EINA_FALSE;
 }
 
+EINTERN Eina_Bool
+e_policy_client_is_KVM(E_Client *ec)
+{
+   E_OBJECT_CHECK_RETURN(ec, EINA_FALSE);
+
+   if (!e_util_strcmp(ec->icccm.window_role, "KVM"))
+     return EINA_TRUE;
+
+   return EINA_FALSE;
+}
+
 E_API E_Service_Quickpanel_Type
 e_policy_quickpanel_type_get(E_Client *ec)
 {