-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 2000,2004 Free Software Foundation, Inc. --
+-- Copyright (c) 2000-2004,2006 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.5 $
--- $Date: 2004/08/21 21:37:00 $
+-- $Revision: 1.6 $
+-- $Date: 2006/06/25 14:24:40 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with ncurses2.util; use ncurses2.util;
return retval;
end gettime;
-
-- in C, The behavior of mvhline, mvvline for negative/zero length is
-- unspecified, though we can rely on negative x/y values to stop the
-- macro. Except Ada makes Line_Position(-1) = Natural - 1 so forget it.
end if;
end do_v_line;
-
-
-
function padgetch (win : Window) return Key_Code is
c : Key_Code;
c2 : Character;
end if;
end panner_v_cleanup;
-
procedure panner (pad : Window;
top_xp : Column_Position;
top_yp : Line_Position;
end if;
end greater;
-
pymax : Line_Position;
basey : Line_Position := 0;
pxmax : Column_Position;
-- bottom-right corner fixed.
when Character'Pos ('h') =>
-- increase-columns: move left edge to left
- if top_x <= 0 then
+ if top_x = 0 then
Beep;
else
panner_v_cleanup (top_y, top_x, porty);
end if;
when Character'Pos ('k') =>
-- increase-lines: move top-edge up
- if top_y <= 0 then
+ if top_y = 0 then
Beep;
else
top_y := top_y - 1;