From: Daniel W. <dm...@lu...> - 2013-02-15 01:57:09
|
diffing dir... Sat Jan 5 02:07:55 GMT 2013 Hamish Mackenzie <ham...@go...> * Add scrolledWindowMinContentWidth/Height Ignore-this: 586322739d30f6e05630ec503afa07ef hunk ./gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs 98 +#if GTK_MAJOR_VERSION >= 3 + scrolledWindowSetMinContentWidth, + scrolledWindowGetMinContentWidth, + scrolledWindowSetMinContentHeight, + scrolledWindowGetMinContentHeight, +#endif hunk ./gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs 118 +#if GTK_MAJOR_VERSION >= 3 + scrolledWindowMinContentWidth, + scrolledWindowMinContentHeight, +#endif hunk ./gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs 272 +#if GTK_MAJOR_VERSION >= 3 +-- | Sets the minimum width that @scrolledWindow@ should keep visible. +-- Note that this can and (usually will) be smaller than the minimum size of the content. +-- +scrolledWindowSetMinContentWidth :: ScrolledWindowClass self => self -> Int -> IO () +scrolledWindowSetMinContentWidth self width = + {# call gtk_scrolled_window_set_min_content_width #} + (toScrolledWindow self) + (fromIntegral width) + +-- | Gets the minimum content width of @scrolledWindow@, or -1 if not set. +-- +scrolledWindowGetMinContentWidth :: ScrolledWindowClass self => self -> IO Int +scrolledWindowGetMinContentWidth self = + liftM fromIntegral $ + {# call unsafe scrolled_window_get_min_content_width #} + (toScrolledWindow self) + +-- | Sets the minimum height that @scrolledWindow@ should keep visible. +-- Note that this can and (usually will) be smaller than the minimum size of the content. +-- +scrolledWindowSetMinContentHeight :: ScrolledWindowClass self => self -> Int -> IO () +scrolledWindowSetMinContentHeight self height = + {# call gtk_scrolled_window_set_min_content_height #} + (toScrolledWindow self) + (fromIntegral height) + +-- | Gets the minimum content height of @scrolledWindow@, or -1 if not set. +-- +scrolledWindowGetMinContentHeight :: ScrolledWindowClass self => self -> IO Int +scrolledWindowGetMinContentHeight self = + liftM fromIntegral $ + {# call unsafe scrolled_window_get_min_content_height #} + (toScrolledWindow self) +#endif + hunk ./gtk/Graphics/UI/Gtk/Scrolling/ScrolledWindow.chs 404 +#if GTK_MAJOR_VERSION >= 3 +-- | Minimum width that @scrolledWindow@ should keep visible. +-- +-- Default value: -1 +-- +scrolledWindowMinContentWidth :: ScrolledWindowClass self => Attr self Int +scrolledWindowMinContentWidth = newAttr + scrolledWindowGetMinContentWidth + scrolledWindowSetMinContentWidth + +-- | Minimum height that @scrolledWindow@ should keep visible. +-- +-- Default value: -1 +-- +scrolledWindowMinContentHeight :: ScrolledWindowClass self => Attr self Int +scrolledWindowMinContentHeight = newAttr + scrolledWindowGetMinContentHeight + scrolledWindowSetMinContentHeight +#endif + |