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

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

object S7_FRAME5 is MEDIADISTRIBUTOR
with
    Duration is -1;
    X is 0; Y is 0; Width is 640; Height is 480;
    Items is [
        S7_1_HBL2F1F_PIC,
        S7_4_HBBUB5_PIC,
        S7_5_CHAR1,
        S7_3_HBBUB7_PIC,
        S7_7_CHAR2,
        S7_8_BACK,
        S7_9_BUG,
        S7_10_HBBCKFL_PIC,
        S7_11_NEXT,
        S7_12_HBNEXFL_PIC,
        S7_13_HBMNKEYA_MOV,
        S7_14_HBVENA_MOV,
        S7_15_HBFROGA_MOV
    ];
end;

object S7_1_HBL2F1F_PIC is MEDIASCROLLER
has

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

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

object S7_4_HBBUB5_PIC is MEDIASCROLLER
has

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

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S7_5_CHAR1.Enable(true);
            S7_7_CHAR2.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M109_HBBUB5_PIC; Duration is 0; end;
    Duration is -1;
    X is 280; Y is 55; Width is 168; Height is 138;
end;

object S7_5_CHAR1 is MEDIADELEGATOR
has

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

    MouseDown(theX, theY)
        do
            S7_3_HBBUB7_PIC.Show(true);
            S7_3_HBBUB7_PIC.Enable(true);
            self.Enable(false);
            S7_7_CHAR2.Enable(false);
            S7_13_HBMNKEYA_MOV.Enable(false);
        end;

with
    Duration is -1;
    X is 56; Y is 229; Width is 174; Height is 252;
end;

object S7_3_HBBUB7_PIC is MEDIASCROLLER
has

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

    MouseDown(theX, theY)
        do
            self.Show(false);
            self.Enable(false);
            S7_5_CHAR1.Enable(true);
            S7_7_CHAR2.Enable(true);
            S7_13_HBMNKEYA_MOV.Enable(true);
        end;

with
    Target is PICTURECLIENT with Supplier is M111_HBBUB7_PIC; Duration is 0; end;
    Duration is -1;
    X is 181; Y is 119; Width is 193; Height is 143;
end;

object S7_7_CHAR2 is MEDIADELEGATOR
has

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

    MouseDown(theX, theY)
        do
            self.Enable(false);
            S7_5_CHAR1.Enable(false);
            S7_4_HBBUB5_PIC.Show(true);
            S7_4_HBBUB5_PIC.Enable(true);
        end;

with
    Duration is -1;
    X is 414; Y is 159; Width is 208; Height is 152;
end;

object S7_8_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
            S7_10_HBBCKFL_PIC.Show(true);
        end;

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

with
    Duration is -1;
    X is 593; Y is 431; Width is 48; Height is 49;
end;

object S7_9_BUG is MEDIADELEGATOR
has

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

    MouseDown(theX, theY)
        do
            TRANSITION.Set(IrisOpen, 15);
            APPLICATION.GoTo(S8_FRAME5A);
        end;

with
    Duration is -1;
    X is 609; Y is 364; Width is 37; Height is 30;
end;

object S7_10_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 S7_11_NEXT is MEDIADELEGATOR
has

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

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

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

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

with
    Duration is -1;
    X is 2; Y is 436; Width is 41; Height is 42;
end;

object S7_12_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 S7_13_HBMNKEYA_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 M135_HBMNKEYA_MOV; end;
    Duration is 0;
    X is 275; Y is 163; Width is 66; Height is 120;
end;

object S7_14_HBVENA_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 M158_HBVENA_MOV; end;
    Duration is 0;
    X is 441; Y is 41; Width is 50; Height is 53;
end;

object S7_15_HBFROGA_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 M160_HBFROGA_MOV; end;
    Duration is 0;
    X is 65; Y is 67; Width is 228; Height is 70;
end;