myHarness := CobaltHarness2 allInstances first.
sierpinskiRef := myHarness activeIsland future new: TSierpinski.

    matNorm := myHarness activeIsland future new: TMaterial.
    matNorm future ambientColor: #(0.9 0.6 0.5 0.5).
    matNorm future diffuseColor: #(0.9 0.6 0.5 0.5).

    sierpinskiRef future material: matNorm.

    spinnerRef := myHarness activeIsland future new: TSpinner.
    spObjRef := myHarness activeIsland future new: CobaltTFrameWithMenu.
    spObjRef future translationX: 0 y:1 z: 0.
    spinnerRef future contents: sierpinskiRef.
    spinnerRef future addChild: sierpinskiRef.
    myHarness activeSpace future addChild:  spObjRef.