|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Desk, seg_021fb6
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- Copyright (c) 1990 Meridian Software Systems, Inc. --
with Mac_Types;
use Mac_Types;
with Quickdraw;
with Events;
package Desk is
Accevent : constant := 64;
Accrun : constant := 65;
Acccursor : constant := 66;
Accmenu : constant := 67;
Accundo : constant := 68;
Acccut : constant := 70;
Acccopy : constant := 71;
Accpaste : constant := 72;
Accclear : constant := 73;
Goodbye : constant := -1;
Undo : constant := 0;
Cut : constant := 2;
Copy : constant := 3;
Past : constant := 4;
Clear : constant := 5;
function Opendeskacc (Theacc : Str255) return Mac_Types.Integer;
pragma Interface (Mpwpascal, Opendeskacc, "16#A9B6#");
procedure Closedeskacc (Refnum : Mac_Types.Integer);
pragma Interface (Mpwpascal, Closedeskacc, "16#A9B7#");
procedure Systemclick (Theevent : Events.Eventrecord;
Thewindow : Quickdraw.Windowptr);
pragma Interface (Mpwpascal, Systemclick, "16#A9B3#");
function Systemedit (Editcmd : Mac_Types.Integer) return Boolean;
pragma Interface (Mpwpascal, Systemedit, "16#A9C2#");
procedure Systemtask;
pragma Interface (Mpwpascal, Systemtask, "16#A9B4#");
function Systemevent (Theevent : Events.Eventrecord) return Boolean;
pragma Interface (Mpwpascal, Systemevent, "16#A9B2#");
procedure Systemmenu (Menuresult : Longint);
pragma Interface (Mpwpascal, Systemmenu, "16#A9B5#");
end Desk;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=21 rec1=00 rec2=01 rec3=010
[0x01] rec0=0f rec1=00 rec2=02 rec3=000
tail 0x2171dca7083906dd5d567 0x42a00088462060003