← Back to branch summary

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

« back to all changes in this revision

Viewing changes to Ada95/src/terminal_interface-curses-text_io.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/src/terminal_interface-curses-text_io.adb
7
7
--                                 B O D Y                                  --
8
8
--                                                                          --
9
9
------------------------------------------------------------------------------
 
10
-- Copyright (c) 1998-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:  Juergen Pfeifer, 1996
37
37
--  Version Control:
 
38
--  $Revision: 1.18 $
 
39
--  $Date: 2006/06/25 14:24:40 $
38
40
--  Binding Version 01.00
39
41
------------------------------------------------------------------------------
40
42
package body Terminal_Interface.Curses.Text_IO is
128
128
   is
129
129
      P_Size : constant Count := Page_Length (Win);
130
130
   begin
131
 
      if Spacing not in Positive_Count then
 
131
      if not Spacing'Valid then
132
132
         raise Constraint_Error;
133
133
      end if;
134
134
 
166
166
      X2 : Column_Position;
167
167
      N  : Natural;
168
168
   begin
169
 
      if To not in Positive_Count then
 
169
      if not To'Valid then
170
170
         raise Constraint_Error;
171
171
      end if;
172
172
 
200
200
      X  : Column_Position;
201
201
      N  : Natural;
202
202
   begin
203
 
      if To not in Positive_Count then
 
203
      if not To'Valid then
204
204
         raise Constraint_Error;
205
205
      end if;
206
206