|
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: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Main, seg_00535e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Xlbt_Arithmetic; use Xlbt_Arithmetic; with Xlbt_Basic; use Xlbt_Basic; with Xlbt_Hint; use Xlbt_Hint; with Xlbt_Image; use Xlbt_Image; with Xlbt_String; use Xlbt_String; package Main is ------------------------------------------------------------------------------ -- Dragon - a version of Mah-Jongg for X Windows -- -- Author: Gary E. Barnes March 1989 -- -- Main - Used by all modules. ------------------------------------------------------------------------------ -- 05/30/90 GEB - Translate to Ada ------------------------------------------------------------------------------ --\x0c Quit : exception; -- Used for normal termination. Abandon : exception; -- Used for abnormal termination. ------------------------------------------------------------------------------ -- Dragon Resources ------------------------------------------------------------------------------ type Dragon_Resources_Rec is record Foreground : X_Pixel; -- Default foreground color Background : X_Pixel; -- Default background color Cursor : X_Cursor; -- Name of cursor to use Debug : Boolean; -- Debug printouts Double_Click : X_Time; -- Time (ms) between clicks Geometry : X_String_Pointer; -- Geometry for the board Icon_Geometry : X_String_Pointer; -- Geometry for our icon Iconic : Boolean; -- Do we start as an icon? Icon_Name : X_String_Pointer; -- Name for the icon Reverse_Video : Boolean; -- Do all in reverse? Sticky_Tile : Boolean; -- Is first tile sticky? Tile_Shadows : Boolean; -- Want shadows? Tile_Sides : X_String_Pointer; -- What side type? end record; type Display_State is (S_Play, S_Sample); Board_State : Display_State := S_Play; Dragon_Resources : Dragon_Resources_Rec;-- Application resources Dpy : X_Display; -- The display connection Dragon : X_Window; -- The top level window Board : X_Window; -- Our main drawable Tile_Control : S_Long; -- Control bits Shadow : constant S_Long := Shift (1, 0); Blackside : constant S_Long := Shift (1, 1); Grayside : constant S_Long := Shift (1, 2); Gray_Gc : X_Gc; -- fg=blk, bg=wht, fcn=copy Normal_Gc : X_Gc; -- fg=blk, bg=wht, fcn=copy Over_Gc : X_Gc; -- fg=blk, bg=wht, fcn=or Reverse_Gc : X_Gc; -- fg=wht, bg=blk, fcn=copy Xor_Gc : X_Gc; -- fg=blk, bg=wht, fcn=xor procedure Set_Size_Hints (Hints : in out X_Size_Hints; Geom : X_String); ------------------------------------------------------------------------------ -- Hints - Receives the X/Y/Width/Height values from the Geometry string -- Geom - Specifies the string specified by the user for the geometry -- -- Parses the geometry string (if any) and takes care of setting the X/Y and -- the Width/Height fields in the Hints structure. ------------------------------------------------------------------------------ procedure Main (Display : X_String); ------------------------------------------------------------------------------ -- Our Main-Line Code. ------------------------------------------------------------------------------ end Main;
nblk1=5 nid=0 hdr6=a [0x00] rec0=21 rec1=00 rec2=01 rec3=006 [0x01] rec0=0f rec1=00 rec2=05 rec3=056 [0x02] rec0=02 rec1=00 rec2=02 rec3=04e [0x03] rec0=17 rec1=00 rec2=03 rec3=00a [0x04] rec0=0d rec1=00 rec2=04 rec3=000 tail 0x2170088dc819787870b36 0x42a00088462063203