DataMuseum.dk

top - download

    Length: 4942 (0x134e)
    Types: TextFile
    Names: »B«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Process_Events_State;
with Local_Frames;
with Events;
package body List_Editor is
    List_Path : constant String := "F1.SL1.SList";
    Menu_Path : constant String := "MenuBar";
    Label_Path : constant String := "F0.Label";

    Base_Widget_Path : constant String := Widget_Path;

    List_Lf : Local_Frames.Local_Frame;

    type Access_String is access String;
    Selection_String : Access_String;

    procedure Init is
    begin
        List_Lf := Local_Frames.Get_Id_With_Name ("List", Lf, Base_Widget_Path);
    end Init;

    procedure Add_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListAddItem", List_Path, Item);
    end Add_Item;


    procedure Delete_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListDelItem", List_Path, Item);
    end Delete_Item;


    procedure Delete_Item_At_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListDelItemPos", List_Path,
                       Integer'Image (Position));
    end Delete_Item_At_Position;


    procedure Delete_All_Items is
    begin
        Events.Action (List_Lf, "ListDelAllItems", List_Path, "");
    end Delete_All_Items;


    procedure Select_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListSelItem", List_Path, Item);
    end Select_Item;


    procedure Select_Item_At_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListSelPos", List_Path,
                       Integer'Image (Position));
    end Select_Item_At_Position;


    procedure Deselect_All_Items is
    begin
        Events.Action (List_Lf, "ListDesAll", List_Path, "");
    end Deselect_All_Items;


    procedure Deselect_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListDesItem", List_Path, Item);
    end Deselect_Item;


    procedure Deselect_Item_At_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListDesPos", List_Path,
                       Integer'Image (Position));
    end Deselect_Item_At_Position;


    procedure Set_Add_Mode (Add_Mode_On : Boolean) is
    begin
        if Add_Mode_On then
            Events.Action (List_Lf, "ListAddMode", List_Path, "1");
        else
            Events.Action (List_Lf, "ListAddMode", List_Path, "0");
        end if;
    end Set_Add_Mode;


    procedure Set_Horizontal_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListHorizPos", List_Path,
                       Integer'Image (Position));
    end Set_Horizontal_Position;


    procedure Set_Bottom_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListBottomItem", List_Path, Item);
    end Set_Bottom_Item;


    procedure Set_Bottom_At_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListBottomPos", List_Path,
                       Integer'Image (Position));
    end Set_Bottom_At_Position;


    procedure Set_Top_Item (Item : String) is
    begin
        Events.Action (List_Lf, "ListSetItem", List_Path, Item);
    end Set_Top_Item;


    procedure Set_Top_At_Position (Position : Integer) is
    begin
        Events.Action (List_Lf, "ListBottomPos", List_Path,
                       Integer'Image (Position));
    end Set_Top_At_Position;


    function Exist_Item (Item : String) return Boolean is
        S : constant String := Events.Action
                                  (List_Lf, "ListItemExists", List_Path, Item);
    begin
        if S = "1" then
            return True;
        else
            return False;
        end if;
    end Exist_Item;


    function Item_Position (Item : String) return Integer is
        S : constant String := Events.Action
                                  (List_Lf, "ListItemExists", List_Path, Item);
    begin
        return Integer'Value (S);
    end Item_Position;


    function Get_Selected_Item return String is
    begin
        return Selection_String.all;
    end Get_Selected_Item;

    procedure Set_Label (Label : String) is
    begin
        Events.Action (List_Lf, "LabelSetString", Label_Path, Label);
    end Set_Label;

    function Process_Events return Process_Events_State.Elements is
        Result_State : Process_Events_State.Elements :=
           Process_Events_State.Not_Processed;
    begin
        if not Events.Empty then
            declare  
                Lf : constant Local_Frames.Local_Frame := Events.Get_Lf;
                Evt_Type : constant String := Events.Get_Type;
                Field : constant String := Events.Get_Field;
                Value : constant String := Events.Get_Value;
            begin
                if Evt_Type = "List_editor_selection" and Lf = List_Lf then  
                    Selection_String := new String'(Value);
                end if;  
                Result_State := Process_Events_State.Not_Processed;
            end;
        end if;
        return Result_State;
    end Process_Events;
end List_Editor;