|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Dialogs, seg_021fba
└─⟦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 Textedit;
with Windows;
with Events;
package Dialogs is
Ctrlitem : constant := 4;
Btnctrl : constant := 0;
Chkctrl : constant := 1;
Radctrl : constant := 2;
Resctrl : constant := 3;
Stattext : constant := 8;
Edittext : constant := 16;
Iconitem : constant := 32;
Picitem : constant := 64;
Useritem : constant := 0;
Itemdisable : constant := 128;
Ok : constant := 1;
Cancel : constant := 2;
Stopicon : constant := 0;
Noteicon : constant := 1;
Cautionicon : constant := 2;
Tedofont : constant := Textedit.Dofont;
Tedoface : constant := Textedit.Doface;
Tedosize : constant := Textedit.Dosize;
Tedocolor : constant := Textedit.Docolor;
Tedoall : constant := Textedit.Doall;
Teaddsize : constant := Textedit.Addsize;
Dobcolor : constant := 8192;
Domode : constant := 16384;
Dofontname : constant := 32768;
type Dialogrecord is
record
Window : Windows.Windowrecord;
Items : Handle;
Texth : Textedit.Tehandle;
Editfield : Mac_Types.Integer;
Editopen : Mac_Types.Integer;
Adefitem : Mac_Types.Integer;
end record;
type Dialogpeek is access Dialogrecord;
subtype Dialogptr is Quickdraw.Windowptr;
type Vardialogptr is access Dialogptr;
type Dialogtemplate is
record
Boundsrect : Rect;
Procid : Mac_Types.Integer;
Visible : Boolean;
Filler1 : Boolean;
Goawayflag : Boolean;
Filler2 : Boolean;
Refcon : Longint;
Itemsid : Mac_Types.Integer;
Title : Str255;
end record;
type Dialogtptr is access Dialogtemplate;
type Dialogthndl is access Dialogtptr;
type Range0_1 is range 0 .. 1;
type Range0_3 is range 0 .. 3;
type Stagelist is
record
Bolditm4 : Range0_1;
Boxdrwn4 : Boolean;
Sound4 : Range0_3;
Bolditm3 : Range0_1;
Boxdrwn3 : Boolean;
Sound3 : Range0_3;
Bolditm2 : Range0_1;
Boxdrwn2 : Boolean;
Sound2 : Range0_3;
Bolditm1 : Range0_1;
Boxdrwn1 : Boolean;
Sound1 : Range0_3;
end record;
type Alerttemplate is
record
Boundsrect : Rect;
Itemsid : Mac_Types.Integer;
Stages : Stagelist;
end record;
type Alerttptr is access Alerttemplate;
type Alertthndl is access Alerttptr;
procedure Initdialogs (Resumeproc : Procptr);
pragma Interface (Mpwpascal, Initdialogs, "16#A97B#");
procedure Errorsound (Soundproc : Procptr);
pragma Interface (Mpwpascal, Errorsound, "16#A98C#");
function Newdialog (Wstorage : Ptr;
Boundsrect : Rect;
Title : Str255;
Visible : Boolean;
Procid : Mac_Types.Integer;
Behind : Quickdraw.Windowptr;
Goawayflag : Boolean;
Refcon : Longint;
Itmlsthndl : Handle) return Dialogptr;
pragma Interface (Mpwpascal, Newdialog, "16#A97D#");
function Getnewdialog (Dialogid : Mac_Types.Integer;
Dstorage : Ptr;
Behind : Quickdraw.Windowptr) return Dialogptr;
pragma Interface (Mpwpascal, Getnewdialog, "16#A97C#");
procedure Closedialog (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Closedialog, "16#A982#");
procedure Disposdialog (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Disposdialog, "16#A983#");
procedure Coulddialog (Dialogid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Coulddialog, "16#A979#");
procedure Freedialog (Dialogid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Freedialog, "16#A97A#");
procedure Paramtext (Param0 : Str255;
Param1 : Str255;
Param2 : Str255;
Param3 : Str255);
pragma Interface (Mpwpascal, Paramtext, "16#A98B#");
procedure Modaldialog (Filterproc : Procptr;
Itemhit : in out Mac_Types.Integer);
pragma Interface (Mpwpascal, Modaldialog, "16#A991#");
function Isdialogevent (Theevent : Events.Eventrecord) return Boolean;
pragma Interface (Mpwpascal, Isdialogevent, "16#A97F#");
function Dialogselect (Theevent : Events.Eventrecord;
Thedialog : Vardialogptr;
Itemhit : Varinteger) return Boolean;
pragma Interface (Mpwpascal, Dialogselect, "16#A980#");
procedure Drawdialog (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Drawdialog, "16#A981#");
procedure Updtdialog (Thedialog : Dialogptr;
Updatergn : Quickdraw.Rgnhandle);
pragma Interface (Mpwpascal, Updtdialog, "16#A978#");
function Alert (Alertid : Mac_Types.Integer; Filterproc : Procptr)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Alert, "16#A985#");
function Stopalert (Alertid : Mac_Types.Integer; Filterproc : Procptr)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Stopalert, "16#A986#");
function Notealert (Alertid : Mac_Types.Integer; Filterproc : Procptr)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Notealert, "16#A987#");
function Cautionalert (Alertid : Mac_Types.Integer; Filterproc : Procptr)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Cautionalert, "16#A988#");
procedure Couldalert (Alertid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Couldalert, "16#A989#");
procedure Freealert (Alertid : Mac_Types.Integer);
pragma Interface (Mpwpascal, Freealert, "16#A98A#");
procedure Getditem (Thedialog : Dialogptr;
Itemno : Mac_Types.Integer;
Itemtype : in out Mac_Types.Integer;
Item : in out Handle;
Box : in out Rect);
pragma Interface (Mpwpascal, Getditem, "16#A98D#");
procedure Setditem (Thedialog : Dialogptr;
Itemno : Mac_Types.Integer;
Itemtype : Mac_Types.Integer;
Item : Handle;
Box : Rect);
pragma Interface (Mpwpascal, Setditem, "16#A98E#");
procedure Hideditem (Thedialog : Dialogptr; Itemno : Mac_Types.Integer);
pragma Interface (Mpwpascal, Hideditem, "16#A827#");
procedure Showditem (Thedialog : Dialogptr; Itemno : Mac_Types.Integer);
pragma Interface (Mpwpascal, Showditem, "16#A828#");
procedure Selitext (Thedialog : Dialogptr;
Itemno : Mac_Types.Integer;
Strtsel : Mac_Types.Integer;
Endsel : Mac_Types.Integer);
pragma Interface (Mpwpascal, Selitext, "16#A97E#");
procedure Getitext (Item : Handle; Text : in out Str255);
pragma Interface (Mpwpascal, Getitext, "16#A990#");
procedure Setitext (Item : Handle; Text : Str255);
pragma Interface (Mpwpascal, Setitext, "16#A98F#");
function Findditem (Thedialog : Dialogptr; Thept : Point)
return Mac_Types.Integer;
pragma Interface (Mpwpascal, Findditem, "16#A984#");
function Newcdialog (Dstorage : Ptr;
Boundsrect : Rect;
Title : Str255;
Visible : Boolean;
Procid : Mac_Types.Integer;
Behind : Quickdraw.Windowptr;
Goawayflag : Boolean;
Refcon : Longint;
Items : Handle) return Dialogptr;
pragma Interface (Mpwpascal, Newcdialog, "16#AA4B#");
function Getalrtstage return Mac_Types.Integer;
pragma Interface (Mpwpascal, Getalrtstage, "16#3EB8#,16#0A9A#");
procedure Resetalrtstage;
pragma Interface (Mpwpascal, Resetalrtstage, "16#4278#,16#0A9A#");
procedure Dlgcut (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Dlgcut, "DLGCUT");
procedure Dlgpaste (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Dlgpaste, "DLGPASTE");
procedure Dlgcopy (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Dlgcopy, "DLGCOPY");
procedure Dlgdelete (Thedialog : Dialogptr);
pragma Interface (Mpwpascal, Dlgdelete, "DLGDELETE");
procedure Setdafont (Fontnum : Mac_Types.Integer);
pragma Interface (Mpwpascal, Setdafont, "SETDAFONT");
generic
with procedure Routine (Thewindow : Quickdraw.Windowptr;
Itemno : Mac_Types.Integer);
procedure Useritemroutine;
generic
with procedure Routine;
procedure Userresumeroutine;
generic
with procedure Routine (Soundno : Mac_Types.Integer);
procedure Usersoundroutine;
generic
with function Routine (Thedialog : Dialogptr;
Theevent : Events.Eventrecord;
Itemhit : Varinteger) return Boolean;
procedure Userfilterroutine;
end Dialogs;
nblk1=a
nid=0
hdr6=14
[0x00] rec0=21 rec1=00 rec2=01 rec3=040
[0x01] rec0=20 rec1=00 rec2=02 rec3=00c
[0x02] rec0=1f rec1=00 rec2=03 rec3=050
[0x03] rec0=18 rec1=00 rec2=04 rec3=012
[0x04] rec0=16 rec1=00 rec2=05 rec3=046
[0x05] rec0=17 rec1=00 rec2=06 rec3=008
[0x06] rec0=17 rec1=00 rec2=07 rec3=020
[0x07] rec0=18 rec1=00 rec2=08 rec3=008
[0x08] rec0=18 rec1=00 rec2=09 rec3=044
[0x09] rec0=1b rec1=00 rec2=0a rec3=000
tail 0x2171dcaa683906dda584a 0x42a00088462060003