/usr/share/doc/libtexttools-doc/examples/listinfo.adb is in libtexttools-doc 2.1.0-10.
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 34 35 36 37 38 39 40 41 42 43 44 45 46 | with Common, OS, UserIO, Controls, Windows;
use Common, OS, UserIO, Controls, Windows;
procedure listinfo is
line1 : aliased AStaticLine;
line2 : aliased AStaticLine;
ok : aliased ASimpleButton;
DT : aDialogTaskRecord;
list : Strlist.Vector;
begin
StartupCommon( "TIA", "tia" );
StartupOS;
StartupUserIO;
StartupControls;
StartupWindows;
OpenWindow( "ShowListInfo Demo", 0, 0, 60, 20, normal, false );
DrawWindow;
Init( line1, 2, 2, 58, 2 );
SetText( line1, "This a demonstration of ShowListInfo." );
AddControl( line1'unchecked_access );
Init( line2, 2, 3, 58, 3 );
SetText( line2, "It displays a list that the user can view." );
AddControl( line2'unchecked_access );
Init( ok, 2, 18, 30, 18, 'o' );
SetText( ok, "OK" );
AddControl( ok'unchecked_access );
DoDialog( DT );
pragma Unreferenced (DT);
LoadList( "listinfo.adb", list );
ShowListInfo( "Source code for this program", 0, 1, 79, 24, list );
pragma Unreferenced (List);
CloseWindow;
ShutdownWindows;
ShutdownControls;
ShutdownUserIO;
ShutdownOS;
ShutdownCommon;
end listinfo;
|