 onSetFocus, afterSetFocus :: (WindowClass self, WidgetClass foc) => self
  -> (foc -> IO ())
  -> IO (ConnectId self)
-onSetFocus = connect_OBJECT__NONE "set_focus" False
-afterSetFocus = connect_OBJECT__NONE "set_focus" True
-
-#endif
+onSetFocus = connect_OBJECT__NONE "set-focus" False
+afterSetFocus = connect_OBJECT__NONE "set-focus" True
+
+#endif


-- | Activates the targets associated with the mnemonic.
windowMnemonicActivate :: WindowClass self => self
 -> Int  -- ^ @keyval@ - the mnemonic                    
 -> [Modifier]  -- ^ @modifier@ - the modifiers                   
 -> IO Bool  -- ^ return @True@ if the activation is done. 
windowMnemonicActivate self keyval modifier = liftM toBool $  

  {# call gtk_window_get_decorated #}
    (toWindow self)

#if GTK_CHECK_VERSION(2,10,0)
-- | By default, windows have a close button in the window frame. 
-- Some window managers allow GTK+ to disable this button. 
-- If you set the deletable property to  @False@ using this function, GTK+ will do its best to convince the window manager not to show a close button. 
-- Depending on the system, this function may not have any effect when called on a window that is already visible, 
-- so you should call it before calling 'windowShow'.
--
-- On Windows, this function always works, since there's no window manager policy involved.
--
