H34890 s 00068/00000/00000 d D 1.1 02/05/02 15:35:05 root 2 1 cC cF1 cK61933 cO-rw-rw-r-- e s 00000/00000/00000 d D 1.0 02/05/02 15:35:05 root 1 0 c BitKeeper file /Mastodon/Core/Build/ncurses/Ada95/html/terminal_interface-curses-forms-field_types_s.html cBor@egypt.pell.portland.or.us|ChangeSet|20020502223039|07086|e73225ae258b78f8 cHegypt.pell.portland.or.us cK01692 cPAda95/html/terminal_interface-curses-forms-field_types_s.html cRe1b5ae25a6557f1c cV4 cX0x821 cZ-07:00 e u U f e 0 f x 0x821 t T I 2
------------------------------------------------------------------------------ -- -- -- GNAT ncurses Binding -- -- -- -- Terminal_Interface.Curses.Forms.Field_Types -- -- -- -- S P E C -- -- -- -- Version 00.92 -- -- -- -- The ncurses Ada95 binding is copyrighted 1996 by -- -- Jürgen Pfeifer, Email: Juergen.Pfeifer@T-Online.de -- -- -- -- Permission is hereby granted to reproduce and distribute this -- -- binding by any means and for any fee, whether alone or as part -- -- of a larger distribution, in source or in binary form, PROVIDED -- -- this notice is included with any such distribution, and is not -- -- removed from any of its header files. Mention of ncurses and the -- -- author of this binding in any applications linked with it is -- -- highly appreciated. -- -- -- -- This binding comes AS IS with no warranty, implied or expressed. -- ------------------------------------------------------------------------------ -- Version Control: -- @Revision: 1.3 @ ------------------------------------------------------------------------------ with Ada.Finalization; use Ada.Finalization; -- You must instantiate this package for any user defined field type -- to make it visible to the runtime. -- generic type User is new Ada_Defined_Field_Type with private; type User_Access is access User; with function Field_Check (Fld : Field; Info : User_Access) return Boolean; with function Character_Check (Ch : Character; Info : User_Access) return Boolean; package Terminal_Interface.Curses.Forms.Field_Types is -- -- Nothing public. All happens magically. -- private type Tracker is new Limited_Controlled with null record; procedure Initialize (Obj : in out Tracker); procedure Finalize (Obj : in out Tracker); end Terminal_Interface.Curses.Forms.Field_Types;
This is BETA software. The interface is subject to change without notice.
This hypertext format was generated by David A. Wheeler's ada2html E 2 I 1 E 1