Introduce sorting structs

src/ui/utility.rs

@@ -72,6 +72,16 @@ macro_rules ! icon { ( $ icon_name : expr ) => {
 	gtk4 :: Image :: from_icon_name ( $ icon_name )
 } }
 
+macro_rules ! scrolled_window { (
+	$ ( @ propagate_natural_height : $ propagate_natural_height : expr , ) ?
+	$ child : expr $ (,) ?
+) => { {
+	let widget = gtk4 :: ScrolledWindow :: new () ;
+	$ ( widget . set_propagate_natural_height ( $ propagate_natural_height ) ; ) ?
+	widget . set_child ( Some ( & $ child ) ) ;
+	widget
+} } }
+
 macro_rules ! vertically_filling { ( $ child : expr ) => {
 	g_box ! (
 		@ orientation : gtk4 :: Orientation :: Vertical ,
@@ -93,5 +103,6 @@ pub (crate) use {
 	split_button ,
 	popover ,
 	icon ,
+	scrolled_window ,
 	vertically_filling ,
 } ;