with Ada.Strings.Unbounded; use Ada.Strings.Unbounded; with unbounded_strings; use unbounded_strings; package graphical_editor.user_message is procedure Show_Message_Box(Msg : Unbounded_String); procedure Show_Message_Box (Msg : String); end graphical_editor.user_message;