← Back to branch summary

~ubuntu-branches/ubuntu/natty/ncurses/natty

« back to all changes in this revision

Viewing changes to Ada95/samples/ncurses2-color_test.adb

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-05-17 09:00:42 UTC
  • mfrom: (1.1.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070517090042-86fgxrr6j5jzagot
Tags: 5.6-0ubuntu1
* New upstream version.
  - Remove patches applied upstream: ncurses.upstream, signed-chars.
  - Update patches: debian-backspace.
* Build-depend on g++-multilib instead of lib{32,64}c*-dev-*.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Ada95/samples/ncurses2-color_test.adb
7
7
--                                 B O D Y                                  --
8
8
--                                                                          --
9
9
------------------------------------------------------------------------------
 
10
-- Copyright (c) 2000,2006 Free Software Foundation, Inc.                   --
10
11
--                                                                          --
11
12
-- Permission is hereby granted, free of charge, to any person obtaining a  --
12
13
-- copy of this software and associated documentation files (the            --
35
35
------------------------------------------------------------------------------
36
36
--  Author: Eugene V. Melaragno <aldomel@ix.netcom.com> 2000
37
37
--  Version Control
 
38
--  $Revision: 1.2 $
 
39
--  $Date: 2006/06/25 14:24:40 $
38
40
--  Binding Version 01.00
39
41
------------------------------------------------------------------------------
40
42
with ncurses2.util; use ncurses2.util;
68
69
      "WHITE"
69
70
      );
70
71
 
71
 
 
72
72
   procedure show_color_name (y, x : Integer; color : Integer) is
73
73
      tmp5 : String (1 .. 5);
74
74
   begin
83
83
      end if;
84
84
   end show_color_name;
85
85
 
86
 
 
87
86
   top, width : Integer;
88
87
   hello : String (1 .. 5);
89
88
   --  tmp3 : String (1 .. 3);