How to create a new project with code - example 4
Last updated at 11:00 am UTC on 25 July 2022
Example 4
IMAGE function cannot find the upload.
| newProject slideExtent mySlide box |
"Create a slide (a Morph with property #isSlide)"
slideExtent := 800@600.
mySlide := Morph new extent: slideExtent; color: Color white.
mySlide setProperty: #isSlide toValue: true.
"Add some simple content to the slide"
box := Morph new extent: (slideExtent * 0.2).
mySlide addMorph: box.
box := Morph new extent: (slideExtent * 0.2).
box position: (mySlide position + (slideExtent * 0.2)).
box color: Color red.
mySlide addMorph: box.
box := Morph new extent: (slideExtent * 0.2).
box position: (mySlide position + 2* (slideExtent * 0.2)).
box color: Color yellow.
mySlide addMorph: box.
box := Morph new extent: (slideExtent * 0.2).
box position: (mySlide position + 3* (slideExtent * 0.2)).
box color: Color green.
mySlide addMorph: box.
box := Morph new extent: (slideExtent * 0.2).
box position: (mySlide position + 4* (slideExtent * 0.2)).
box color: Color orange.
mySlide addMorph: box.
newProject := MorphicProject new.
newProject name: 'Project with a Slide'.
newProject showWorldMainDockingBar: false.
newProject world addMorph: mySlide.
ProjectViewMorph openOn: newProject.