|
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: 29696 (0x7400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xlbp_Window, seg_004f92
└─⟦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_Window;
use Xlbt_Window;
with Xlbt_Visual;
use Xlbt_Visual;
package Xlbp_Window is
------------------------------------------------------------------------------
-- X Library Window Controls
--
-- Xlbp_Window - Control functions for windows.
------------------------------------------------------------------------------
-- 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_Change_Window_Attributes
(Display : X_Display;
Window : X_Window;
Values_Mask : X_New_Window_Attributes;
Values : X_Set_Window_Attributes);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Values_Mask - Specifies the fields within Attributes to be used in
-- making changes to the windows attributes.
-- Values - Specifies the attributes to be changed; only those fields
-- indicated as valid by the Values_Mask need be set.
--
-- Uses the Values as indicated by Values_Mask to make changes in the basic
-- attributes of the indicated window. The contents of the window are not
-- changed. X_Clear_Area can be used to force a redisplay of the window's
-- contents. See the Xlib manual for the extensive details.
------------------------------------------------------------------------------
procedure X_Circulate_Subwindows (Display : X_Display;
Window : X_Window;
Direction : X_Circulate_Place);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be circulated.
-- Direction - Specifies the direction.
--
-- Circulates the subwindow(s) of the specified window in the chosen direction.
-- Raise_Lowest raises the lowest mapped child (if any) that is occluded by
-- another child to the top of the stack.
-- Lower_Highest lowers the highest mapped child (if any) that occludes another
-- child to the bottom of the stack.
------------------------------------------------------------------------------
procedure X_Circulate_Subwindows_Down (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be circulated.
--
-- Just like X_Circulate_Subwindows with Raise_Lowest.
------------------------------------------------------------------------------
procedure X_Circulate_Subwindows_Up (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be circulated.
--
-- Just like X_Circulate_Subwindows with Lower_Highest.
------------------------------------------------------------------------------
procedure X_Configure_Window (Display : X_Display;
Window : X_Window;
Values_Mask : X_Window_Changes_Mask;
Values : X_Window_Changes);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to configure.
-- Values_Mask - Specifies which fields in Changes are to be used.
-- Values - Specifies the configuration changes to be made to the window.
--
-- Uses the values from Values as indicated by flags in Mask to reconfigure
-- a window's size, position, border, and/or stacking order.
------------------------------------------------------------------------------
function X_Create_Simple_Window
(Display : X_Display;
Parent : X_Window;
X : S_Short;
Y : S_Short;
Width : U_Short_Positive;
Height : U_Short_Positive;
Border_Width : U_Short;
Border : X_Pixel;
Background : X_Pixel) return X_Window;
------------------------------------------------------------------------------
-- Display - Specifies the display to use
-- Parent - Specifies the parent window ID.
-- X - Specify the X coordinate.
-- Y - Specify the Y coordinate. These coordinates are the top
-- left outside corner of the created window's borders and are
-- relative to the inside of the parent window's borders.
-- Width - Specify the width of the window.
-- Height - Specify the height of the window. These are the created
-- window's inside dimensions. These dimensions do not
-- include the created window's borders, which are entirely
-- outside of the window. The dimensions must be non-zero.
-- Border_Width - Specifies, in pixels, the width of the created window's
-- border. Must be non-zero for Input_Only windows.
-- Border - Specifies the border pixel value of the window.
-- Background - Specifies the background pixel value of the window.
--
-- Creates and returns an unmapped Input_Output window for the specified
-- parent window. Causes the X server to generate a Create_Notify event.
-- The new window is place on top of the stacking order.
------------------------------------------------------------------------------
function X_Create_Window (Display : X_Display;
Parent : X_Window;
X : S_Short;
Y : S_Short;
Width : U_Short_Positive;
Height : U_Short_Positive;
Border_Width : U_Short;
Depth : U_Char;
Class : X_Window_Class;
Visual : X_Visual;
Values_Mask : X_New_Window_Attributes;
Values : X_Set_Window_Attributes) return X_Window;
------------------------------------------------------------------------------
-- Display - Specifies the display to use
-- Parent - Specifies the parent window ID.
-- X - Specify the X coordinate.
-- Y - Specify the Y coordinate. These coordinates are the top
-- left outside corner of the created window's borders and are
-- relative to the inside of the parent window's borders.
-- Width - Specify the width of the window.
-- Height - Specify the height of the window. These are the created
-- window's inside dimensions. These dimensions do not
-- include the created window's borders, which are entirely
-- outside of the window. The dimensions must be non-zero.
-- Border_Width - Specifies, in pixels, the width of the created window's
-- border. Must be non-zero for Input_Only windows.
-- Depth - Specifies the depth of the new window. A depth of zero
-- for class Input_Output or Copy_From_Parent means the depth
-- is taken from the parent.
-- Class - Specifies the created window's class. A class of
-- Copy_From_Parent means the class is taken from the parent.
-- Visual - Specifies the visual type. A visual of
-- Copy_From_Parent_Class means the visual type is taken from
-- the parent.
-- Values_Mask - Specifies which window attributes are defined in the
-- Attributes argument.
-- Values - Specifies the attributes to be set at creation time. The
-- Values_Mask should have the appropriate bits set to indicate
-- which Attributes have been set in this structure.
--
-- Creates and returns a new unmapped window with the specified characteristics.
-- Causes the X server to generate a Create_Notify event. The new window is
-- place on top of the stacking order.
------------------------------------------------------------------------------
procedure X_Destroy_Subwindows (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be destroyed.
--
-- Destroys all inferior windows of the specified window, in bottom to top
-- stacking order. It causes the X server to generate a Destroy_Notify event
-- for each window. The subwindows should never again be referenced.
------------------------------------------------------------------------------
procedure X_Destroy_Window (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to destroy.
--
-- Destroys the specified window as well as all of its subwindows and causes
-- the X server to generate a Destroy_Notify event for each window. The window
-- should never again be referenced.
------------------------------------------------------------------------------
procedure X_Iconify_Window (Display : X_Display;
Window : X_Window;
Screen : X_Screen_Number;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to affect.
-- Screen - Specifies the screen
-- Status - Receives Successful if the request has been made; receives
-- Failed if the request could not be made
--
-- Sends an Xa_Wm_Change_State Client_Message event with a format of 32 and a
-- first data element of Iconic_State (as described in section 4.14 of the
-- ICCCM) to the root window of the specified screen. If the window is in
-- its normal state and if the window manager has elected to receive these
-- events then the window should change to the iconic state.
------------------------------------------------------------------------------
procedure X_Lower_Window (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to lower.
--
-- Lowers the specified window to the bottom of the stack so that it does not
-- obscure any sibling windows.
------------------------------------------------------------------------------
procedure X_Map_Raised (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to map and raise.
--
-- Just like X_Map_Window except that it also raises the window to the top of
-- the window stack.
------------------------------------------------------------------------------
procedure X_Map_Subwindows (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be mapped.
--
-- Maps all subwindows for a specified window in top-to-bottom stacking order.
-- The X server generates an Expose event on each newly displayed window.
------------------------------------------------------------------------------
procedure X_Map_Window (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to map.
--
-- Maps the window and all of its subwindows which have had previous map
-- requests. A subwindow will appear on the screen as long as all of its
-- ancestors are mapped and not obscured by a sibling or are not clipped by
-- and ancestor.
------------------------------------------------------------------------------
procedure X_Move_Resize_Window (Display : X_Display;
Window : X_Window;
X : S_Short;
Y : S_Short;
Width : U_Short_Positive;
Height : U_Short_Positive);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to resize.
-- X - Specifies the new X coordinate.
-- Y - Specifies the new Y coordinate. These coordinates define the new
-- location of the top left pixel of the window's border or of the
-- window itself if it has no border.
-- Width - Specifies the new width, in pixels.
-- Height - Specifies the new height, in pixels.
--
-- Changes the size and location of the specified window without raising it.
-- Moving and resizing a window may generate an Expose event on the window.
------------------------------------------------------------------------------
procedure X_Move_Window (Display : X_Display;
Window : X_Window;
X : S_Short;
Y : S_Short);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to move.
-- X - Specifies the new X coordinate.
-- Y - Specifies the new Y coordinate. These coordinates define the new
-- location of the top left pixel of the window's border or of the
-- window itself if it has no border.
--
-- Moves the specified window to the indicated X and Y coordinates. Does not
-- change the size, does not raise the window, and does not change the
-- mapping state of the window. Moving a window may or may not lose the
-- contents and cause Expose events.
------------------------------------------------------------------------------
procedure X_Raise_Window (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to raise.
--
-- Raises the specified window to the top of the stack so that no sibling
-- window obscures it. May generate Expose events on this window and its
-- mapped subwindows.
------------------------------------------------------------------------------
procedure X_Reconfigure_Wm_Window (Display : X_Display;
Window : X_Window;
Screen : X_Screen_Number;
Values_Mask : X_Window_Changes_Mask;
Values : X_Window_Changes;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to affect.
-- Screen - Specifies the screen of the window.
-- Values_Mask - Specifies the values within the Values record.
-- Values - Specifies the values to change for the window.
-- Status - Receives Successful if we made the request or Failed if we
-- could not make it for some reason.
--
-- Issues a Configure_Window request on the specified top-level window. If
-- the stacking mode is changed and the request fails with a Bad_Match error
-- then the error event is trapped and a synthetic Configure_Request_Event
-- containing the same configuration parameters is sent to the root of the
-- specified window. Window managers may elect to receive this event and treat
-- it as a request to reconfigure the window.
------------------------------------------------------------------------------
procedure X_Reparent_Window (Display : X_Display;
Window : X_Window;
Parent : X_Window;
X : S_Short;
Y : S_Short);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to reparent.
-- Parent - Specifies the new parent window.
-- X - Specifies the X coordinate relative to the parent for the window.
-- Y - Specifies the Y coordinate relative to the parent for the window.
--
-- Reparents the specified window by inserting it as the child of the
-- specified parent.
------------------------------------------------------------------------------
procedure X_Resize_Window (Display : X_Display;
Window : X_Window;
Width : U_Short_Positive;
Height : U_Short_Positive);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to resize.
-- Width - Specifies the new width, in pixels.
-- Height - Specifies the new height, in pixels.
--
-- Changes the inside dimensions of the specified window, not including its
-- borders. This function does not change the window's upper-left coordinate
-- or the origin and does not raise the window. Changing the size may lose
-- the contents of the window and may cause an Expose event.
------------------------------------------------------------------------------
procedure X_Restack_Windows (Display : X_Display;
Windows : X_Window_Array);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Windows - Specifies the windows to be restacked. All of these windows
-- must have the same parent.
--
-- Restacks the windows in the order specified, from top to bottom. The
-- stacking order of the first window in the windows array will be unaffected,
-- but the other windows in the array will be stacked underneath the first
-- window in the order of their appearance in the array. The stacking order
-- of windows not appearing in the array are unaffected.
------------------------------------------------------------------------------
procedure X_Set_Window_Background (Display : X_Display;
Window : X_Window;
Pixel : X_Pixel);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Pixel - Specifies the new background pixel value.
--
-- Sets the background pixel of the window. This does not change the contents
-- of the window; use X_Clear_Area to cause the window to be redrawn.
------------------------------------------------------------------------------
procedure X_Set_Window_Background_Pixmap (Display : X_Display;
Window : X_Window;
Pixmap : X_Pixmap);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Pixmap - Specifies the new background pixmap value.
--
-- Sets the background pixmap of the window. If no background pixmap is
-- specified then the background pixmap of the parent is used. On the root
-- window the default background will be restored. The pixmap can be
-- immediately freed if no further explicit references to it are to be made.
-- This can not be performed on an Input_Only window. This does not change
-- the contents of the window; use X_Clear_Area to cause the window to be
-- redrawn.
------------------------------------------------------------------------------
procedure X_Set_Window_Border (Display : X_Display;
Window : X_Window;
Pixel : X_Pixel);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Pixel - Specifies the new border pixel.
--
-- Sets the border pixel of the window. It uses this value as an entry in the
-- color map to determine which color is to be used to paint the border. This
-- change takes immediate effect and the border is redrawn (if necessary).
------------------------------------------------------------------------------
procedure X_Set_Window_Border_Pixmap (Display : X_Display;
Window : X_Window;
Pixmap : X_Pixmap);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to use.
-- Pixmap - Specifies the new border pixmap value.
--
-- Sets the border pixmap of the window. If no background pixmap is
-- specified then the background pixmap of the parent is used. On the root
-- window the default background will be restored. The pixmap can be
-- immediately freed if no further explicit references to it are to be made.
-- This can not be performed on an Input_Only window. This change takes
-- immediate effect and the border is redrawn (if necessary).
------------------------------------------------------------------------------
procedure X_Set_Window_Border_Width (Display : X_Display;
Window : X_Window;
Width : U_Short);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to set.
-- Width - Specifies the width of the window border, in pixels.
--
-- Sets the specified window's border width to the specified width.
------------------------------------------------------------------------------
procedure X_Unmap_Subwindows (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window whose subwindows are to be unmapped.
--
-- Unmaps all subwindows for the specified window in bottom to top stacking
-- order. Causes the X server to generate an Unmap_Notify event for each
-- window unmapped. Has no effect if there are no mapped subwindows.
------------------------------------------------------------------------------
procedure X_Unmap_Window (Display : X_Display;
Window : X_Window);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to unmap.
--
-- Unmaps the specified window and causes the X server to generate an
-- Unmap_Notify event. Has not effect if the window is already unmapped.
------------------------------------------------------------------------------
procedure X_Withdraw_Window (Display : X_Display;
Window : X_Window;
Screen : X_Screen_Number;
Status : out X_Status);
------------------------------------------------------------------------------
-- Display - Specifies the display to use.
-- Window - Specifies the window to affect.
-- Screen - Specifies the screen
-- Status - Receives Successful if the request has been made; receives
-- Failed if the request could not be made
--
-- Unmaps the specified window and sends a synthetic Unmap_Notify event to
-- the root window of the specified screen. If the window has elected to
-- receive these events then the window should change to the withdraw state
-- where neither the window nor its icon are visible.
------------------------------------------------------------------------------
--\x0c
end Xlbp_Window;
nblk1=1c
nid=0
hdr6=38
[0x00] rec0=1a rec1=00 rec2=01 rec3=092
[0x01] rec0=13 rec1=00 rec2=02 rec3=05e
[0x02] rec0=11 rec1=00 rec2=03 rec3=01e
[0x03] rec0=12 rec1=00 rec2=04 rec3=034
[0x04] rec0=12 rec1=00 rec2=05 rec3=02c
[0x05] rec0=13 rec1=00 rec2=06 rec3=050
[0x06] rec0=0f rec1=00 rec2=07 rec3=004
[0x07] rec0=12 rec1=00 rec2=08 rec3=032
[0x08] rec0=0e rec1=00 rec2=09 rec3=06a
[0x09] rec0=10 rec1=00 rec2=0a rec3=01a
[0x0a] rec0=12 rec1=00 rec2=0b rec3=034
[0x0b] rec0=13 rec1=00 rec2=0c rec3=038
[0x0c] rec0=12 rec1=00 rec2=0d rec3=09c
[0x0d] rec0=14 rec1=00 rec2=0e rec3=07e
[0x0e] rec0=13 rec1=00 rec2=0f rec3=02c
[0x0f] rec0=12 rec1=00 rec2=10 rec3=052
[0x10] rec0=13 rec1=00 rec2=11 rec3=02a
[0x11] rec0=10 rec1=00 rec2=12 rec3=036
[0x12] rec0=11 rec1=00 rec2=13 rec3=05e
[0x13] rec0=14 rec1=00 rec2=14 rec3=02a
[0x14] rec0=10 rec1=00 rec2=15 rec3=062
[0x15] rec0=12 rec1=00 rec2=16 rec3=06e
[0x16] rec0=12 rec1=00 rec2=17 rec3=02e
[0x17] rec0=12 rec1=00 rec2=18 rec3=08e
[0x18] rec0=12 rec1=00 rec2=19 rec3=054
[0x19] rec0=12 rec1=00 rec2=1a rec3=088
[0x1a] rec0=12 rec1=00 rec2=1b rec3=048
[0x1b] rec0=04 rec1=00 rec2=1c rec3=000
tail 0x2150096588197838fb122 0x42a00088462063203