diff --git a/glfw-group.cabal b/glfw-group.cabal
--- a/glfw-group.cabal
+++ b/glfw-group.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           glfw-group
-version:        0.1.0.5
+version:        0.1.0.6
 synopsis:       GLFW package with window groups destroyed together
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/glfw-group#readme>
 category:       Graphics
diff --git a/src/Graphics/UI/GlfwG/Window.hs b/src/Graphics/UI/GlfwG/Window.hs
--- a/src/Graphics/UI/GlfwG/Window.hs
+++ b/src/Graphics/UI/GlfwG/Window.hs
@@ -30,8 +30,12 @@
 
 	-- * STATE
 
-	getKey
+	getKey,
 
+	-- * ATTRIBUTES
+	
+	getIconified
+
 	) where
 
 import Prelude hiding (lookup)
@@ -130,3 +134,6 @@
 
 getKey :: W sw -> B.Key -> IO B.KeyState
 getKey (W w) = B.getKey w
+
+getIconified :: W sw -> IO Bool
+getIconified (W w) = B.getWindowIconified w