Made proper theme-based separators...

source/main.adb

@@ -149,7 +149,7 @@ procedure main is
 		x      : constant integer := preview_width + core.icon;
 		y      : constant integer := core.icon;
 		width  : constant integer := side_panel - 2 * core.icon;
-		height : constant integer := chad.view_height + 11 * core.icon + 3 * core.base + 2 * offset;
+		height : constant integer := chad.view_height + 11 * core.icon + 4 * core.base + 2 * offset;
 		more   : constant natural := 10;
 		less   : constant natural := 5;
 		side   : constant integer := chad.view_width + attribute.count * core.icon;
@@ -245,6 +245,10 @@ procedure main is
 		--
 		at_y := at_y + 3 * core.icon;
 		--
+		ui.draw_separator (at_x, at_y, width - 2 * offset);
+		--
+		at_y := at_y + core.base;
+		--
 		ui.draw_text (world.day_name    (7).all, at_x, at_y + 0 * core.icon, width - 2 * offset, core.icon, more, 0);
 		ui.draw_text (world.week_name  (52).all, at_x, at_y + 1 * core.icon, width - 2 * offset, core.icon, more, 0);
 		ui.draw_text (world.month_name  (2).all, at_x, at_y + 2 * core.icon, width - 2 * offset, core.icon, more, 0);