View this PageEdit this PageAttachments to this PageHistory of this PageHomeRecent ChangesSearch the SwikiHelp Guide

funfunfun37


PREV ------ ● TOP ● ------ NEXTUploaded Image: fmrph.jpg


サブモーフも配列??

サブモーフも配列になってるみたいでするよ。
配列を視覚化された形で簡単に試せそうなのでこれもちょっとやってみるです。
それにサブモーフの扱い方が解るとあとでいろいろお便利かもかも。

■まずは準備ね。

RectangleMorphをオーナーにして、
その中に10個のEllipseMorphをサブモーフとしてぶっこんじゃいます。

--------------------------------------------
rm _ RectangleMorph new.
rm extent: 410@50.
rm borderWidth: 1.
rm layoutPolicy: TableLayout new.
rm listDirection: #leftToRight.
rm wrapDirection: #topToBottom.
10 timesRepeat: [ e _ EllipseMorph new.
		e extent: 40@30.
		rm addMorph: e ].
rm openInWorld
--------------------------------------------

Uploaded Image: image2.jpg

Alt + d ( Cmd + d )

Uploaded Image: image3.jpg



●この(オーナー)中を見てみましょう。

プリント・イット Alt + p ( Cmd + p )
--------------------------------------------
rm submorphs #(an EllipseMorph(892) an EllipseMorph(1654) an EllipseMorph(32) an EllipseMorph(1786) an EllipseMorph(3460) an EllipseMorph(574) an EllipseMorph(4008) an EllipseMorph(3138) an EllipseMorph(2700) an EllipseMorph(3141))
--------------------------------------------


●この中にサブモーフがいくつあるか調べまする。

プリント・イット Alt + p ( Cmd + p )
--------------------------------------------
rm submorphCount 10
--------------------------------------------


●一番最初の(インデックス)サブモーフの色を赤にしてみましょう。

Alt + d ( Cmd + d )
--------------------------------------------
rm firstSubmorph color: Color red
--------------------------------------------

Uploaded Image: image4.jpg



●最後のサブモーフの色を青にしてみます。

Alt + d ( Cmd + d )
--------------------------------------------
rm lastSubmorph color: Color blue
--------------------------------------------

Uploaded Image: image5.jpg




●5番目のサブモーフの色も青にしてみます。
Alt + d ( Cmd + d )
--------------------------------------------
s _ rm submorphs at: 5.
s color: Color blue
--------------------------------------------

Uploaded Image: image6.jpg




●7番目のサブモーフの色を赤にしてみます。<今度は1行にしてみたです。
Alt + d ( Cmd + d )
--------------------------------------------
(rm submorphs at: 7) color: Color red
--------------------------------------------

Uploaded Image: image7.jpg





●サブモーフの順番をかき混ぜるです。

Alt + d ( Cmd + d )
--------------------------------------------
rm shuffleSubmorphs
--------------------------------------------

Uploaded Image: image8.jpg





●各サブモーフを灰色にします。

Alt + d ( Cmd + d )
--------------------------------------------
rm submorphsDo: [: s | s color: Color gray]
--------------------------------------------

Uploaded Image: image9.jpg



●各サブモーフを元の黄色に戻します。
Alt + d ( Cmd + d )
--------------------------------------------
rm submorphsDo: [: s | s color: Color yellow]
--------------------------------------------

Uploaded Image: image10.jpg




●7番目のサブモーフをStarMorphと入れ替えます。

Alt + d ( Cmd + d )
--------------------------------------------
rm replaceSubmorph: (rm submorphs at: 7) by: StarMorph new
--------------------------------------------

Uploaded Image: image11.jpg




●元に戻します。といっても新たにEllipseMorphを生成して入れ替えただけ。

Alt + d ( Cmd + d )
--------------------------------------------
rm replaceSubmorph: (rm submorphs at: 7) by: (EllipseMorph new extent: 40@30)
--------------------------------------------

Uploaded Image: image12.jpg




●7番目のサブモーフを削除します。

Alt + d ( Cmd + d )
--------------------------------------------
(rm submorphs at: 7) delete
--------------------------------------------

Uploaded Image: image13.jpg



●EllipseMoprhを追加します。

Alt + d ( Cmd + d )
--------------------------------------------
rm addMorph: (EllipseMorph new extent: 40@30)
--------------------------------------------

Uploaded Image: image14.jpg




●全てのサブモーフを削除します。

Alt + d ( Cmd + d )
--------------------------------------------
rm removeAllMorphs
--------------------------------------------

Uploaded Image: image15.jpg



●サブモーフをもっているかどうか調べます。<もちろんな〜んもないっすけど。

Alt + p ( Cmd + p )
--------------------------------------------
rm hasSubmorphs false
--------------------------------------------






PREV ------ ● TOP ● ------ NEXT







■ MEMO ■

Links to this Page