[SML 7961] Re: 第34回Smalltalk勉強会＠京都

[Yasuda Yutaka]

京産大の安田です。

昨夜、最後の方にダダダッと過ぎてしまったタグによる
ディスパッチャの件です。

結果だけ書いても良いのですが、思考経路ごと出しておき
ます。冗長ですがご勘弁ください。。

昨夜の僕の思考：
・メッセージを投げる相手が view か model か、誰かが
　ディスパッチせんとあかんやろう
・何かしらタグみたいな属性情報がメニューにつけられれば
　良いのに
・nameKey というのがあるらしい。どうやら使えそう。
・MenuItem クラスによると nameKey: は Symbol を
　入れることになっている
・では選択されたメニューアイテムの nameKey を調べて、
　その Symbol が #view だったら view に、#model だったら
　model にメッセージを投げるディスパッチャを書けば良い
　ではないか（ああスッキリ！）

だったのですが、一夜明けて妹尾君のログを読み返している
と、どうも名前がしっくりきません。。。

・コードは nameKey という名前で書かれている
　（Menu および MenuItem クラスあたり）
・ UI ツールはこれを ID と名付けて提示している
・前者の名前はまるで探索キーあるいは何かの分類か
　グループ分けのためかと思えるが、後者は識別子（誰の？）
　として認識させたい模様。。。
・そして僕はこれをタグ（単なる目印）として使おうとして
　いる。

というわけで何かネジれて無いかなあ、、、と。。

とりあえず

aMenu := Menu new.
aMenuItem := MenuItem labeled: 'test1'.
aMenuItem value: #yayaya1.
aMenuItem nameKey: #dododo1.
aMenu addItem: aMenuItem.

などして nameKey をくっつけて調べていたのですが、どうも
Menu クラス にある addItem: value: nameKey: という
method が気になります。
（Smalltalk 的には addItem:value:nameKey: 表記が正解？）

コードを以下に。

addItem: aMenuItem value: theValueModel nameKey: aKeyObject

	"Add a new MenuItem to the end of the menu.  theValueObject
	is the ValueModel whose values is to be returned by the menu
	when that menu item is selected (nil means it has no value in
	which case the ordinal number of the menu item will be returned). 
	 aKeyObject is a key object to be associated with the menu item
	(or nil if none).  The new menu item will become part of the last
	group of menu items."

	self addItem: aMenuItem value: theValueModel.
	aMenuItem nameKey: aKeyObject

ここでは nameKey の引数が aKeyObject となっており、コメントを
見ると「そのメニューアイテムが結びつけられているキーオブジェクト」
だそうで、うーむ、これはオブジェクトをそのまま入れろと？？

＃キーオブジェクト、が何かしら意味のあるターム？？

うーん青木さんもオブジェクトそのまま書かせてくれれば良いのに、
と言うてはったなあ、、

というわけでエイヤと放り込んでみました。

yellowButtonPressedEvent: event
	"マウスの右ボタンが押されたときの処理をする。"

	| aMenu aSymbol aMenuItem selectedMenuItem aKeyObject |
	aMenu := Menu new.
	aMenuItem := MenuItem labeled: 'test1'.
	aMenu
		addItem: aMenuItem
		value: #test1
		nameKey: self view. "こっちは view を押し込む"
	aMenuItem := MenuItem labeled: 'test2'.
	aMenu
		addItem: aMenuItem
		value: #test2
		nameKey: self model.	"こっちは model"
	aSymbol := aMenu startUp.
	selectedMenuItem := aMenu selectionMemory.	"選択された奴をとりあげて"
	aKeyObject := selectedMenuItem nameKey.	"お前の nameKey は何だ？"
	aKeyObject inspect.	"インスペクタで結果を確認"
	(aSymbol isKindOf: Symbol) ifTrue: [aKeyObject perform: aSymbol].	"そいつにメッセージを直投げ"
	^nil

うぉ。。。動きますね。。。（当然でしょうが、、）

（ test1, test2 とかいったメッセージは実装していないのでエラーに
　なりますが、とにかくインスペクタで見るとちゃんと目的の
　view あるいは model インスタンスが返ってきているし、
　デバッガが出す「そんなメッセージは無いよ」エラーの対象オブジェクト
　がちゃんとそれぞれのインスタンスを向いてる。。）

これ非常にコンパクトなのですが、しかしこれ、GUI では使えない
ですよね、、、
（GUI でインスタンスを書くことはできない、、、）

GUI ツールなしで上みたいにコードするのなら良いのですが、僕は
なんで X には ResEdit とか InterfaceBuilder が無いんだと悲しく
なった人なので、できれば、、いや何とかして GUI は使いたい。。。

どうしたものか。。。(^_^!)
やっぱり当初のアイディアどおり、何かしら Symbol 入れて
それ見て分岐するのがいいのか。。。

というところで来月にまた頭を回したいと思います。

＃いかん、昼になってしまった。。。

でわでわ							Yasu.




On 2011/08/04, at 9:23, AOKI Atsushi wrote:

> 暑い夜の勉強会、ご苦労さまでした。
> プログラムやログ（← from Mr. Sono）をアップロードしておきました。
> http://www.cc.kyoto-su.ac.jp/~atsushi/Smalltalkers/index-j.html#SmalltalkSalonAtKyoto34
> 
> 以下、備忘録。
> 来月はコントローラの中にメニューのディスパッチャーを構築するところから始める…
> モデル側のメニューとビュー＆コントローラ側のメニューをタグ（ID:nameKey）によって選別…
> それぞれの暫定メニューはすでに作成済…
> 
> --- 青木淳＠京都上賀茂
> 
> (11/07/27 18:42), AOKI Atsushi wrote:
>> 第34回Smalltalk勉強会＠京都を開催します。
>> 万障繰り合わせてJR京都駅前にお集まりください。
>> http://www.cc.kyoto-su.ac.jp/~atsushi/Smalltalkers/index-j.html#SmalltalkSalonAtKyoto34
>> 
>> 場所は先月と同様でキャンプラ6階の第3講習室になります。
>> http://www.kyoto-su.ac.jp/graduate/satellite/index.html
>> 
>> 第34回 Smalltalk勉強会＠京都
>> 日時：2011年08月03日（水）19:00〜21:00
>> キャンパスプラザ京都 京都産業大学サテライト講習室（6階 第3講習室）
>> テキスト：ブラックブック「Smalltalkで学ぶオブジェクト指向プログラミングの本質」
>> 
>> 完成間近の窓MVCですが、コントローラ周りを整備し、モデルおよび
>> ビューとの調整を図ります。蒸し暑い京都の中、さわやかにSmalltalk
>> プログラミングをいたしましょう。いつも通り、急がず着実に進む
>> ことを優先し、ライブプログラミングで脱線もしようと思います。
>> ノート型のパーソナルコンピュータ（Windows 7 または Mac OS X）
>> をご持参ください。
>> 
>> --- 青木淳 [ http://aokilab.kyoto-su.ac.jp/ ]
>> 
> 
>