- Timestamp:
- Jan 13, 2017, 3:21:12 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified ncurses/vendor/current/Ada95/samples/sample-explanation.ads ¶
r85 r1910 8 8 -- -- 9 9 ------------------------------------------------------------------------------ 10 -- Copyright (c) 1998 Free Software Foundation, Inc.--10 -- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. -- 11 11 -- -- 12 12 -- Permission is hereby granted, free of charge, to any person obtaining a -- … … 36 36 -- Author: Juergen Pfeifer, 1996 37 37 -- Version Control 38 -- $Revision: 1.1 0$38 -- $Revision: 1.11 $ 39 39 -- Binding Version 01.00 40 40 ------------------------------------------------------------------------------ … … 45 45 package Sample.Explanation is 46 46 47 procedure Explain (Key : inString);47 procedure Explain (Key : String); 48 48 -- Retrieve the text associated with this key and display it. 49 49 … … 51 51 -- Explain the current context. 52 52 53 procedure Notepad (Key : inString);53 procedure Notepad (Key : String); 54 54 -- Put a note on the screen and maintain it with the context 55 55
Note:
See TracChangeset
for help on using the changeset viewer.