/usr/share/doc/libtexttools-doc/examples/basic.adb is in libtexttools-doc 2.1.0-6build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | with Common, OS, UserIO, Controls, Windows;
use Common, OS, UserIO, Controls, Windows;
procedure basic is
ch : character; -- key pressed
pragma Unreferenced (Ch);
begin
StartupCommon( "TIA", "tia" );
StartupOS;
StartupUserIO;
StartupControls;
StartupWindows;
OpenWindow( "Basic Window", 0, 0, 40, 20, normal, false );
DrawWindow;
MoveTo( 2, 2 );
Draw( "This is a basic TextTools window." );
MoveTo( 2, 3 );
Draw( "It contains no controls." );
MoveTo( 2, 18 );
Draw( "Press any key to quit." );
GetKey( ch );
CloseWindow;
ShutdownWindows;
ShutdownControls;
ShutdownUserIO;
ShutdownOS;
ShutdownCommon;
end basic;
|