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

Text File | 1995-09-02 | 5KB | 316 lines

object S2_FRAME1 is MEDIADISTRIBUTOR
with
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S2_1_HBL1F1F_PIC,
        S2_2_HBBUB2_PIC,
        S2_3_HBBUB1_PIC,
        S2_4_CHAR2,
        S2_5_CHAR1,
        S2_6_BACK,
        S2_8_HBBCKFL_PIC,
        S2_11_NEXT,
        S2_13_HBNEXFL_PIC,
        S2_12_HBSQUA_MOV,
        S2_14_HBSHOEA_MOV,
        S2_15_HBSPRESA_MOV,
        S2_16_SAMPLES_PAR
    ];
end;

object S2_1_HBL1F1F_PIC is MEDIASCROLLER
has

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

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

object S2_2_HBBUB2_PIC is MEDIASCROLLER
has

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

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S2_4_CHAR2.Enable(true);
            S2_5_CHAR1.Enable(true);
            S2_14_HBSHOEA_MOV.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M106_HBBUB2_PIC; Duration is 0; end;
    Duration is -1;
    X is 325; Y is 210; Width is 159; Height is 186;
end;

object S2_3_HBBUB1_PIC is MEDIASCROLLER
has

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

    MouseDown(theX, theY)
        do
            self.Enable(false);
            self.Show(false);
            S2_4_CHAR2.Enable(true);
            S2_5_CHAR1.Enable(true);
            S2_14_HBSHOEA_MOV.Enable(true);
            S2_16_SAMPLES_PAR.Show(false);
        end;

with
    Target is PICTURECLIENT with Supplier is M103_HBBUB1_PIC; Duration is 0; end;
    Duration is -1;
    X is 191; Y is 211; Width is 192; Height is 142;
end;

object S2_4_CHAR2 is MEDIADELEGATOR
has

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

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S2_5_CHAR1.Enable(false);
            S2_3_HBBUB1_PIC.Show(true);
            S2_3_HBBUB1_PIC.Enable(true);
            S2_14_HBSHOEA_MOV.Enable(false);
        end;

with
    Duration is -1;
    X is 93; Y is 101; Width is 149; Height is 259;
end;

object S2_5_CHAR1 is MEDIADELEGATOR
has

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

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S2_4_CHAR2.Enable(false);
            S2_2_HBBUB2_PIC.Show(true);
            S2_2_HBBUB2_PIC.Enable(true);
            S2_14_HBSHOEA_MOV.Enable(true);
            S2_16_SAMPLES_PAR.Show(true);
        end;

with
    Duration is -1;
    X is 452; Y is 69; Width is 116; Height is 392;
end;

object S2_6_BACK is MEDIADELEGATOR
has

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

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

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

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

with
    Duration is -1;
    X is 603; Y is 442; Width is 37; Height is 38;
end;

object S2_8_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 S2_11_NEXT is MEDIADELEGATOR
has

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

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

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

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

with
    Duration is -1;
    X is 0; Y is 442; Width is 39; Height is 38;
end;

object S2_13_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 S2_12_HBSQUA_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 M149_HBSQUA_MOV; end;
    Duration is 0;
    X is 234; Y is 426; Width is 173; Height is 53;
end;

object S2_14_HBSHOEA_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 M164_HBSHOEA_MOV; end;
    Duration is 0;
    X is 281; Y is 180; Width is 64; Height is 72;
end;

object S2_15_HBSPRESA_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 M165_HBSPRESA_MOV; end;
    Duration is 0;
    X is 579; Y is 39; Width is 60; Height is 249;
end;

object S2_16_SAMPLES_PAR is MEDIASCROLLER
has

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

with
    Target is TEXTCLIENT with Supplier is M180_SAMPLES_PAR; Duration is 0; end;
    Duration is -1;
    X is 203; Y is 258; Width is 164; Height is 61;
end;