Apple WWDC 1996/WWDC96_1996 (CD).toast/Technology Materials/AMT/Sample AMT⁄PE Code/SOURCES/NAVIGATION.k

Text File | 1996-03-04 | 8.5 KB | 486 lines | [TEXT/MPS ]

class cMenuSelector
is
    cEmptyHandler;
has
    RowID;            --which row in self.container.MenuData to use
    RowData;        --the actual data in the row

    SetEnable()
        do
            self.Enable(false);

            self.RowData := self.container.CurMenu @ self.RowID;
            if self.RowData <> void then
                self.Enable(true);
            end;
        end;
end;


class cMainMenuSelectorBehavior
is
    cDefaultBehavior;
has

    MouseUp(theTarget, theX, theY)
        use
            theDoc;
        do
            if (((theTarget.RowData @ 1) - "OPEN") = 0) then
                LAUNCHER_HELPER.GetParams();
                theDoc := LAUNCHER_HELPER.ThePath + (theTarget.RowData @ 2);
                GML_LAUNCHER.Open(theDoc);

            else if (((theTarget.RowData @ 1) - "LAUNCH") = 0) then
                LAUNCHER_HELPER.GetParams();
                theDoc := LAUNCHER_HELPER.ThePath + (theTarget.RowData @ 2);
                oPOPUP_PIC_3_29.Show(true);
                oBTNABRT_PIC_3_31.Show(true);
                oBTNABRT_PIC_3_31.Enable(true);
                oBTNCONT_PIC_3_32.Show(true);
                oBTNCONT_PIC_3_32.Enable(true);

                CURSPOTS.CurrentSpots := MAINMENUSELECTORSPOTS;
                oBTNCONT_PIC_3_32.SetLaunchDoc(theDoc);
            end;
        end;
end;

class cMenuSelectorBehavior
is
    cDefaultBehavior;
has
    OffScreen(theTarget)
        do
            theTarget.Enable(false);

            theTarget.RowData := theTarget.container.MenuData @ theTarget.RowID;
            if theTarget.RowData <> void then
                theTarget.Enable(true);
            end;
        end;

    MouseEnter(theTarget, thex, theY)
        do
            oARROWS_PIC_3_27.MoveTo(oARROWS_PIC_3_27.X, theTarget.Y + 3);
        end;

    MouseUp(theTarget, theX, theY)
        use
            theDoc;
        do
            if (((theTarget.RowData @ 1) - "OPEN") = 0) then
                LAUNCHER_HELPER.GetParams();
                theDoc := LAUNCHER_HELPER.ThePath + (theTarget.RowData @ 2);
                GML_LAUNCHER.Open(theDoc);

            else if (((theTarget.RowData @ 1) - "LAUNCH") = 0) then
                LAUNCHER_HELPER.GetParams();
                theDoc := LAUNCHER_HELPER.ThePath + (theTarget.RowData @ 2);
                oPOPUP_PIC_3_29.Show(true);
                oBTNABRT_PIC_3_31.Show(true);
                oBTNABRT_PIC_3_31.Enable(true);
                oBTNCONT_PIC_3_32.Show(true);
                oBTNCONT_PIC_3_32.Enable(true);

                CURSPOTS.CurrentSpots := MENUSELECTORSPOTS;
                oBTNCONT_PIC_3_32.SetLaunchDoc(theDoc);
            end;
        end;
end;



object CURSPOTS is ANY
has
    CurrentSpots;
with
    CurrentSpots is MAINMENUSELECTORSPOTS;
end;


object MENUSELECTORSPOTS is COLLECTION
with
    Items is [
        oROW1_3_9,
        oROW2_3_11,
        oROW3_3_12,
        oROW4_3_13,
        oROW5_3_18,
        oROW6_3_19,
        oROW7_3_40,
        oROW8_3_41,
        oROW9_3_42,
        oROW10_3_43,
        oROW11_3_44,
        oROW12_3_45
    ];
end;


