{-# LINE 2 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}-- -*-haskell-*--- GIMP Toolkit (GTK) Widget WindowGroup---- Author : Duncan Coutts---- Created: 25 March 2005---- Copyright (C) 2005 Duncan Coutts---- This library is free software; you can redistribute it and/or-- modify it under the terms of the GNU Lesser General Public-- License as published by the Free Software Foundation; either-- version 2.1 of the License, or (at your option) any later version.---- This library is distributed in the hope that it will be useful,-- but WITHOUT ANY WARRANTY; without even the implied warranty of-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU-- Lesser General Public License for more details.---- |-- Maintainer : gtk2hs-users@lists.sourceforge.net-- Stability : provisional-- Portability : portable (depends on GHC)---- Limit the effect of grabs--moduleGraphics.UI.Gtk.Windows.WindowGroup(-- * Class Hierarchy-- |-- @-- | 'GObject'-- | +----WindowGroup-- @-- * TypesWindowGroup,WindowGroupClass,castToWindowGroup,gTypeWindowGroup,toWindowGroup,-- * ConstructorswindowGroupNew,-- * MethodswindowGroupAddWindow,windowGroupRemoveWindow,windowGroupListWindows,)whereimportSystem.Glib.FFIimportSystem.Glib.GObject(wrapNewGObject)importSystem.Glib.GList(fromGList)importGraphics.UI.Gtk.Types{-# LINE 58 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}{-# LINE 60 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}---------------------- Constructors-- | Creates a new 'WindowGroup' object. Grabs added with-- 'Graphics.UI.Gtk.General.General.grabAdd' only affect windows within the-- same 'WindowGroup'.--windowGroupNew::IOWindowGroupwindowGroupNew=wrapNewGObjectmkWindowGroup$gtk_window_group_new{-# LINE 72 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}---------------------- Methods-- | Adds a window to a 'WindowGroup'.--windowGroupAddWindow::(WindowGroupClassself,WindowClasswindow)=>self->window-- ^ @window@ - the 'Window' to add->IO()windowGroupAddWindowselfwindow=(\(WindowGrouparg1)(Windowarg2)->withForeignPtrarg1$\argPtr1->withForeignPtrarg2$\argPtr2->gtk_window_group_add_windowargPtr1argPtr2){-# LINE 83 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}(toWindowGroupself)(toWindowwindow)-- | Removes a window from a 'WindowGroup'.--windowGroupRemoveWindow::(WindowGroupClassself,WindowClasswindow)=>self->window-- ^ @window@ - the 'Window' to remove->IO()windowGroupRemoveWindowselfwindow=(\(WindowGrouparg1)(Windowarg2)->withForeignPtrarg1$\argPtr1->withForeignPtrarg2$\argPtr2->gtk_window_group_remove_windowargPtr1argPtr2){-# LINE 93 "./Graphics/UI/Gtk/Windows/WindowGroup.chs" #-}(toWindowGroupself)(toWindowwindow)-- | Returns a list of the 'Window's that belong to @windowGroup@.---- * Available since Gtk+ version 2.14--windowGroupListWindows::WindowGroupClassself=>self-- ^ @windowGroup@ - the window group->IO[Window]-- ^ returns the list of windows inside this groupwindowGroupListWindowsself=doglist<-(\(WindowGrouparg1)->withForeignPtrarg1$\argPtr1->gtk_window_group_list_windowsargPtr1)(toWindowGroupself)ptrList<-fromGListglistmapM(makeNewGObjectmkWindow.return)ptrListforeignimportccallsafe"gtk_window_group_new"gtk_window_group_new::(IO(PtrWindowGroup))foreignimportccallsafe"gtk_window_group_add_window"gtk_window_group_add_window::((PtrWindowGroup)->((PtrWindow)->(IO())))foreignimportccallsafe"gtk_window_group_remove_window"gtk_window_group_remove_window::((PtrWindowGroup)->((PtrWindow)->(IO())))foreignimportccallsafe"gtk_window_group_list_windows"gtk_window_group_list_windows::((PtrWindowGroup)->(IO(Ptr())))