|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 969 (0x3c9)
Types: TextFile
Names: »V«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
└─ ⟦0c20f784e⟧ »DATA«
└─⟦1abbe589f⟧
└─⟦ada0be243⟧
└─⟦this⟧
with Xlbt_Basic;
use Xlbt_Basic;
with Xlbt_Hint;
use Xlbt_Hint;
package Xload_Icon is
------------------------------------------------------------------------------
-- Xload - a version of xload for the R1000
--
-- Author: Gary E. Barnes March 1991
--
-- Xload_Icon - Deals with our icon. Setup and execution.
------------------------------------------------------------------------------
-- 03/14/91 GEB - Translate to Ada
------------------------------------------------------------------------------
procedure Icon_Setup (Wm_Hints : in out X_Wm_Hints);
------------------------------------------------------------------------------
-- Wm_Hints - Specifies an X_Wm_Hints structure to modify, it receives
-- either an Icon_Pixmap or an Icon_Window as appropriate.
--
-- Called to handle all of the Icon setup for our main shell.
------------------------------------------------------------------------------
end Xload_Icon;