|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbp_Window_Information, seg_004f94
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_Basic;
use Xlbt_Basic;
with Xlbt_Key;
use Xlbt_Key;
with Xlbt_Window;
use Xlbt_Window;
package Xlbp_Window_Information is
------------------------------------------------------------------------------
-- X Library Miscellaneous Window Information
--
-- Xlbp_Window_Information - Provide useful miscellaneous information
------------------------------------------------------------------------------
-- 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
procedure X_Get_Geometry (Display : X_Display;
Drawable : X_Drawable;
Root : out X_Window;
X : out S_Short;
Y : out S_Short;
Width : out U_Short;
Height : out U_Short;
Border_Width : out U_Short;
Depth : out U_Char;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Drawable - Specifies the drawable (Window, Pixmap) to use.
-- Root - Receives the root window ID for the specified window.
-- X - Receives the X coordinate of the drawable.
-- Y - Receives the Y coordinate of the drawable. These specify
-- the upper left outer corner relative to its parent's origin.
-- For pixmaps, these coordinates are always zero.
-- Width - Receives the width of the drawable.
-- Height - Receives the height of the drawable. These are the
-- drawable's dimensions. For windows, these specify the
-- inside size, not including the border.
-- Border_Width - Receives the border width in pixels. For pixmaps, this
-- is always zero.
-- Depth - Receives the depth of the pixmap (bits per pixel) for the
-- object.
-- Status - Receives Successful or Failed.
------------------------------------------------------------------------------
procedure X_Get_Window_Attributes (Display : X_Display;
Window : X_Window;
Values : in out X_Window_Attributes;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Values - Receives the attributes of the specified window.
-- Status - Receives Successful or Failed.
------------------------------------------------------------------------------
procedure X_Query_Pointer (Display : X_Display;
Window : X_Window;
Root : out X_Window;
Child : out X_Window;
Root_X : out U_Short;
Root_Y : out U_Short;
Window_X : out S_Short;
Window_Y : out S_Short;
Mask : out X_Key_Button_Mask;
Same_Screen : out Boolean);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Root - Receives the root window ID for the specified window.
-- Identifies the root window the pointer is currently on.
-- Child - Receives the child window ID that the pointer is on, if any.
-- Root_X - Receives the X coordinate relative to the root origin.
-- Root_Y - Receives the Y coordinate relative to the root origin.
-- Window_X - Receives the X coordinate relative to the specified window's
-- origin.
-- Window_Y - Receives the Y coordinate relative to the specified window's
-- origin.
-- Mask - Receives the current state of the modifier keys and pointer
-- buttons.
-- Same_Screen - Receives True if the pointer is on the same screen as the
-- window associated with the window specified. Receives
-- False if not; in this case Child = None_X_Window and
-- Window_X/Y are both zero.
--
-- Returns the root window the pointer is logically on and the pointer
-- coordinates relative to the root window's origin.
------------------------------------------------------------------------------
procedure X_Query_Tree (Display : X_Display;
Window : X_Window;
Root : out X_Window;
Parent : out X_Window;
Children : out X_Window_List;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Root - Receives the root window.
-- Parent - Receives the parent window.
-- Children - Receives the child list.
-- Status - Receives Successful or Failed. Children = None_X_Window_List
-- if this is Failed.
--
-- Returns the root, the parent, and a list of the children of the specified
-- window. The Successful/Failed status of the query is part of the return
-- value. Use Free_X_Window_List to deallocate the Children value when done.
------------------------------------------------------------------------------
procedure X_Translate_Coordinates (Display : X_Display;
Source : X_Window;
Destination : X_Window;
Source_X : S_Short;
Source_Y : S_Short;
Destination_X : out S_Short;
Destination_Y : out S_Short;
Child : out X_Window;
Same_Screen : out Boolean);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Source - Specifies the source window.
-- Destination - Specifies the destination window.
-- Source_X - Specifies the source X coordinate.
-- Source_Y - Specifies the source Y coordinate.
-- Destination_X - Receives the destination X coordinate.
-- Destination_Y - Receives the destination Y coordinate.
-- Child - Receives the child window if the coordinates are
-- contained in a mapped child of the destination window.
-- Same_Screen - Receives True if Source_Window and Destination_Window
-- are on the same screen. Receives False if not; in
-- this case then Child = None_X_Window and
-- Destination_X/Y are both zero.
------------------------------------------------------------------------------
end Xlbp_Window_Information;
nblk1=9
nid=0
hdr6=12
[0x00] rec0=1a rec1=00 rec2=01 rec3=03e
[0x01] rec0=12 rec1=00 rec2=02 rec3=00e
[0x02] rec0=0f rec1=00 rec2=03 rec3=024
[0x03] rec0=10 rec1=00 rec2=04 rec3=054
[0x04] rec0=12 rec1=00 rec2=05 rec3=006
[0x05] rec0=10 rec1=00 rec2=06 rec3=00a
[0x06] rec0=13 rec1=00 rec2=07 rec3=040
[0x07] rec0=0e rec1=00 rec2=08 rec3=098
[0x08] rec0=11 rec1=00 rec2=09 rec3=000
tail 0x21500965c819783a324b3 0x42a00088462063203