Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package ghc-X11 for openSUSE:Factory checked in at 2022-10-13 15:40:50 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-X11 (Old) and /work/SRC/openSUSE:Factory/.ghc-X11.new.2275 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-X11" Thu Oct 13 15:40:50 2022 rev:11 rq:1008428 version:1.10.3 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-X11/ghc-X11.changes 2021-11-11 21:36:06.984875279 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-X11.new.2275/ghc-X11.changes 2022-10-13 15:40:53.818591720 +0200 @@ -1,0 +2,12 @@ +Wed Sep 14 17:41:13 UTC 2022 - Peter Simons <[email protected]> + +- Update X11 to version 1.10.3. + ## 1.10.3 (2022-09-14) + + * Added `cWX`, `cWY`, `cWWidth`, `cWHeight` constants (`AttributeMask`) (#82) + + * Added `FocusChangeEvent` to `data Event` (#81) + + * Added `setWMNormalHints` (#83) + +------------------------------------------------------------------- Old: ---- X11-1.10.2.tar.gz New: ---- X11-1.10.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-X11.spec ++++++ --- /var/tmp/diff_new_pack.tERGhb/_old 2022-10-13 15:40:54.322592704 +0200 +++ /var/tmp/diff_new_pack.tERGhb/_new 2022-10-13 15:40:54.326592712 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-X11 # -# Copyright (c) 2021 SUSE LLC +# Copyright (c) 2022 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,7 +18,7 @@ %global pkg_name X11 Name: ghc-%{pkg_name} -Version: 1.10.2 +Version: 1.10.3 Release: 0 Summary: A binding to the X11 graphics library License: BSD-3-Clause ++++++ X11-1.10.2.tar.gz -> X11-1.10.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/X11-1.10.2/CHANGES.md new/X11-1.10.3/CHANGES.md --- old/X11-1.10.2/CHANGES.md 2001-09-09 03:46:40.000000000 +0200 +++ new/X11-1.10.3/CHANGES.md 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,13 @@ # Change Log / Release Notes +## 1.10.3 (2022-09-14) + + * Added `cWX`, `cWY`, `cWWidth`, `cWHeight` constants (`AttributeMask`) (#82) + + * Added `FocusChangeEvent` to `data Event` (#81) + + * Added `setWMNormalHints` (#83) + ## 1.10.2 (2021-10-24) * Restored compatibility with GHC 7.10 (and possibly even older) (#80) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/X11-1.10.2/Graphics/X11/Types.hsc new/X11-1.10.3/Graphics/X11/Types.hsc --- old/X11-1.10.2/Graphics/X11/Types.hsc 2001-09-09 03:46:40.000000000 +0200 +++ new/X11-1.10.3/Graphics/X11/Types.hsc 2001-09-09 03:46:40.000000000 +0200 @@ -647,6 +647,10 @@ cWDontPropagate, cWColormap, cWCursor, + cWX, + cWY, + cWWidth, + cWHeight, -- ** Close down modes CloseDownMode, @@ -1536,6 +1540,10 @@ , cWDontPropagate = CWDontPropagate , cWColormap = CWColormap , cWCursor = CWCursor + , cWX = CWX + , cWY = CWY + , cWWidth = CWWidth + , cWHeight = CWHeight } -- Used in ChangeCloseDownMode diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/X11-1.10.2/Graphics/X11/Xlib/Extras.hsc new/X11-1.10.3/Graphics/X11/Xlib/Extras.hsc --- old/X11-1.10.2/Graphics/X11/Xlib/Extras.hsc 2001-09-09 03:46:40.000000000 +0200 +++ new/X11-1.10.3/Graphics/X11/Xlib/Extras.hsc 2001-09-09 03:46:40.000000000 +0200 @@ -220,6 +220,15 @@ , ev_height :: !CInt , ev_count :: !CInt } + | FocusChangeEvent + { ev_event_type :: !EventType + , ev_serial :: !CULong + , ev_send_event :: !Bool + , ev_event_display :: Display + , ev_window :: !Window + , ev_mode :: !NotifyMode + , ev_detail :: !NotifyDetail + } | ClientMessageEvent { ev_event_type :: !EventType , ev_serial :: !CULong @@ -702,6 +711,23 @@ } ------------------------- + -- FocusChangeEvent + ------------------------- + | type_ == focusIn || type_ == focusOut -> do + window <- #{peek XFocusChangeEvent, window } p + mode <- #{peek XFocusChangeEvent, mode } p + detail <- #{peek XFocusChangeEvent, detail } p + return $ FocusChangeEvent + { ev_event_type = type_ + , ev_serial = serial + , ev_send_event = send_event + , ev_event_display = display + , ev_window = window + , ev_mode = mode + , ev_detail = detail + } + + ------------------------- -- ClientMessageEvent ------------------------- | type_ == clientMessage -> do @@ -1502,6 +1528,19 @@ 0 -> return (SizeHints Nothing Nothing Nothing Nothing Nothing Nothing) _ -> peek sh +foreign import ccall "XlibExtras.h XAllocSizeHints" + xAllocSizeHints :: IO (Ptr SizeHints) + +foreign import ccall unsafe "XlibExtras.h XSetWMNormalHints" + xSetWMNormalHints :: Display -> Window -> Ptr SizeHints -> IO () + +setWMNormalHints :: Display -> Window -> SizeHints -> IO () +setWMNormalHints dpy win hints = do + ptr_hints <- throwIfNull "xAllocSizeHints" xAllocSizeHints + poke ptr_hints hints + xSetWMNormalHints dpy win ptr_hints + _ <- xFree ptr_hints + return () data ClassHint = ClassHint { resName :: String diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/X11-1.10.2/X11.cabal new/X11-1.10.3/X11.cabal --- old/X11-1.10.2/X11.cabal 2001-09-09 03:46:40.000000000 +0200 +++ new/X11-1.10.3/X11.cabal 2001-09-09 03:46:40.000000000 +0200 @@ -1,5 +1,5 @@ name: X11 -version: 1.10.2 +version: 1.10.3 synopsis: A binding to the X11 graphics library description: A Haskell binding to the X11 graphics library. The binding is a direct translation of the C binding; for documentation of these calls, refer @@ -10,7 +10,7 @@ copyright: Alastair Reid, 1999-2003, [email protected] 2003-2007, Don Stewart 2007-2009, Spencer Janssen 2007-2009, Daniel Wagner 2009-2011. maintainer: Daniel Wagner <[email protected]> -tested-with: GHC == 7.10.3 || == 8.0.2 || == 8.2.2 || == 8.4.4 || == 8.6.5 || == 8.8.4 || == 8.10.4 || == 9.0.1 +tested-with: GHC == 7.10.3 || == 8.0.2 || == 8.2.2 || == 8.4.4 || == 8.6.5 || == 8.8.4 || == 8.10.7 || == 9.0.2 || == 9.2.2 category: Graphics homepage: https://github.com/xmonad/X11 bug-reports: https://github.com/xmonad/X11/issues
