DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦fee177141⟧ TextFile

    Length: 9424 (0x24d0)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

--      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;