funfunfun37
サブモーフも配列??
サブモーフも配列になってるみたいでするよ。
配列を視覚化された形で簡単に試せそうなのでこれもちょっとやってみるです。
それにサブモーフの扱い方が解るとあとでいろいろお便利かもかも。
■まずは準備ね。
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
--------------------------------------------
Alt + d ( Cmd + d )
●この(オーナー)中を見てみましょう。
プリント・イット 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
--------------------------------------------
●最後のサブモーフの色を青にしてみます。
Alt + d ( Cmd + d )
--------------------------------------------
rm lastSubmorph color: Color blue
--------------------------------------------
●5番目のサブモーフの色も青にしてみます。
Alt + d ( Cmd + d )
--------------------------------------------
s _ rm submorphs at: 5.
s color: Color blue
--------------------------------------------
●7番目のサブモーフの色を赤にしてみます。<今度は1行にしてみたです。
Alt + d ( Cmd + d )
--------------------------------------------
(rm submorphs at: 7) color: Color red
--------------------------------------------
●サブモーフの順番をかき混ぜるです。
Alt + d ( Cmd + d )
--------------------------------------------
rm shuffleSubmorphs
--------------------------------------------
●各サブモーフを灰色にします。
Alt + d ( Cmd + d )
--------------------------------------------
rm submorphsDo: [: s | s color: Color gray]
--------------------------------------------
●各サブモーフを元の黄色に戻します。
Alt + d ( Cmd + d )
--------------------------------------------
rm submorphsDo: [: s | s color: Color yellow]
--------------------------------------------
●7番目のサブモーフをStarMorphと入れ替えます。
Alt + d ( Cmd + d )
--------------------------------------------
rm replaceSubmorph: (rm submorphs at: 7) by: StarMorph new
--------------------------------------------
●元に戻します。といっても新たにEllipseMorphを生成して入れ替えただけ。
Alt + d ( Cmd + d )
--------------------------------------------
rm replaceSubmorph: (rm submorphs at: 7) by: (EllipseMorph new extent: 40@30)
--------------------------------------------
●7番目のサブモーフを削除します。
Alt + d ( Cmd + d )
--------------------------------------------
(rm submorphs at: 7) delete
--------------------------------------------
●EllipseMoprhを追加します。
Alt + d ( Cmd + d )
--------------------------------------------
rm addMorph: (EllipseMorph new extent: 40@30)
--------------------------------------------
●全てのサブモーフを削除します。
Alt + d ( Cmd + d )
--------------------------------------------
rm removeAllMorphs
--------------------------------------------
●サブモーフをもっているかどうか調べます。<もちろんな〜んもないっすけど。
Alt + p ( Cmd + p )
--------------------------------------------
rm hasSubmorphs false
--------------------------------------------
▲PREV ------ ● TOP ● ------ NEXT▼
■ MEMO ■
Links to this Page
- FunFunFunMorphic last edited on 25 March 2004 at 5:25:44 am by tk0005-202x210x196x109.ap-TK.usen.ad.jp
- funfunfun36 last edited on 18 June 2007 at 5:38:10 am by localhost.localdomain
- funfunfun38 last edited on 18 June 2007 at 5:27 am by localhost.localdomain