object MAINMENUSELECTORSPOTS is COLLECTION
with
    Items is [
        oMENU1_3_9,
        oMENU2_3_11,
        oMENU3_3_12,
        oMENU4_3_13,
        oMENU5_3_18,
        oMENU6_3_19,
        oMENU7_3_40,
        oMENU8_3_41,
        oMENU9_3_42,
        oMENU10_3_43,
        oMENU11_3_44,
        oMENU12_3_45,
        oMENU13_3_45
    ];
end;












object oBTNMM_PIC_3_33 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNMM_PIC_26_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oMMENU_2);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 87; Width is 66; Height is 30;
    end;
end;


object oBTNPROD_3_46 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNPROD_PIC_23_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oPRODINFO_3);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 155; Width is 66; Height is 30;
    end;
end;


object oBTNSUCC_3_35 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNSUCC_PIC_28_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oSUCCSTORY_4);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 220; Width is 66; Height is 30;
    end;
end;


object oBTNREF_3_36 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNREF_PIC_25_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oREF_5);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 266; Width is 66; Height is 30;
    end;
end;


object oBTNTUTR_3_37 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNTUTR_PIC_24_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oTUT_6);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 324; Width is 66; Height is 30;
    end;
end;


object oBTNSAMPL_3_38 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNSAMPL_PIC_29_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Goto(oSAMPMEDIA_7);
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 390; Width is 66; Height is 30;
    end;
end;


object oBTNQUIT_3_39 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNQUIT_PIC_27_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(true);
                theTarget.Show(true);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                theTarget.GoToBeginning();
                oBinder.Quit();
            end;

    with
        Enabled is true; Shown is true;
        X is 542; Y is 456; Width is 66; Height is 24;
    end;
end;








object oPOPUP_PIC_3_29 is cPictureHandler
with
    Duration is -1;
    Supplier is oPOPUP_PIC_39_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(false);
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 215; Y is 189; Width is 210; Height is 102;
    end;
end;


object oBTNABRT_PIC_3_31 is cFlipbookHandler
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNABRT_PIC_37_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(false);
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Enable(true);
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                CURSPOTS.CurrentSpots.EachUp(OffScreen);
                theTarget.GoToBeginning();
                oPOPUP_PIC_3_29.Show(false);
                oBTNABRT_PIC_3_31.Show(false);
                oBTNABRT_PIC_3_31.Enable(false);
                oBTNCONT_PIC_3_32.Show(false);
                oBTNCONT_PIC_3_32.Enable(false);
                theTarget.Enable(false);
                theTarget.Show(false);
            end;

    with
        Enabled is true; Shown is true;
        X is 215; Y is 271; Width is 104; Height is 20;
    end;
end;


object oBTNCONT_PIC_3_32 is cFlipbookHandler
has
    LaunchDoc;

    SetLaunchDoc(theDoc)
        do
            CURSPOTS.CurrentSpots.EachUp(OffScreen);
            self.LaunchDoc := theDoc;
        end;
with
    FirstFrame is 0;
    Looping is false;
    Rythm is 1;
    Supplier is oBTNCONT_PIC_38_;
    Behavior is cDefaultBehavior
    has
        Offscreen(theTarget)
            do
                theTarget.Enable(false);
                theTarget.Show(false);
            end;

        MouseDown(theTarget, theX, theY)
            do
                theTarget.Enable(true);
                theTarget.GotoEnd();
            end;

        MouseUp(theTarget, theX, theY)
            do
                CURSPOTS.CurrentSpots.EachUp(OffScreen);
                theTarget.GoToBeginning();
                oPOPUP_PIC_3_29.Show(false);
                oBTNABRT_PIC_3_31.Show(false);
                oBTNABRT_PIC_3_31.Enable(false);
                oBTNCONT_PIC_3_32.Show(false);
                oBTNCONT_PIC_3_32.Enable(false);
                GML_LAUNCHER.Open(theTarget.LaunchDoc);
            end;

    with
        Enabled is true; Shown is true;
        X is 321; Y is 271; Width is 104; Height is 20;
    end;
end;