nextSlide button as an example for accessing morphs // simple presentation

Hello Tim

Please find another example at the bottom which illustrates the access
to morphs.

A SimpleButtonMorph embedded in a PasteUpMorph gets access to siblings
of the PasteUpMorph it is embedded in.

  a simple presentation.


Regards

--Hannes


On 2/23/17, Tim Cuthbertson <[hidden email]> wrote:




        | buttonActionBlock  createButtonBlock createSlideBlock content1Block
slideCollection |
       
       
        buttonActionBlock := [:button | button owner submorphAfter isNil
                                ifTrue: [button owner owner submorphs first show]
                                ifFalse: [button owner hide.
                                        button owner submorphAfter show]].
       
       
       
        createButtonBlock := [| b |
                        b := SimpleButtonMorph new label: 'next'.
                        b target: buttonActionBlock.
                        b actionSelector: #value:.
                        b
                                arguments: (Array with: b)].
                       
       
                       
        createSlideBlock := [:aColor :aString |
                        | p |
                        p := PasteUpMorph new extent: 640 @ 480;
                                                 color: aColor.
                        p
                                addMorph: (createButtonBlock value openInWorld position: 600 @ 450).
                        p setProperty: #isSlide toValue: true.
                        p addMorph: (TextMorph new contentsWrapped: aString;
                                         fontName: 'BitstreamVeraSans' pointSize: 24;
                                         extent: 500 @ 50;
                                         position: 20 @ 20).
                        ].
               
               
        content1Block := [:pm |
                        pm addMorph: (RectangleMorph new extent: 50 @ 50;
                                         position: 20 @ 120;
                                         color: Color red).
                        pm addMorph: (RectangleMorph new extent: 50 @ 50;
                                         position: 20 @ 180;
                                         color: Color blue).
                        pm addMorph: (RectangleMorph new extent: 50 @ 50;
                                         position: 20 @ 240;
                                         color: Color white).
                        pm addMorph: (RectangleMorph new extent: 50 @ 50;
                                         position: 20 @ 300;
                                         color: Color black).
                        pm addMorph: (TextMorph new contentsWrapped: '4 instances of PasteUpMorph';
                                         fontName: 'BitstreamVeraSans' pointSize: 24;
                                         extent: 500 @ 50;
                                         position: 80 @ 120)].
                               
                               
                               
        slideCollection := Morph new extent: 640 @ 480.
        slideCollection setProperty: #isSlideCollection toValue: true.

        slideCollection
                addMorphBack: (content1Block
                                value: (createSlideBlock value: Color yellow value: 'Simple
presentation - slide 1')).

        slideCollection
                addMorphBack: (createSlideBlock value: Color green value: 'slide 2').

        slideCollection
                addMorphBack: (createSlideBlock value: Color gray value: 'slide 3').

        slideCollection
                addMorphBack: (createSlideBlock value: Color blue value: 'slide 4').


        slideCollection openInWorld; position: 30 @ 30

_______________________________________________
Beginners mailing list
[hidden email]
http://lists.squeakfoundation.org/mailman/listinfo/beginners