| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- Listing:
- 1 MODULE TestNumberInput;
- 2 (*
- 3 System:
- 4 Last Edit: March 19, 1990 7:38 PM
- 5 Author: Mike Carter
- 6 Language: Logitech Modula-2/86 Version 3
- 7
- 8 Description:
- 9 Drives a test frame to allow convenient testing of the new
- 10 numeric input routines.
- 11
- 12 Revision History:
- 13 Created March 10, 1990 - mbc.
- 14
- 15 *)
- 16 FROM ControlUtils IMPORT Input;
- 17 FROM DspFiles IMPORT MainFrame, OpenDisplayFile, CloseDisplayFile;
- 18 FROM ScrnTypes IMPORT DisplayFrame, AFrameName, DisplayFile;
- 19
- 20 VAR
- 21 testFile : DisplayFile;
- 22 nextFrame : AFrameName;
- 23
- 24 BEGIN (* module TestNumberInput *)
- 25 IF OpenDisplayFile( testFile, "testnumb.dsp" ) THEN
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26 nextFrame := "TestFrame";
- ***** ^ not supported yet
- ***** ^ not supported yet
- 27 Input( MainFrame, nextFrame );
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 CloseDisplayFile( testFile );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 29 END; (* if OpenDisplayFile *)
- 30 END TestNumberInput.
- 10 errors
|
