From e9895538f35d2c3a2e61d6b84e34b718cb343dfa Mon Sep 17 00:00:00 2001 From: "R. Tyler Croy" Date: Wed, 18 Jan 2017 21:00:26 -0800 Subject: [PATCH 1/2] Don't bother trying locate a full path if the Command looks like a path Fixes #2 --- src/arun-handlers.adb | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/arun-handlers.adb b/src/arun-handlers.adb index 29372cb..f36983e 100644 --- a/src/arun-handlers.adb +++ b/src/arun-handlers.adb @@ -84,6 +84,12 @@ package body Arun.Handlers is Full_Path : aliased constant String := L.Find_Full_Path (Command); begin + if Command (1) = '/' then + -- If the command starts with a slash, it's likely already a full path so + -- just try to execute it! + L.Execute (Command, Slices); + end if; + if Full_Path /= "" then Put_Line ("Should Execute: " & Full_Path); L.Execute (Full_Path, Slices); From 302c994bc66825e2a2981defd8501aa7f9ed345b Mon Sep 17 00:00:00 2001 From: "R. Tyler Croy" Date: Wed, 18 Jan 2017 21:01:03 -0800 Subject: [PATCH 2/2] Properly refer to the loaded glade resource --- src/arun.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/arun.adb b/src/arun.adb index 61a63aa..e363675 100644 --- a/src/arun.adb +++ b/src/arun.adb @@ -99,7 +99,7 @@ package body Arun is Builder.Launcher.Initialize; Return_Code := Add_From_Resource (Builder => Builder, - Resource_Path => "/io/lasagna/arun/arun.glade", + Resource_Path => "/io/lasagna/arun/resources/arun.glade", Error => Error'Access); if Error /= null then Put_Line ("Error : " & Get_Message (Error));