Working on Imp UI theme...

source/main.adb

@@ -21,6 +21,8 @@ procedure main is
 
                                              ------------------------------------------------------------------------------------------
 
+	-- TODO: This menu code is now useless due to new UI code.
+
 	type menu_index is (
 		menu_none, menu_attribute, menu_skill, menu_resource, menu_unit, menu_might, menu_magic
 	);
@@ -69,6 +71,8 @@ procedure main is
 
                                              ------------------------------------------------------------------------------------------
 
+	-- TODO: Also useless, delete later...
+
 	procedure show_attribute_menu is begin menu_insert (menu_attribute);                                     end show_attribute_menu;
 	procedure show_skill_menu     is begin menu_insert (menu_skill);                                         end show_skill_menu;
 	procedure show_resource_menu  is begin menu_insert (menu_resource);                                      end show_resource_menu;
@@ -80,6 +84,8 @@ procedure main is
 	procedure zoom_in             is begin core.zoom := 2;                                                   end zoom_in;
 	procedure zoom_out            is begin core.zoom := 1;                                                   end zoom_out;
 
+	-- TODO: This is fine.
+
 	signal_list : constant array (core.signal_code) of access procedure := (
 		core.signal_up          => core.move_camera_up'access,
 		core.signal_down        => core.move_camera_down'access,
@@ -163,7 +169,7 @@ begin
 		--
 		menu_render;
 		--
-		ui.draw_fill_bar (400, 400, 400, 0.6);
+		--~ui.draw_fill_bar (400, 400, 400, 0.3);
 		--
 		ui.synchronize;
 		--

source/skill.adb

@@ -10,14 +10,7 @@ package body skill is
 
 	sprite : array (enumeration) of core.sprite;
 
-	menu_data : ui.structure := ("Skill Menu              ", core.signal_o, true, true, false, 0, 0, 320, 160);
-
-                                             ------------------------------------------------------------------------------------------
-
-	procedure archery_menu is
-	begin
-		ui.draw_text_box ("Heyo world!");
-	end archery_menu;
+	menu_data : ui.structure := ("Skill Menu              ", core.signal_o, false, true, false, 0, 0, 320, 160);
 
                                              ------------------------------------------------------------------------------------------
 
@@ -34,6 +27,8 @@ package body skill is
 
                                              ------------------------------------------------------------------------------------------
 
+	procedure e is begin core.echo (core.warning, "Heyo world!"); end e;
+
 	procedure menu (x, y : in integer; center : in boolean) is
 		column : constant integer := 2;
 		offset : constant integer := 32;
@@ -46,7 +41,7 @@ package body skill is
 		ui.draw_title_bar (move_x, move_y, width, "Skills");
 		--
 		for index in enumeration loop
-			ui.draw_icon (sprite (index), trait (index).text, move_x + 216 * (enumeration'pos (index) mod column) + offset,             move_y + core.icon * (enumeration'pos (index) / column) + offset, archery_menu'access);
+			ui.draw_icon (sprite (index), trait (index).text, move_x + 216 * (enumeration'pos (index) mod column) + offset,             move_y + core.icon * (enumeration'pos (index) / column) + offset, e'access);
 			ui.write     (trait (index).name, move_x + 216 * (enumeration'pos (index) mod column) + offset + core.icon, move_y + core.icon * (enumeration'pos (index) / column) + offset);
 		end loop;
 	end menu;