-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 2000 Free Software Foundation, Inc. --
+-- Copyright 2020 Thomas E. Dickey --
+-- Copyright 2000-2006,2008 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
------------------------------------------------------------------------------
-- Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
-- Version Control
--- $Revision: 1.1 $
+-- $Revision: 1.4 $
+-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
color_names : constant array (0 .. 15) of String (1 .. 7) :=
(
- "black",
- "red",
- "green",
- "yellow",
- "blue",
+ "black ",
+ "red ",
+ "green ",
+ "yellow ",
+ "blue ",
"magenta",
- "cyan",
- "white",
- "BLACK",
- "RED",
- "GREEN",
- "YELLOW",
- "BLUE",
+ "cyan ",
+ "white ",
+ "BLACK ",
+ "RED ",
+ "GREEN ",
+ "YELLOW ",
+ "BLUE ",
"MAGENTA",
- "CYAN",
- "WHITE"
+ "CYAN ",
+ "WHITE "
);
-
procedure show_color_name (y, x : Integer; color : Integer) is
tmp5 : String (1 .. 5);
begin
end if;
end show_color_name;
-
top, width : Integer;
hello : String (1 .. 5);
-- tmp3 : String (1 .. 3);
end if;
if Number_Of_Colors > 8 then
- hello := "Test";
+ hello := "Test ";
else
hello := "Hello";
end if;