LAUNCH 3/LAUNCH.BIN/mac/MEDIAHB/SOURCES/S10_FRAME7.k

Text File | 1995-09-02 | 7KB | 391 lines

object S10_FRAME7 is MEDIADISTRIBUTOR
with
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S10_2_HBL2F32F_PIC,
        S10_1_HBL2F33F_PIC,
        S10_3_HBL2F31F_PIC,
        S10_5_HBBUB6_PIC,
        S10_6_HBBUB5_PIC,
        S10_7_HBBUB11_PIC,
        S10_8_CHAR1,
        S10_9_CHAR2,
        S10_10_CHAR3,
        S10_11_BACK,
        S10_12_HBBCKFL_PIC,
        S10_13_NEXT,
        S10_14_HBNEXFL_PIC,
        S10_15_HBPHONA_MOV,
        S10_16_HBWINA_MOV,
        S10_17_HBHO_A_MOV
    ];
end;

object S10_2_HBL2F32F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is BITMAPCLIENT with Supplier is M131_HBL2F32F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S10_1_HBL2F33F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is BITMAPCLIENT with Supplier is M132_HBL2F33F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S10_3_HBL2F31F_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(true);
        end;

with
    Target is BITMAPCLIENT with Supplier is M130_HBL2F31F_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
end;

object S10_5_HBBUB6_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S10_1_HBL2F33F_PIC.Show(false);
            S10_3_HBL2F31F_PIC.Show(true);
            S10_8_CHAR1.Enable(true);
            S10_9_CHAR2.Enable(true);
            S10_10_CHAR3.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M110_HBBUB6_PIC; Duration is 0; end;
    Duration is -1;
    X is 181; Y is 4; Width is 140; Height is 162;
end;

object S10_6_HBBUB5_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            self.Show(false);
            S10_2_HBL2F32F_PIC.Show(false);
            S10_3_HBL2F31F_PIC.Show(true);
            S10_8_CHAR1.Enable(true);
            S10_9_CHAR2.Enable(true);
            S10_10_CHAR3.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M109_HBBUB5_PIC; Duration is 0; end;
    Duration is -1;
    X is 347; Y is 82; Width is 168; Height is 140;
end;

object S10_7_HBBUB11_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            self.Show(false);
            S10_2_HBL2F32F_PIC.Show(false);
            S10_3_HBL2F31F_PIC.Show(true);
            S10_8_CHAR1.Enable(true);
            S10_9_CHAR2.Enable(true);
            S10_10_CHAR3.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M105_HBBUB11_PIC; Duration is 0; end;
    Duration is -1;
    X is 348; Y is 242; Width is 194; Height is 110;
end;

object S10_8_CHAR1 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S10_9_CHAR2.Enable(false);
            S10_10_CHAR3.Enable(false);
            S10_3_HBL2F31F_PIC.Show(false);
            S10_1_HBL2F33F_PIC.Show(true);
            S10_5_HBBUB6_PIC.Enable(true);
            S10_5_HBBUB6_PIC.Show(true);
        end;

with
    Duration is -1;
    X is 5; Y is 5; Width is 147; Height is 471;
end;

object S10_9_CHAR2 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S10_8_CHAR1.Enable(false);
            S10_10_CHAR3.Enable(false);
            S10_3_HBL2F31F_PIC.Show(false);
            S10_2_HBL2F32F_PIC.Show(true);
            S10_6_HBBUB5_PIC.Enable(true);
            S10_6_HBBUB5_PIC.Show(true);
        end;

with
    Duration is -1;
    X is 476; Y is 201; Width is 62; Height is 101;
end;

object S10_10_CHAR3 is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S10_8_CHAR1.Enable(false);
            S10_9_CHAR2.Enable(false);
            S10_3_HBL2F31F_PIC.Show(false);
            S10_2_HBL2F32F_PIC.Show(true);
            S10_7_HBBUB11_PIC.Enable(true);
            S10_7_HBBUB11_PIC.Show(true);
        end;

with
    Duration is -1;
    X is 548; Y is 193; Width is 75; Height is 165;
end;

object S10_11_BACK is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            TRANSITION.Set(IrisClose, 15);
            APPLICATION.GoTo(S4_LAYOUT2);
        end;

    MouseEnter(theX, theY)
        do
            S10_12_HBBCKFL_PIC.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S10_12_HBBCKFL_PIC.Show(false);
        end;

with
    Duration is -1;
    X is 598; Y is 440; Width is 40; Height is 37;
end;

object S10_12_HBBCKFL_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is PICTURECLIENT with Supplier is M101_HBBCKFL_PIC; Duration is 0; end;
    Duration is -1;
    X is 550; Y is 427; Width is 90; Height is 53;
end;

object S10_13_NEXT is MEDIADELEGATOR
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
        end;

    MouseDown(theX, theY)
        do
            TRANSITION.Set(WipeLeft, 15);
            APPLICATION.GoTo(S1_LAYOUT1);
        end;

    MouseEnter(theX, theY)
        do
            S10_14_HBNEXFL_PIC.Show(true);
        end;

    MouseLeave(theX, theY)
        do
            S10_14_HBNEXFL_PIC.Show(false);
        end;

with
    Duration is -1;
    X is 2; Y is 441; Width is 39; Height is 36;
end;

object S10_14_HBNEXFL_PIC is MEDIASCROLLER
has

    OffScreen()
        do
            self.Enable(false);
            self.Show(false);
        end;

with
    Target is PICTURECLIENT with Supplier is M137_HBNEXFL_PIC; Duration is 0; end;
    Duration is -1;
    X is 0; Y is 421; Width is 115; Height is 59;
end;

object S10_15_HBPHONA_MOV is MEDIACONTROLLER
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
            self.Run(false);
        end;

    MouseDown(theX, theY)
        do
            self.Run(true);
        end;

    Finished()
        do
            self.GoToBeginning();
        end;

with
    Target is MOVIECLIENT with Supplier is M140_HBPHONA_MOV; end;
    Duration is 0;
    X is 440; Y is 211; Width is 25; Height is 26;
end;

object S10_16_HBWINA_MOV is MEDIACONTROLLER
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
            self.Run(false);
        end;

    MouseDown(theX, theY)
        do
            self.Run(true);
        end;

    Finished()
        do
            self.GoToBeginning();
        end;

with
    Target is MOVIECLIENT with Supplier is M154_HBWINA_MOV; end;
    Duration is 0;
    X is 416; Y is 12; Width is 52; Height is 99;
end;

object S10_17_HBHO_A_MOV is MEDIACONTROLLER
has

    OffScreen()
        do
            self.Enable(true);
            self.Show(true);
            self.Run(false);
        end;

    MouseDown(theX, theY)
        do
            self.Run(true);
        end;

    Finished()
        do
            self.GoToBeginning();
        end;

with
    Target is MOVIECLIENT with Supplier is M161_HBHO_A_MOV; end;
    Duration is 0;
    X is 261; Y is 267; Width is 90; Height is 57;
end;