DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦96ebebc97⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Set_Sizehints, seg_0052ef, separate Xev_Main

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

separate (Xev_Main)  
procedure Set_Sizehints (Hintp      : in out X_Size_Hints;  
                         Min_Width  :        S_Long;  
                         Min_Height :        S_Long;  
                         Defwidth   :        S_Long;  
                         Defheight  :        S_Long;  
                         Defx       :        S_Long;  
                         Defy       :        S_Long;  
                         Geom       :        X_String) is  
    Geom_Result : X_Parse_Geometry_Flags;  
begin

----Set the size hints, algorithm from xlib xbiff

    Hintp.Width := Min_Width;  
    Hintp.Min_Width := Min_Width;  
    Hintp.Height := Min_Height;  
    Hintp.Min_Height := Min_Height;  
    Hintp.Flags := X_Size_Hints_Flags'(P_Min_Size => True, others => False);  
    Hintp.X := 0;  
    Hintp.Y := 0;  
    Geom_Result := None_X_Parse_Geometry_Flags;  
    if Geom /= "" then  
        X_Parse_Geometry (Geom,  
                          S_Short (Hintp.X), S_Short (Hintp.Y),  
                          U_Short (Hintp.Width), U_Short (Hintp.Height),  
                          Geom_Result);  
        if Geom_Result (Width_Value) and then  
           Geom_Result (Height_Value) then  
            Hintp.Width            := Max (Hintp.Width, Hintp.Min_Width);  
            Hintp.Height           := Max (Hintp.Height, Hintp.Min_Height);  
            Hintp.Flags (U_S_Size) := True;  
        end if;  
        if Geom_Result (X_Value) and then  
           Geom_Result (Y_Value) then  
            Hintp.Flags (U_S_Position) := True;  
        end if;  
    end if;  
    if not Hintp.Flags (U_S_Size) then  
        Hintp.Width          := Defwidth;  
        Hintp.Height         := Defheight;  
        Hintp.Flags (P_Size) := True;  
    end if;  
    if not Hintp.Flags (U_S_Position) then  
        Hintp.X                  := Defx;  
        Hintp.Y                  := Defy;  
        Hintp.Flags (P_Position) := True;  
    end if;

    if Geom_Result (X_Negative) then  
        Hintp.X := S_Long (X_Display_Width (Dpy, X_Default_Screen (Dpy))) +  
                      Hintp.X - S_Long (Hintp.Width);  
    end if;  
    if Geom_Result (Y_Negative) then  
        Hintp.Y := S_Long (X_Display_Height (Dpy, X_Default_Screen (Dpy))) +  
                      Hintp.Y - S_Long (Hintp.Height);  
    end if;

end Set_Sizehints;  

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1a rec1=00 rec2=01 rec3=02e
        [0x01] rec0=16 rec1=00 rec2=02 rec3=026
        [0x02] rec0=0d rec1=00 rec2=03 rec3=000
    tail 0x2150097e2819786e956e7 0x42a00088462063203