エコSmalltalk

オレオレツールを作る

Transcript

1. ٢ాɹᠳ ΤίSmalltalk ΦϨΦϨπʔϧΛ࡞Δ 1
2. Smalltalkͱݴ͑͹ จ๏ ։ൃ؀ڥ array := Array with:-10 with:2 with:100. array inject: Float infinity negated into:[:v1 :v2 | v1 max: v2 ]. 2
3. ։ൃ؀ڥ ͜͏ͳͬͪΌ͏ͱɾɾɾ 3
4. σΟεϓϨΠ ͍ͭ΋େ͖ͳը໘։ൃͰ͖Δͱ͸ݶΒͳ͍ 4
5. Τίͳ࣌୅ ը໘ྖҬ΋Τί͠·͠ΐ͏ ϫʔΫεϖʔε τϥϯεΫϦϓτ 5
6. Smalltalkͷ୳ࡧ͠ͳ͕Βͭͬͯ͘ΈΔ 6
7. label :='MyEditor'. window := SystemWindow labelled:label. window setWindowColor: color. textMorph1 := PluggableTextMorph on: Workspace new text: #contents accept: #acceptContents: readSelection: nil menu: #codePaneMenu:shifted:. textMorph2 := PluggableTextMorph on: Transcript text: #contents accept: #acceptContents: readSelection: nil menu: #codePaneMenu:shifted:. window addMorph: textMorph1 frame: (0@0 corner: 1@0.5). window addMorph: textMorph2 frame: (0@0.5 corner: 1@1). window openInWorld. 7
8. ͞ΒʹΤί͢Δͱ 8