← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Ada95/samples/ncurses2-color_edit.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_edit.adb
7
7
--                                 B O D Y                                  --
8
8
--                                                                          --
9
9
------------------------------------------------------------------------------
 
10
-- Copyright (c) 2000-2004,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.5 $
 
39
--  $Date: 2006/06/25 14:24:40 $
38
40
--  Binding Version 01.00
39
41
------------------------------------------------------------------------------
40
42
with ncurses2.util; use ncurses2.util;
41
43
with ncurses2.genericPuts;
42
44
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
43
45
 
44
 
 
45
46
procedure ncurses2.color_edit is
46
47
   use Int_IO;
47
48
 
54
53
                           value   : RGB_Value;
55
54
                           usebase : Boolean);
56
55
 
57
 
 
58
 
 
59
56
   procedure change_color (current : Color_Number;
60
57
                           field   : RGB_Enum;
61
58
                           value   : RGB_Value;
85
82
 
86
83
   end change_color;
87
84
 
88
 
 
89
85
   package x is new ncurses2.genericPuts (100); use x;
90
86
 
91
87
   tmpb : x.BS.Bounded_String;