-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-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 --
-- authorization. --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
--- Contact: http://www.familiepfeifer.de/Contact.aspx?Lang=en
-- Version Control
--- $Revision: 1.8 $
+-- $Revision: 1.16 $
+-- $Date: 2008/07/26 18:47:58 $
-- Binding Version 01.00
------------------------------------------------------------------------------
-with Terminal_Interface.Curses.Forms; use Terminal_Interface.Curses.Forms;
-- This is a very simple user defined field type. It accepts only a
-- defined character as input into the field.
--
package body Sample.My_Field_Type is
- -- That's simple. There are no field validity checks.
+ -- That's simple. There are minimal field validity checks.
function Field_Check (Fld : Field;
Typ : My_Data) return Boolean
is
begin
+ if Fld = Null_Field or Typ.Ch = Character'Val (0) then
+ return False;
+ end if;
return True;
end Field_Check;