|
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: 14336 (0x3800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbt_Window4, seg_004ffc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Xlbt_Window4 is
------------------------------------------------------------------------------
-- X Library Windows - Full Interface - Enumerations and Discretes
--
-- Xlbt_Window4 - Types dealing with windows and window state
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
-- Copyright 1985 - 1989 by the Massachusetts Institute of Technology
--
-- All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of MIT or Rational not be
-- used in advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- MIT and Rational disclaim all warranties with regard to this software,
-- including all implied warranties of merchantability and fitness, in no
-- event shall MIT or Rational be liable for any special, indirect or
-- consequential damages or any damages whatsoever resulting from loss of use,
-- data or profits, whether in an action of contract, negligence or other
-- tortious action, arising out of or in connection with the use or performance
-- of this software.
------------------------------------------------------------------------------
--\x0c
------------------------------------------------------------------------------
-- X_Backing_Store_Hint
------------------------------------------------------------------------------
type X_Backing_Store_Hint is (Not_Useful,
When_Mapped,
Always);
--/ if Length_Clauses then
for X_Backing_Store_Hint'Size use 8;
--/ end if;
None_X_Backing_Store_Hint : constant X_Backing_Store_Hint :=
X_Backing_Store_Hint'Val (0);
------------------------------------------------------------------------------
-- X_Bit_Gravity
------------------------------------------------------------------------------
type X_Bit_Gravity is (Forget_Bit_Gravity,
North_West_Bit_Gravity,
North_Bit_Gravity,
North_East_Bit_Gravity,
West_Bit_Gravity,
Center_Bit_Gravity,
East_Bit_Gravity,
South_West_Bit_Gravity,
South_Bit_Gravity,
South_East_Bit_Gravity,
Static_Bit_Gravity);
--/ if Length_Clauses then
for X_Bit_Gravity'Size use 8;
--/ end if;
None_X_Bit_Gravity : constant X_Bit_Gravity := X_Bit_Gravity'Val (0);
------------------------------------------------------------------------------
-- X_Circulate_Place
------------------------------------------------------------------------------
type X_Circulate_Place is
(Place_On_Top,
Place_On_Bottom);
--/ if Length_Clauses then
for X_Circulate_Place'Size use 8;
--/ end if;
----Circulation direction
Raise_Lowest : constant X_Circulate_Place := Place_On_Top;
Lower_Highest : constant X_Circulate_Place := Place_On_Bottom;
------------------------------------------------------------------------------
-- X_Map_State
------------------------------------------------------------------------------
type X_Map_State is (Is_Unmapped,
Is_Unviewable,
Is_Viewable);
--/ if Length_Clauses then
for X_Map_State'Size use 8;
--/ end if;
None_X_Map_State : constant X_Map_State := X_Map_State'Val (0);
-----------------------------------------------------------------------------
-- X_New_Window_Attributes
------------------------------------------------------------------------------
--/ if Bit0_Sign_Bit then
type X_New_Window_Attributes_Index is
(Xnwai31, Xnwai30, Xnwai29, Xnwai28, Xnwai27, Xnwai26,
Xnwai25, Xnwai24, Xnwai23, Xnwai22, Xnwai21, Xnwai20,
Xnwai19, Xnwai18, Xnwai17, Xnwai16, Xnwai15, -- Unused
Cw_Cursor,
Cw_Colormap,
Cw_Dont_Propagate,
Cw_Event_Mask,
Cw_Save_Under,
Cw_Override_Redirect,
Cw_Backing_Pixel,
Cw_Backing_Planes,
Cw_Backing_Store,
Cw_Win_Gravity,
Cw_Bit_Gravity,
Cw_Border_Pixel,
Cw_Border_Pixmap,
Cw_Background_Pixel,
Cw_Background_Pixmap);
--/ else -- not Bit0_Sign_Bit then
--//
--// type X_New_Window_Attributes_Index is
--// (Cw_Background_Pixmap,
--// Cw_Background_Pixel,
--// Cw_Border_Pixmap,
--// Cw_Border_Pixel,
--// Cw_Bit_Gravity,
--// Cw_Win_Gravity,
--// Cw_Backing_Store,
--// Cw_Backing_Planes,
--// Cw_Backing_Pixel,
--// Cw_Override_Redirect,
--// Cw_Save_Under,
--// Cw_Event_Mask,
--// Cw_Dont_Propagate,
--// Cw_Colormap,
--// Cw_Cursor,
--// Xnwai15, Xnwai16, Xnwai17, Xnwai18, Xnwai19, Xnwai20,
--// Xnwai21, Xnwai22, Xnwai23, Xnwai24, Xnwai25, Xnwai26,
--// Xnwai27, Xnwai28, Xnwai29, Xnwai30, Xnwai31);
--//
--/ end if;
type X_New_Window_Attributes is
array (X_New_Window_Attributes_Index) of Boolean;
--/ if Length_Clauses then
for X_New_Window_Attributes'Size use 32;
--/ elsif Pack then
--// pragma Pack (X_New_Window_Attributes);
--/ end if;
None_X_New_Window_Attributes : constant X_New_Window_Attributes :=
X_New_Window_Attributes'(others => False);
All_X_New_Window_Attributes : constant X_New_Window_Attributes :=
X_New_Window_Attributes'
(Xnwai31 | Xnwai30 | Xnwai29 | Xnwai28 | Xnwai27 | Xnwai26 |
Xnwai25 | Xnwai24 | Xnwai23 | Xnwai22 | Xnwai21 | Xnwai20 |
Xnwai19 | Xnwai18 | Xnwai17 | Xnwai16 | Xnwai15 => False, -- Unused
Cw_Cursor | Cw_Colormap | Cw_Dont_Propagate | Cw_Event_Mask |
Cw_Save_Under | Cw_Override_Redirect | Cw_Backing_Pixel |
Cw_Backing_Planes | Cw_Backing_Store | Cw_Win_Gravity |
Cw_Bit_Gravity | Cw_Border_Pixel | Cw_Border_Pixmap |
Cw_Background_Pixel | Cw_Background_Pixmap => True);
------------------------------------------------------------------------------
-- X_Property_Mode
------------------------------------------------------------------------------
type X_Property_Mode is (Prop_Mode_Replace,
Prop_Mode_Prepend,
Prop_Mode_Append);
--/ if Length_Clauses then
for X_Property_Mode'Size use 8;
--/ end if;
------------------------------------------------------------------------------
-- Property notification
------------------------------------------------------------------------------
type X_Property_State is (Property_New_Value,
Property_Delete);
--/ if Length_Clauses then
for X_Property_State'Size use 8;
--/ end if;
------------------------------------------------------------------------------
-- X_Window_Changes_Mask
------------------------------------------------------------------------------
--/ if Bit0_Sign_Bit then
type X_Window_Changes_Mask_Index is
(Xwcmi15, Xwcmi14, Xwcmi13, Xwcmi12, Xwcmi11,
Xwcmi10, Xwcmi09, Xwcmi08, Xwcmi07, Cw_Stack_Mode,
Cw_Sibling,
Cw_Border_Width,
Cw_Height,
Cw_Width,
Cw_Y,
Cw_X);
--/ else -- not Bit0_Sign_Bit then
--//
--// type X_Window_Changes_Mask_Index is
--// (Cw_X,
--// Cw_Y,
--// Cw_Width,
--// Cw_Height,
--// Cw_Border_Width,
--// Cw_Sibling,
--// Cw_Stack_Mode,
--// Xwcmi07, Xwcmi08, Xwcmi09, Xwcmi10, Xwcmi11,
--// Xwcmi12, Xwcmi13, Xwcmi14, Xwcmi15);
--//
--/ end if;
type X_Window_Changes_Mask is
array (X_Window_Changes_Mask_Index) of Boolean;
--/ if Length_Clauses then
for X_Window_Changes_Mask'Size use 16;
--/ elsif Pack then
--// pragma Pack (X_Window_Changes_Mask);
--/ end if;
None_X_Window_Changes_Mask : constant X_Window_Changes_Mask :=
X_Window_Changes_Mask'(others => False);
All_X_Window_Changes_Mask : constant X_Window_Changes_Mask :=
X_Window_Changes_Mask'(Xwcmi15 | Xwcmi14 | Xwcmi13 | Xwcmi12 | Xwcmi11 |
Xwcmi10 | Xwcmi09 | Xwcmi08 | Xwcmi07 => False,
Cw_Stack_Mode | Cw_Sibling | Cw_Border_Width |
Cw_Height | Cw_Width | Cw_Y | Cw_X => True);
------------------------------------------------------------------------------
-- X_Window_Class
------------------------------------------------------------------------------
type X_Window_Class is (Copy_From_Parent,
Input_Output,
Input_Only);
--/ if Length_Clauses then
for X_Window_Class'Size use 16;
--/ end if;
None_X_Window_Class : constant X_Window_Class := X_Window_Class'Val (0);
------------------------------------------------------------------------------
-- X_Window_Gravity
------------------------------------------------------------------------------
type X_Window_Gravity is (Unmap_Gravity,
North_West_Gravity,
North_Gravity,
North_East_Gravity,
West_Gravity,
Center_Gravity,
East_Gravity,
South_West_Gravity,
South_Gravity,
South_East_Gravity,
Static_Gravity);
--/ if Length_Clauses then
for X_Window_Gravity'Size use 8;
--/ end if;
None_X_Window_Gravity : constant X_Window_Gravity :=
X_Window_Gravity'Val (0);
------------------------------------------------------------------------------
-- X_Window_Stacking
------------------------------------------------------------------------------
type X_Window_Stacking is (Above,
Below,
Top_If,
Bottom_If,
Opposite);
--/ if Length_Clauses then
for X_Window_Stacking'Size use 8;
--/ end if;
None_X_Window_Stacking : constant X_Window_Stacking :=
X_Window_Stacking'Val (0);
end Xlbt_Window4;
nblk1=d
nid=0
hdr6=1a
[0x00] rec0=13 rec1=00 rec2=01 rec3=05a
[0x01] rec0=17 rec1=00 rec2=02 rec3=000
[0x02] rec0=18 rec1=00 rec2=03 rec3=086
[0x03] rec0=21 rec1=00 rec2=04 rec3=008
[0x04] rec0=00 rec1=00 rec2=0d rec3=002
[0x05] rec0=1d rec1=00 rec2=05 rec3=026
[0x06] rec0=1e rec1=00 rec2=06 rec3=07a
[0x07] rec0=14 rec1=00 rec2=07 rec3=004
[0x08] rec0=1d rec1=00 rec2=08 rec3=00c
[0x09] rec0=21 rec1=00 rec2=09 rec3=09c
[0x0a] rec0=19 rec1=00 rec2=0a rec3=046
[0x0b] rec0=19 rec1=00 rec2=0b rec3=052
[0x0c] rec0=0b rec1=00 rec2=0c rec3=000
tail 0x21700792a8197855473e1 0x42a00088462063203