[SML 7744] Re: 第15回Smalltalk勉強会＠京都

[濱崎治]

濱崎です。

次回はユーザーインターフェース周りを重点的に取り組むということで、
UMLによるモデルと、Controllerに書くことになるであろう、マウスの
クリックとドラッグに関わるプログラムの断片を書きました。

UMLのモデルはastah* community版を使用して書きました。
以下のところから入手することが可能です。

      http://astah.change-vision.com/ja/product/astah-community.html

プログラムの方は、トランスクリプトに表示する都合で、チェック時間を
１秒と長めに取ってありますが、実際のプログラムではもっと短くてよい
はずです。

如何なものでしょう？
ご意見を頂ければありがたいです。

------ 以下、プログラムの断片 ----------

| window sensor previousPoint clickBlock draggingBlock |
Transcript cr; show: 'Start!'.
window := ScheduledControllers activeController view.
sensor := window controller sensor.
[sensor redButtonPressed] whileFalse.
previousPoint := sensor cursorPoint.
clickBlock :=
	[Transcript cr; show: 'Click Point: '; show: previousPoint printString].
draggingBlock :=
	[Cursor crossHair
		showWhile:
			[[sensor redButtonPressed]
				whileTrue:
					[| presentPoint |
					presentPoint := sensor cursorPoint.
					Transcript cr; show: 'Drag! moving amount: ';
						show: (presentPoint - previousPoint) printString.
					previousPoint := presentPoint.
					(Delay forSeconds: 1) wait]]].
(Delay forSeconds: 1) wait.
sensor redButtonPressed
	ifTrue: [draggingBlock value]
	ifFalse: [clickBlock value].
Transcript cr; show: 'Finished!!'; cr.

-----------------------


2010年1月9日11:18 AOKI Atsushi <atsushi ＠ cc.kyoto-su.ac.jp>:
> 寒い日が続きますね、青木淳＠京都上賀茂です。
>
> (10/01/06 6:20), AOKI Atsushi wrote:
>> おはようございます。新年早々の勉強会、今日（reminder）です！
>> --- 青木淳＠要求仕様と基本設計の過程を重点的にしてゆく予定…
>
> 以下のページから、京都の勉強会で行っていること（取り組んでい
> る課題）を参照できるようにしておきました。
>
> http://www.cc.kyoto-su.ac.jp/~atsushi/Smalltalkers/index-j.html#SmalltalkSalonAtKyoto15
>
> 本日から三連休です。補足資料：取り組んでいる課題のリンクから
> たどれる要求仕様書にそって、皆さんもプログラミング（開発）に
> チャレンジしてみてくださいませ。
>
> http://www.cc.kyoto-su.ac.jp/~atsushi/Smalltalkers/ProjectZero/Requirement/index.html
>
> 私は複数（4つ）のプログラミング言語で実装しました。Smalltalk
> が一番エレガントでした、手前味噌分を差し引いても。:-)
>
> ------------------------------------------------------------
> AOKI Atsushi          http://www.cc.kyoto-su.ac.jp/~atsushi/
>



-- 

Osamu Hamasaki
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: TreeSortModel_byOH.asta
型:         application/octet-stream
サイズ:     27242 バイト
説明:       無し
URL:        http://www.smalltalk.jp/pipermail/sml/attachments/20100111/25fd749c/TreeSortModel_byOH-0001.obj