diff options
| author | Hannes Schulze <haschu0103@outlook.de> | 2024-08-04 20:45:24 +0200 |
|---|---|---|
| committer | Hannes Schulze <haschu0103@outlook.de> | 2024-08-04 20:45:24 +0200 |
| commit | 049dfc4dc5341f6d0e0015dccbb54352351e9e14 (patch) | |
| tree | a9d9e22dfea24c7513d2a07a51c27e8ca0573283 /protocols/Wayland/Protocols/Core | |
| parent | 0e1add6fae63eb51c5f73caf4dd42838ec955a86 (diff) | |
wrap interfaces
Diffstat (limited to 'protocols/Wayland/Protocols/Core')
| -rw-r--r-- | protocols/Wayland/Protocols/Core/WLOutput.hs | 55 |
1 files changed, 53 insertions, 2 deletions
diff --git a/protocols/Wayland/Protocols/Core/WLOutput.hs b/protocols/Wayland/Protocols/Core/WLOutput.hs index 2989fe5..e0c0d37 100644 --- a/protocols/Wayland/Protocols/Core/WLOutput.hs +++ b/protocols/Wayland/Protocols/Core/WLOutput.hs @@ -12,7 +12,7 @@ module Wayland.Protocols.Core.WLOutput ) where import Data.Data (Typeable) -import Wayland.Server (ResourceClass(..), RequestClass(..), ObjectID) +import Wayland.Server (ResourceClass(..), RequestClass, InterfaceDesc(..), MessageDesc(..), ArgumentDesc(..), Nullability(..), ObjectID) newtype Handle = Handle ObjectID deriving (Show, Eq, Ord) @@ -21,7 +21,58 @@ instance ResourceClass Handle where type ResourceEvent Handle = Event type ResourceRequest Handle = Request objectID (Handle h) = h - interface _ = undefined + interface _ = InterfaceDesc { ifName = "wl_output" + , ifVersion = 4 + , ifRequests = [ MessageDesc { msgName = "release" + , msgSignature = [] + , msgSince = 3 + , msgIsDestructor = True + } + ] + , ifEvents = [ MessageDesc { msgName = "geometry" + , msgSignature = [ ArgumentInt + , ArgumentInt + , ArgumentInt + , ArgumentInt + , ArgumentInt + , ArgumentString NotNull + , ArgumentString NotNull + , ArgumentInt + ] + , msgSince = 1 + , msgIsDestructor = False + } + , MessageDesc { msgName = "mode" + , msgSignature = [ ArgumentUInt + , ArgumentInt + , ArgumentInt + , ArgumentInt + ] + , msgSince = 1 + , msgIsDestructor = False + } + , MessageDesc { msgName = "done" + , msgSignature = [] + , msgSince = 2 + , msgIsDestructor = False + } + , MessageDesc { msgName = "scale" + , msgSignature = [ ArgumentInt ] + , msgSince = 2 + , msgIsDestructor = False + } + , MessageDesc { msgName = "name" + , msgSignature = [ ArgumentString NotNull ] + , msgSince = 4 + , msgIsDestructor = False + } + , MessageDesc { msgName = "description" + , msgSignature = [ ArgumentString NotNull ] + , msgSince = 4 + , msgIsDestructor = False + } + ] + } data Subpixel = SubpixelUnknown |