|
Smalltalk
Smalltalk（スモールトーク）は、Simula のオブジェクト（およびクラス）、LISPの徹底した動的性、LOGO のタートル操作や描画機能に、アラン・ケイの「メッセージング」というアイデア[2]を組み合わせて作られたクラスベースで手続き型の純粋オブジェクト指向プログラミング言語、および、それによって記述構築された統合化プログラミング環境の呼称。 Smalltalk で一語であり、「Small Talk」「SmallTalk」などは誤りである。 大規模な開発実績としてはCargill Lynx Project[3]があり、国産製品の開発実績としてはMCFrameがある。 概要開発の経緯ゼロックスのパロアルト研究所（PARC）で1970年代に約10年かけ3世代（Smalltalk-72、76、80）を経て整備された。当初は、ダイナブックである Smalltalkの変遷
Smalltalk とオブジェクト指向豊富で整備されたクラスライブラリーは、特にオブジェクト指向プログラミングの手本とされ、デザインパターンの宝庫と称されるまで洗練されたものになっている。また、後世の多くのオブジェクト指向プログラミング言語に直接間接的に多大な影響を与えた。 アラン・ケイが「オブジェクト指向」という言葉を創った当初は、Smalltalk システムが体現した「パーソナルコンピューティングに関わる全てを『オブジェクト』とそれらの間で交わされる『メッセージ送信』によって表現すること」を意味していた。しかしのちに、C++ の設計者として知られるビャーネ・ストロヴストルップが（自身、Smalltalk の影響は受けていないと主張する）C++ の設計を通じて整理し発表した「『継承』機構と『多態性』を付加した『抽象データ型』のスーパーセット」という考え方として広く認知されるようになった（カプセル化、継承、多態性）。現在は、両者の渾然一体化した曖昧な概念として語られることが多い。 Smalltalk の独自性Smalltalk は、オブジェクトへのメッセージ送信を率直に記述する表記の特殊性や、制御構造をもたずオブジェクトへのメッセージ送信の形で記述する徹底ぶりとも併せて、C言語や C++ などの流れを強く受け継ぐ言語、およびその開発手法に慣れた開発者にとって極めてとっつきにくい言語・環境であるといわれている。このことは、Smalltalk が単なるプログラミング言語ではなく、従来のオペレーティングシステムの概念をも包括する「環境」であることが一つの理由である。Smalltalk を単なる言語としてとらえると、他の言語と比較したとき、使用するオペレーティングシステムのグラフィカルユーザインターフェースに全く従わないなど、その独自性が大きな「欠点」として映る場合もある。 これは VisualWorks や 環境および処理系としてのSmalltalkSmalltalk 環境から見たSmalltalk 言語Smalltalk 環境から見た Smalltalk 言語は、いわば bash などのシェルに近い。Smalltalk 環境内であればどこでもマウスで選択した文字列を Smalltalk のソースコードとして実行できるためシェルにコマンドを打ち込んだ時の様に簡単な問い合わせをすぐ実行できるようになっている。 例えばオブジェクト(クラスやメソッドも含む)の構造を調べたければ、そのオブジェクトに また、設定値の指定に Smalltalk 言語のメッセージ式が使われる。現在設定されている値がメッセージ式として取得でき、値の設定をメッセージ式として指定する。この設定値を指定するメッセージ式は Smalltalk 環境の実行中に設定用のウィンドウから入力される。 仮想機械方式仮想機械による実行Smalltalk 環境は、Smalltalk 環境の実行方法として現実のハードウェアに依存している機械語命令を使わず、現実のハードウェアから独立した中間言語命令(仮想機械に対する機械語命令)を仮想機械により実行する仮想機械方式を採用している。 Smalltalk の中間言語命令は、全てイメージファイルというファイルに書き込まれ Smalltalk の仮想機械はそのイメージファイルを読み込んでSmalltalk 環境を実行する。 この仮想機械方式による Smalltalk の実行方法は Smalltalk の言語仕様にも含まれている。[6] なお、Smalltalk が導入したこの仮想機械方式はEULERのpコードマシンからアラン・ケイが着想を得たものである。[7] イメージファイルイメージファイルは、Smalltalk 環境の実行状態をそのまま保存したファイルである。イメージファイルは Smalltalk 環境実行中に生成された全てのオブジェクトを直列化して保存することでSmalltalk 環境の実行状態を保存している。この直列化されたオブジェクトには、Smalltalk の中間言語も含まれている。イメージファイルに含まれる中間言語命令は、Smalltalk 自身によって記述されたコンパイラーによってソースコードから翻訳された、バイト列のオブジェクトである。 仮想機械とブートストラップSmalltalk の実行環境が全く存在しない初期の状況ではコンパイラーも仮想機械も Smalltalk で用意する事はできない。このため Smalltalk の初期段階ではALTOのアセンブリ言語によりコンパイラーや仮想機械が実装されていた。[8] 実行時書き換えSmalltalk環境は翻訳方式を使う処理系としては珍しくプログラムの実行時書き換えを基本とする。例えば後述のClass Browserに入力したプログラムはソースコードを中間言語に変換したあとSmalltalk環境の一部として取り込まれ、環境を再起動したり読み込み操作をしなくても起動中のSmalltalk環境内で実行することができる。C++のような翻訳式の言語であれば原則、ソースコードを書き換えた場合は原則プログラムの再起動が必要となる。またPythonの様な言語ではソースコードを再読み込みする処理を予め書き換えたい処理の呼び出し元に組み込んでおかなければソースコードをいくら書き換えても動作に反映できない。Smalltalkではその再起動や再読み込み処理の組み込みが必要ない。このため環境をソースコードを書き換える都度環境全体を再起動しなくて済むのはもちろん、Windowを表示するプログラムを作った場合であれば、Window内のButtonの動作を変更する時もWindowを表示したままソースコードを書き換えて動作を変更できる。このためButtonを押すまでに複数の手順が必要なプログラムやWindowの表示に時間がかかるプログラムでもButtonを表示した状態から再起動せず何度でもやり直しができ効率的なソースコード変更が可能になっている。 環境の種類
GUIツール 準標準的なGUIツールGUIを使わないような特殊なものを除き、大半のSmalltalk環境では次のようなGUIツールが用意されている。
Smalltalkの開発ではこれらのツールを使って開発する事が半ば前提となっている。 Class Browser(System Browser)Smalltalk環境内に存在する全てのクラスを(存在する場合は名前空間も)表示/編集できるツールで、Smalltalk開発において中核となるツールである。
Transcript言うなれば出力しかできないコンソールといったツールで、プログラムの実行結果を簡易的に表示したいときに使われるツールである。Smalltalk環境内でTranscript変数に書き込まれたメッセージは、全てこのTranscriptに表示される。 Workspace言うなればコンソールの入力側とテキストエディターを組み合わせた様なツールである。一見すれば書いたコードを実行できるだけの簡易的なテキストエディターにしか見えないが、WorkspaceはWorkspace変数というWorkspace固有の変数を持っており、Workspace内で実行されたSmalltalkコードの実行結果を保持することができる。このため、長いコードを書くような用途では使わず、Smalltalk環境に対するパッケージの追加や、環境設定、ファイルの一時的な操作など一時的な操作を実行する場所として使われる。 Debugger/Notifier
Inspectorオブジェクトの内部構造を再帰的に表示するツールである。また、多くの場合オブジェクトの編集が可能でありWorkspaceと組み合わせてオブジェクトを組み立てていくことが可能である。例えば画面部品をWindowを表すオブジェクトに組み込み、クラス変数に格納するといった具合である。Inspectorに限らずSmalltalk環境全体に共通することであるが、オブジェクト内の変数を表示するときは内部構造そのままではなくオブジェクトの文字列表現で表示する。このため内部がHash map等複雑な構造になっている場合でも 言語としてのSmalltalk言語としての設計思想言語として Smalltalk が目指したもの。それは計算機を計算機の集合体として構築し、さらに計算機を構成する個々の計算機も計算機の集合体で構築するというように、再帰的な計算機を構築することであった。この再帰的な計算機を構築している無数の計算機は、個々の内部には干渉せずメッセージによる通信のみによって相互作用を発生させ目的の計算を完遂させる。 ここでいう計算機が Smalltalk ではオブジェクトという形で実装された。 この設計思想の誕生は、ロバート・S・バートンとB5000の設計者らが会談した際の次の発言をアラン・ケイが聞き「計算機の全体を計算機とみなした場合、その計算機の構成要素を計算機に分解するのではなく関数やデータ構造に分解したいと誰が思うのか」と疑問を浮かべた事がきっかけとなっている[7]。
ここで言及された再帰という概念は、オブジェクトの成立以外にも Smalltalk の至るところに影響を与えている。
言語仕様の種類Smalltalk の言語仕様は原則として非常に単純なため、環境もしくは処理系の相違による互換の有無は、クラスライブラリーの差異程度に由来するもの（ある意味、バージョンの違いもこれも含まれる）から、言語仕様自体の改変に由来のものまで空間的に連続で多岐にわたる。このため、単に Smalltalk として語弊のある場合、一般にその環境および処理系の呼称もしくは商標（必要ならそのバージョン）をして他と区別するために用いる慣習がある。 文法コメント「 定数表現主な定数表現には次のようなものがある。
定数ではないが、よく用いられるオブジェクトの生成式には次のようなものがある。
言語機能の様に見えるが「 変数一時変数は宣言が必要で、「 | a b |
a := 3.
b := 4.
擬変数他の言語で予約語にあたる擬変数は
メッセージ式Smalltalk では「メッセージ式」と呼ばれる書式でコードを記述する。メッセージ式は「レシーバー」に「メッセージ」を送ることを表すためのもので、そのまま receiver message
と記述する。メッセージはさらに、呼び出されるされるメソッド（方法）の名前を表す「メッセージセレクター」[注釈 2]と0個以上の引数の組み合わせからなる。ただし Smalltalk の場合必ずしもセレクターとメソッド名は一致しない。また、メッセージの送り先はメソッドではなくブロックや外部の関数になっている場合もある。セレクターは引数の数だけコロンを自身に含まなければならず、メッセージとして記述する際にはコロンの直後に引数を挿入する。
引数なしのメッセージを単項メッセージ、そのセレクターを単項セレクターと呼び、引数ありのメッセージをキーワードメッセージ、そのセレクターをキーワードセレクターと呼ぶ。メッセージ記述の際に引数の挿入により分断されたキーワードセレクター断片（例えば セレクターは原則としてアルファベットと数字と0個以上（かつ、引数と同数）のコロンから成るが、例外として二項演算を模した記述が可能となるように記号のみから成る引数1つのセレクターを使ってメッセージ式を記述することもできる。これを二項メッセージ、そのセレクターを二項セレクターと呼ぶ。
この場合、上の「 通常の処理系では、単項メッセージ、二項メッセージ、キーワードメッセージの順で評価される。二項メッセージ間で乗除の優先はない。
セミコロン「 | collection |
collection := OrderedCollection
new
add: 0;
add: 1;
add: 2;
add: 3;
add: 4;
yourself.
カスケード式を用いて書いた上記の文は、カスケード式を用いない次の文と等価である。 | collection |
collection := OrderedCollection new.
collection add: 0.
collection add: 1.
collection add: 2.
collection add: 3.
collection add: 4.
制御構文複数の式を順次実行する場合は、式をピリオドで区切る。メソッドを中断し戻り値を指定するには復帰文「 ブロックブロックは、他の言語で言えば無名関数やクロージャーに該当する機能である。ただし Smalltalk のブロックは関数ではなくオブジェクトである事に加え、無名関数というより制御構文としての性格が強くなっている。並列実行の基本単位にもなる。 ブロックは、引き数の数毎に複数定義された「 [ 0 ] value. "-> 0"
[ :value1 | value1 ] value: 1. "-> 1"
[ :value1 :value2 | value1 + value2 ] value: 1 value: 1. "-> 2"
ブロック内の ブロックには [ :value1 | value1 ] cull: 1 cull: 2. "-> 1"
| block value1 value2 |
block := [ :value | value ].
value1 := 1.
value2 := 2.
value1 ifNotNil: [ 9 ]. "-> 9"
value1 ifNotNil: block. "-> 1"
value2 ifNotNil: block. "-> 2"
条件分岐条件分岐は 3 < 4 ifTrue: [ 5 ] ifFalse: [ 6 ].
Smalltalk では object := nil.
object ifNil: [ 5 ] ifNotNil: [ 6 ].
object ifNotNilDo: [ :value | value inspect. ].
条件分岐の制御において、他の言語でいう something: aNumber
| switch |
"速度が求められる場合は、初期化済みのDictionaryのオブジェクトをインスタンス変数やクラス変数にキャッシュする。"
switch := Dictionary
new
at: 1 put: [ #a ];
at: 2 put: [ #b ];
at: 3 put: [ #c ];
yourself.
^ ( switch at: aNumber ifAbsent: [ #z ] ) value.
但し一部の処理系では、次のような something: aNumber
^ aNumber caseOf:
{
[ 1 ]->[ #a ].
[ 2 ]->[ #b ].
[ 3 ]->[ #c ].
}.
反復反復制御において "100回の反復処理を実行する"
100 timesRepeat:
[
"反復実行する処理"
].
現在の反復回数を参照しながら反復する事も出来る。 "100回の反復処理を実行する"
1 to: 100 do:
[ :each |
"eachは現在の反復回数"
].
[ true "真偽値を返す式" ] whileTrue:
[
"反復実行する処理"
].
また [
"反復実行する処理"
"このブロックの実行結果が真である間反復を繰り返す"
] whileTrue.
Smalltalk では条件なしの反復も存在する。無条件反復は、ブロックに対するメッセージ送信の形で次の様に記述する。 [
"反復実行する処理"
] repeat.
Smalltalk では、反復方法が複数存在するが、実は全てメソッドの再帰呼び出しによって実装されているという事になっている。ただし、こちらも 反復からの脱出C言語の [
thisContext return. "反復を抜ける"
] repeat.
例外処理機構Smalltalk にも例外処理機構が存在する。こちらも、その他の構文と同じくメッセージ式とブロックによって実現されている。例外処理は次の様に記述する。 [
[
Exception signal: '処理失敗'. "例外発生"
]
ensure:
[
"例外の有無に関わらず実行したい処理"
].
]
on: Exception "補足する例外の種類"
do:
[ :exception |
"例外を補足した際の処理"
].
なお 例外の制御はメッセージ送信毎に連結リストとして積み上げられたコンテキスト情報の末端のコンテキスト（メソッドスタック）を表す [
Notification signal: '接続準備完了'.
]
on: Error, Notification
do:
[ :exception |
"エラーと通知両方の例外を1度に補足"
].
なお、Smalltalkでは正常な結果を返せない異常な状態と通知両方を合わせたものが例外である。例外は正常な戻り値を返せない異常な場合と割り込みの様に非同期な通知に利用される。特徴的な点として異常な場合と通知の場合では動作が異なる。異常な場合は他の言語の例外同様、補足しなければその時点で停止しDebugウィンドウに移行するが、通知の場合は補足しなければ例外発生地点から処理を継続する。 並列処理Smalltalkでは、標準で並列処理が存在する。並列処理は次の様に記述する。 | process semaphore |
semaphore := Semaphore new.
process :=
[
Process yield. "他のProcessに切り替える切り替え点"
"並列実行される子処理"
semaphore signal. "親処理への終了通知"
] newProcess.
process resume. "子処理の起動。Blockに対し#forkを送る場合はnewProcessとresumeは省略できる"
"並列実行される親処理"
semaphore wait. "子処理の終了待機"
並列処理はスレッドに類似するプロセスという仕組みにより実装されている。プロセスはSmalltalk環境内で構築された並列処理の仕組みであり、グリーンスレッドで実装されている事が多い。このため、プロセスは論理的に非プリエンプティブなスレッド(グリーンスレッド)を前提しており、現在実行している処理を切り替える切り替え点を必要とする。論理的な前提は非プリエンプティブではあるものの、POSIX環境で動作させたGNU Smalltalkの様に実際はプリエンプティブなスレッドで実装されている場合もある。[24]プロセスは他のプロセスから割り込みとして任意の例外を投げる機能があり(記述方法は環境によって異なる)、切り替え点はプリエンプティブなスレッドを使う場合でも例外の発生地点として機能する。 クラスオブジェクトの登録Smalltalk は、クラスの定義をメッセージ式による実行環境へのクラスオブジェクトの登録として実現する。他の言語と異なりクラスオブジェクトの登録は単なる定義ではなく実行環境に対する操作である。1度クラスオブジェクトを登録してイメージファイルを保存すると、明示的にクラスオブジェクトを削除しないかぎりはクラスオブジェクトがイメージファイルに残り続ける。Smalltalk 環境に対するクラスオブジェクトの登録は次の様に記述する。 "DerivedクラスをSmalltalk環境に登録する例"
Object "基底クラスオブジェクト"
subclass: #Derived "Objectクラスの派生として登録するクラスオブジェクト名の指定"
instanceVariableNames: 'ia ib ic' "インスタンス(実体)オブジェクトに所属する変数名(インスタンス変数)の指定(空白区切り)"
classVariableNames: 'ca cb cc' "クラスオブジェクトと共有する変数名(クラス変数)の指定(空白区切り)"
poolDictionaries: 'pa pb pc' "クラスに所属する変数(プール変数)を取り込む辞書の指定(空白区切り)"
category: 'example'. "Smalltalk環境上でクラス名を表示する際にクラスが所属する分類の指定"
Smalltalk におけるクラスの作成は、特殊構文ではなく単なるメッセージ送信である。クラスを登録する際のメッセージは、上記の例のように次のセレクターを使用することが多い。 #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
しかし、クラスの登録はあくまでメッセージであり自由に作れるため、実行環境には大抵その他のメソッドが用意されている。例えば、近代的な Smalltalk 環境の一つ Pharo では、次のセレクターに対応したメソッドが用意されている。 #subclass:
#subclass:category:
#subclass:instanceVariableNames:
#subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
#subclass:uses:
#subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category:
#variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
#variableByteSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category:
#variableSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
#variableSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category:
#variableWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
#variableWordSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category:
#weakSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
#weakSubclass:uses:ginstanceVariableNames:classVariableNames:poolDictionaries:category:
Smalltalk 環境に対するクラスオブジェクトのインスタンス変数の登録は次の様に記述する。 Derived class instanceVariableNames: 'ia ib ic'. "クラスオブジェクトのインスタンス変数名(空白区切り)"
クラスオブジェクトがもつインスタンス変数には変数を登録した基底クラスと派生クラスで別々の変数領域が確保されるという特筆すべき点がある。これを使用して下記の様にクラスに所属するオブジェクトだけを保持する変数としてつかったりする事ができる。 Object subclass: #Super.
Super class instanceVariableNames: 'objects'.
Super class methodsFor: 'accessing'
!
objects
^ objects ifNil: [ objects := OrderedCollection new ].
!!
Super class methodsFor: 'instance creation'
!
new
| object |
object := super new.
self objects add: object.
^ object.
!!
Super subclass: #Derived.
Derived new.
Derived objects size. "-> 1"
Super objects size. "-> 0"
メソッドの登録メソッド（処理方法）の登録は、コード文字列を引数として与えたクラスへのメッセージ送信でも行えるが、通常は環境に組み込まれたクラスブラウザ（システムブラウザ）と呼ばれるGUIツールを用いる。 メソッドは、「メッセージパターン」と呼ばれるメッセージ式のメッセージ部分を模した書式に続けて0個以上のメッセージ式を連ねることで記述する。例えば、前出の、レシーバーか引数を比べてより小さな方を返す「 min: anOtherObject
^ self < anOtherObject ifTrue: [ self ] ifFalse: [ anOtherObject ].
一行目の「 なお、メッセージパターンのみで具体的な処理を記述せずにメソッドを登録した場合を含め、復帰文による明示的な戻り値の指定が無い場合、メソッドは戻り値として常に クラスオブジェクトSmalltalkは、多くの動的型付け言語やDelphiの様にクラスがオブジェクトである。このためSmalltalkではインスタンスオブジェクトと同様にクラスオブジェクトを変数に束縛してメッセージを送ることができる。 | object |
object := Something new.
object value. "インスタンスオブジェクトにvalueメッセージを送信"
object := Something.
object value. "クラスオブジェクトにvalueメッセージを送信"
クラスオブジェクトは、オブジェクトに ' ' class. "-> ByteString"
復帰文とブロックSmalltalk のブロックは一種の制御構文であるという性質上、復帰文が他の言語と比べ極めて異質な振る舞いをする。 example
| block |
block := [ ^ 1 ].
block value. "ブロックを実行"
^ 0.
上記のメソッドを登録したオブジェクトに callee: aBlock
aBlock value.
^ 2.
caller
| block |
block := [ ^ 1 ].
self callee: block.
^ 0.
上記の様なメソッドをまたいでブロックを評価する場合はどうなるだろうか、この場合も Smalltalk は exampleBlock
^ [ ^ 1 ].
callee: aBlock
aBlock value.
^ 2.
caller
| block |
block := self exampleBlock.
self callee: block.
^ 0.
ただし、上記の様にブロックを生成したコンテキストと、ブロックを評価する際のコンテキストが枝分かれする様な場合は復帰文を実行する事はできない。この場合は メソッドに対する注釈メソッドに対する注釈(Pragma)は、メッセージ式だけではどうしても実現が難しい機械語でしか記述できない演算子の実装や主記憶領域の確保、仮想機械外部との入出力等の実現や、特定の目的のメソッドを自動で列挙するといった目的で使用される特殊構文である。いくつかの注釈はSmalltalk環境に組み込まれているが、利用者やライブラリーの提供者が注釈を定義する事も出来る。 メソッドに対する注釈はメソッドの翻訳時に評価されるため、メソッドにしか記述でない。Behaviorの メソッドに対する注釈は次の様に記述する。 < keyword1: arg1 ... keywordN: argN >
次にメソッドに対する注釈の具体例を挙げる。注釈はSmalltalk環境によって異なり、どの環境でも次の注釈が使えるわけでない事に注意すること。
大域変数Smaltallkでは、Smalltalk環境全体で参照できる大域変数を作成する事が出来る。大域変数は同じく大域変数であるSmalltalk変数に格納された Smalltalk at: #GlobalVariable put: 100.
GlobalVariable. "->100"
globalVariable := 10.
Smalltalk at: #GlobalVariable. "->10"
Smalltalk removeAt: #GlobalVariable.
GlobalVariable. "->nil"
プール辞書プール辞書は、クラスの変数として連想配列または、他のクラスオブジェクトのクラス変数を取り込むという機能である。取り込む連想配列の要素やクラスオブジェクトのクラス変数はプール変数と呼ばれる。連想配列やクラスオブジェクトは大域変数でなくてはならない。 "プール辞書で使用する連想配列の登録"
Smalltalk at: #UserPoolA put: Dictionary new.
UserPoolA at: #ExamplePoolValueA put: 1.
"プール辞書で使用するクラスオブジェクトの登録"
Object
subclass: #UserPoolB
instanceVariableNames: ''
classVariableNames: 'ExamplePoolValueB'
poolDictionaries: ''
category: 'example'.
"UserPoolAとUserPoolBをプール変数として利用するクラスオブジェクト"
Object
subclass: #Someone
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: 'UserPoolA UserPoolB' "UserPoolAとUserPoolBを辞書に記述しプール変数を取り込む"
category: 'example'.
Someone methodsFor: 'accessing'
!
valueA
^ ExamplePoolValueA. "UserPoolAのExamplePoolValueAを参照"
!
valueB
^ ExamplePoolValueB. "UserPoolBのExamplePoolValueBを参照"
!!
プール辞書には複数の連想配列やクラスオブジェクトを指定できるが、プール変数が重複した場合は、先に指定した連想配列やクラスオブジェクトのプール変数が使われる。 準標準的な文法非定数要素配列Pharo, GNU Smalltalkといった近代の環境では、定数以外に式の結果を指定可能な非定数要素の配列定数を使用できる。配列の要素は空白ではなく array := { 1. 1 + 1 }. "1と2を要素に持つ配列を作る。"
継続継続渡し形式を支援する機能として継続があり、PharoやGNU Smalltalkで使用できる。もっぱら反復の中断や、メソッド内の処理を飛ばすために使われる。継続の使用は次の様に記述する。 result := Continuation currentDo:
[ :break |
aCondition1 ifTrue: [ break value: 1 ]. "aCondition1がtrueなら以降の処理を中断しresultに1を代入する。"
aCondition2 ifTrue: [ break value: 2 ]. "aCondition2がtrueなら以降の処理を中断しresultに2を代入する。"
3 "aCondition1, aCondition2両方trueならresultに3を代入する。"
].
生成器遅延評価を支援する機能として生成器があり、PharoやGNU Smalltalkで使用できる。生成器はCoroutineにも利用できる。生成器の使用は次の様に記述する。 stream := Generator on:
[ :each |
each yield: 1.
each yield: 2. "stream nextを1回呼ぶまで実行しない。"
each yield: 3. "stream nextを2回呼ぶまで実行しない。"
].
stream next. "-> 1"
stream next. "-> 2"
stream next. "-> 3"
生成器を使って処理を作ることは多くないが、配列などを使用する際、間接的に使用していることが多い。 | readStream grater2 total |
readStream := #( 1 2 3 4 5 ) readStream. "#readStreamにより#select:を遅延実行する生成器が作られる。"
grater2 := ( ( readStream select: [ :each | 1 < each ] ) collect: [ :each | each * 2 ] ) reject: [ :each | 8 > each ].
total := grater2 inject: 0 into: [ :value :each | value + total ]. "#inject:into:でeachに代入するとき初めて#select:と#collect:と#reject:が実行される。"
ファイル用構文Smalltalk のプログラムは基本的に中間言語としてイメージファイルの中に格納され、ソースコードの編集は Smalltalk のGUI環境から行われる。このため基本的にファイルという形で Smalltalk のソースコードやプログラムを目にすることはない。しかし、ソースコードの交換目的などでどうしても Smalltalk 環境外でソースコードを管理する必要がある場合に備えファイル用の構文が存在する。ファイル用の構文は次のようになる。 Object
subclass: #Example
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'example'.
Example methodsFor: 'Instance Methods A'
!
selectorA1
"処理"
^ 0.
!
selectorA2: anArgument
"処理"
^ 0.
!!
Example methodsFor: 'Instance Methods B'
!
selectorB1
"処理"
^ 0.
!
selectorB2: anArgument
"処理"
^ 0.
!!
Example class methodsFor: 'Class Methods'
!
selector1
"処理"
^ 0.
!
selector2: anArgument
"処理"
^ 0.
!!
本来他の言語の様なブロックが存在しないため、ブロックとして「 ちなみに、クラス登録は単なるメッセージ送信であり特別な文ではないため、登録用ブロック外にも次のように単純なメッセージ送信の記述に使用する事が出来る。 Example methodsFor: 'Instance Methods A'
!
selector1
!!
'hello' displayNl.
'world' displayNl.
Example2 methodsFor: 'Instance Methods A'
!
selector
!!
ファイル用構文で記述されたメソッドの登録は、可読性や記述性の面からメッセージ式からかけ離れた変則的な構文が使用される。しかし、この変則的な構文を用いなければメソッドを登録できないわけではなく、次のように通常のメッセージ式でメソッドを登録する事も出来る。 Example
compile:
'
selectorC: anArgument
^ 0.
'
classified: 'Instance Methods C'.
上記では、クラスオブジェクト 委譲と継承Smalltalk において、継承とは特殊な委譲に過ぎない。 Object
subclass: #Derived "DerivedはObjectクラスから派生させる"
instanceVariableNames: '' "オブジェクトに所属する変数は定義しない"
classVariableNames: '' "クラスオブジェクトと共有する変数は定義しない"
poolDictionaries: '' "クラスに所属する変数は定義しない"
category: 'example'. "クラスの分類はexampleとする(今回の名前に意味はない)"
このため、例えば上記のクラスオブジェクトの生成では、 "superclass: NewBase. メッセージを送り基底クラスを NewBase に変更する事が出来る。"
Derived superclass: NewBase.
処理系により不可能な事もあるがクラスオブジェクトだけでなく、インスタンスオブジェクトから派生することも出来る。 "インスタンスオブジェクトの nil から派生した Derived クラスを Smalltalk 環境に登録する"
nil
subclass: #Derived
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'example'.
なお通常、派生元の基本となるProtoObjectやObjectはnilから派生しており継承関係は再帰的に循環している。 メッセージSmalltalk において、メッセージ、セレクター、メソッドはそれぞれ別物である。C++ 系統の言語の様にオブジェクトに対しメッセージを送るという事は単なる比喩ではない。 あるオブジェクトに対し なお、多くの Smalltalk の処理系では message := MessageCatcher new show: 'text'. "「show: 'text'」がmessageに代入される。"
message sendTo: Transcript. "「Transcript show: 'text'」が実行される。"
また、セレクターとメソッドが独立していることを利用して一つのメソッドを複数のセレクターに結びつける事もできる。 "#onClick:を使ったメッセージをopen:メソッドに転送させる。"
FileEventHandler
addSelector: #onClick:
withMethod: FileEventHandler >> #open:.
→「メッセージ転送」も参照
メッセージにはセレクターと引き数が含まれている。このため受け取ったセレクターと引き数を編集する事も出来る。 message := MessageCatcher
new
bold: true
text: 'example'.
message selector keywords keysAndValuesDo:
[ :key :each |
Transcript
show: each, ':=', ( message arguments at: key ) printString;
cr.
].
"
以下が出力される。
bold:=true
text:=example
"
型付けプログラミング言語一般の概念として型検査をソースコードの翻訳時に実行するか、実行時に実行するかにより静的型付けと動的型付けという区分が存在するが、Smalltalkは、そのどちらでもなく型なし言語（英: untyped）に区分される[1]。Smalltalk の場合、変数に対する操作は全てメッセージ送信であり、変数の種類(型)毎にできる操作は決まっていない。また、オブジェクトに対しメッセージを送った場合、そのオブジェクトがメッセージに対応するメソッドを持っていなくとも実行環境がエラーを発生させる事はない。メッセージに対応するメソッドが存在しない場合、例外を出すか無視するかは、クラスに実装されたメソッドの内容次第である。したがって Smalltalk には型付けの概念はない。例えば、Pharo の メッセージと制御構文制御構文の節で述べた通り、Smalltalkの殆どの制御構文はメッセージ式である。Smalltalkに明るくないプログラマーからは言い方や見方を変えただけと捉えられがちである。Smalltalkの制御構文は実際にメッセージであるがゆえに究極には制御構文の構文要素を次のように変数に分解してしまうことが出来る。 変数に分解した分岐制御の例： | then else message condition |
then := [ 1 ].
else := [ 2 ].
message := MessageCatcher
new
ifTrue: then
ifFalse: else.
condition := 2 = 2.
^ message sendTo: condition.
これらの変数に分解された構文要素は、どのクラスのオブジェクトで無いといけないという制限はない。送られたメッセージを処理することさえ出来ればあらゆるオブジェクトに置き換える事が出来る。 特殊セレクターSmalltalkでは高速化のためいくつかのメッセージを特別扱いする。これを特殊セレクター（英: special selector）という。
典型的な例は 3 < 4 ifTrue: [ 5 ] ifFalse: [ 6 ].
セレクターと名がつくが特殊セレクターは、特別扱いする条件が引数の状態を含んでおり、たとえ同じセレクターを使ったメッセージでも引数が条件に一致しなければ特別扱いしない。例えば下記のように引数に直接ブロックを指定していない場合では多くの処理系(VisualWorks, GNU Smalltalk等)は特別扱いせずメッセージ送信を実行する。 | then else |
then := [ 5 ].
else := [ 6 ].
true ifTrue: then ifFalse: else.
特殊セレクターはあくまで高速化の手段であるため種類は処理系によって異る。どの処理系が何を特殊セレクターとして扱うかは処理系ごとに提供される説明資料に記述されている。[26][27] またPharoのように設定から特殊セレクターを通常のメッセージ送信に切り替えられる処理系も存在する。 クラスオブジェクトとMetaclassクラスオブジェクトもオブジェクトであるため、所属するクラスが存在している。クラスオブジェクトが所属するクラスは ByteString. "-> ByteString"
ByteString class. "-> ByteString class"
ByteString class class. "-> Metaclass"
' ' class. "-> ByteString"
' ' class class. "-> ByteString class"
' ' class class class. "-> Metaclass"
' ' class class class class. "-> Metaclass class"
' ' class class class class class. "-> Metaclass"
' ' class class class class class class. "-> Metaclass class"
クラスオブジェクトが所属する Collection class superclass. "-> Object class"
Object class superclass. "-> ProtoObject class"
ProtoObject class superclass. "-> Class"
クラスオブジェクトはMetaclassから生成された単なるオブジェクトで有ることから、Smalltalkが標準で提供するクラスオブジェクトとは異なる独自の構造をもったクラスオブジェクトを作ることができる。 例えば以下のようにメソッドの代わりにブロックを持つ無名クラスを作成することも出来る。 | class object |
"Metaclassからクラスオブジェクトを生成"
class :=
Class
new
superclass: Object;
methodDictionary: MethodDictionary new.
"生成したクラスオブジェクトのセレクターにメソッドではなくブロックを紐付け"
class
methodDictionary
add: #something1: -> [ :value | value ] block;
add: #something2 -> [ 2 ] block.
"生成したクラスオブジェクトをインスタンスオブジェクトの生成に使用"
object := class new.
Transcript
show: ( object something1: 1 ) printString;
nl.
"生成したクラスオブジェクトを基底クラスとして使用"
class
subclass: #Example
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: ''.
定数とオブジェクト文法の節で述べた通りSmallatalkでは定数も全てオブジェクトである。どんな定数であれ | showClass |
showClass :=
[ :object |
Transcript
show: object class name;
cr.
].
showClass
value: Object new; "-> Object"
value: Object; "-> Object class"
value: nil; "-> UndefinedObject"
value: 0; "-> SmallInteger"
value: 0.0; "-> Float"
value: 0.0e1; "-> Float"
value: $0; "-> Character"
value: ''; "-> ByteString"
value: #a; "-> ByteSymbol"
value: #'a'; "-> ByteSymbol"
value: #(); "-> Array"
value: []. "-> BlockClosure"
可変長オブジェクトSmalltalk は、任意の広さで確保した領域を持つ可変長オブジェクトを作ることが出来る。Smalltalkには配列を表わすためArray等が存在するが、これらのクラスオブジェクトは可変長オブジェクトを使って構築されている。可変長オブジェクトの領域は、オブジェクトの生成したときの一度だけしか広さを指定できない。また、クラスオブジェクトの登録時に Object
variableSubclass: #ExampleArray
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'example'.
| array |
array := ExampleArray new: 100. "要素100個分の領域を確保した可変長オブジェクトを生成する。"
array at: 1 put: 0. "1番目の要素に0を入れる。"
array at: 1. "1番目の要素を取り出す。"
記憶領域の管理Smalltalk は、ハンドルとごみ回収機能(ガーベッジコレクター)の全面的な導入によりハンドルテーブルの書き換えを利用した特殊な制御を提供している。[28] ハンドルテーブルの書き換え[29]ハンドルが参照している記憶領域上のテーブルを書き換えることによりSmalltalkは、あるオブジェクトを参照している全ハンドルの参照先を一気に変更することができる。ハンドルテーブルの書き換えには | value1 value2 |
value1 := 'hello' asValue.
value2 := value1. "この時点ではvalue2はValueHolder('hello')"
value1 become: 'こんにちは' asValue. "この時点でvalue2はValueHolder('こんにちは')になる"
弱参照弱参照は参照カウント方式を使う言語でよくライブラリーとして実装されるがSmalltalkではハンドルの制御を用いた言語機能として用意されており相互参照しているが不要になっているオブジェクトを迅速に解放するために使われている。弱参照には | holder object |
holder := ValueHolder new.
holder makeWeak. "holderが弱参照になる。"
object := Object new.
holder value: object.
ObjectMemory compact. "ごみ回収。この時点ではholder valueはnilではない。"
object := nil.
ObjectMemory compact. "ごみ回収。この時点でholder valueはnilとなる。"
カゲロウ(蜉蝣)カゲロウ(Ephemeron)は、どこからも参照されなくなった連想配列の要素を解放するために導入された記憶領域の管理機構でありSmalltalkで初めて実装された。例えば連想配列の添字として#keyがあったとして、#keyが連想配列以外の変数で参照されていなければ連想配列の要素は必要ない。このように不要となった要素を解放するために用いる。オブジェクトをカゲロウ状態にするには | association key |
key := Object new.
association :=
Association
key: key
value: Object new.
association makeEphemeron. "associationがカゲロウになる。"
ObjectMemory compact. "ごみ回収。この時点ではassociation keyとassociation valueは共にnilではない。"
key := nil.
ObjectMemory compact. "ごみ回収。この時点ではassociation keyとassociation valueは共にnilとなる。"
ここでは連想配列の要素としてよく使われるAssociationを例としているが、カゲロウが消滅する基準は最初のインスタンス変数でクラスに依存しないためどんなクラスでもカゲロウにすることができる。 Smalltalk の慣習大文字からはじめる識別子と小文字からはじめる識別子変数名変数を表す識別子については、1文字目に大文字と小文字のどちらを使うか、大域変数か否かを基準にして決めることが慣習になっている。 環境自体も大文字小文字の使い分けを認識しておりメソッドを翻訳する際小文字の変数は局所変数かメンバーとして定義していないと、警告が発生したり翻訳失敗になる。
クラス名が大文字から始まるのは、クラス名が大域変数だからである。 よく使われるクラス以外の大域変数:
セレクターセレクターを表す識別子については、基本的に1文字目に小文字を使うが、メソッドが存在するセレクターを避けたい場合は大文字を使う事が慣習になっている。 GNU SmalltakやVisualWorksで用意されている名前空間は、大文字のセレクターを使う典型的な例である。 Smalltalk SystemExceptions InvalidValue signalOn: 0. "「Smalltalk」以外は全てセレクター"
なお、名前空間が使える環境の多くは、翻訳時に名前空間の名前解決できる「.」区切りの拡張構文が用意されており、実際にはこちらの構文が使われることが多いため、セレクターを使った名前空間の指定を見る機会は少ない。 オブジェクトの生成と初期化オブジェクトの生成には |object|
object := Example new. "Exampleクラスオブジェクトに「new」メッセージを送りオブジェクトを生成。"
Smalltalk ではクラスオブジェクトのメソッドもインスタンスオブジェクトのメソッドと同様に派生クラスによる再定義が可能である。このため ただし、実際の初期化に | number |
number := Number readFrom: '10'. "readFrom:がインスタンス・クリエイション".
Smalltalk では1個のセレクターに対し1個のオブジェクトから複数のメソッドを関連付けられない[注釈 3]ため 「 具体的には次のように使われる。 defaultDatabase
"既定のデータベースのクラスオブジェクトを定義した派生クラスで再定義可能なメソッド。
オーバーライドされた際は、必ずしもクラスオブジェクトが返されるとは限らず、インスタンス
オブジェクトが返される場合もある。"
^ PostgreSQL.
database
"databaseへの接続を返すメソッド。
defaultDatabaseにより返されたPostgreSQLに対し、インスタンス・クリエイションである
#connect:セレクターを使ったメッセージが送られ、PostgreSQLのインスタンスオブジェクトが生成される。
ただし、defaultDatabaseは、派生クラスによって再定義できるため、#connect:セレクターを使ったメッセージが
必ずしもPostgreSQLクラスオブジェクトに送られるとは限らない。"
^ self defaultDatabase connect: self configuration.
また、Smalltalk はクラスメソッドを上書きできるため、インスタンス・クリエイションを次の様に実装する事で基本的な初期化処理を派生元のクラスに任せることができる。 x: aX y: aY
^ self new
x: aX;
y: aY.
上記は、2次元座標用のクラスオブジェクトのインスタンスオブジェクトを初期化する派生元のクラスオブジェクトに実装されたインスタンス・クリエイションである。このクラスオブジェクトを継承した2次元座標用のクラスオブジェクトでは アクセッサーSmalltalk では、単一の値を出し入れするメッセージの事を特にアクセッサ―[注釈 4]と呼ぶ。引き数の有無により値の入出の方向を区別する。 例：
Smalltalk においてアクセッサーはその他のメソッドと役割に違いはなく特別な意味を持たないが、プロトコルとして明示的に Smalltalk においてアクセッサーはインスタンス変数の出し入れや、クラス変数の単純な出し入れに使用される事は多くない。Smalltalk においてアクセッサーは次の用途でよく使われる。
定数定数は、単に定数を返すアクセッサ―で定義する。C言語の影響を受けた言語のように定数を#defineや変数で定義するという慣習はない。 附帯情報Smalltalk では、非常に利用頻度の低いインスタンス変数やクラス変数を管理する方法として附帯情報（英: property）というパターンが使用される。附帯情報はインスタンス変数やクラス変数などの内部変数の代わりに連想配列によりオブジェクトを保持する仕組みである。 附帯情報の使用例： Tag methodsFor: 'accessing'
!
id
^ self valueOfProperty: #id.
!
id: aString
self setProperty: #id toValue: aString.
!!
附帯情報が有効な身近な例としてはXMLやHTMLのタグ属性が挙げられる。例えばHTMLの 全てのインスタンス変数やクラス変数は原理的に全て附帯情報によって表現することが出来る。この点に着目しオブジェクトに所属する変数を全て附帯情報に置き換えた言語が後の Self であり、JavaScript である。これらの言語でオブジェクトに所属する変数をプロパティーと表現するのは、この Smalltalk における附帯情報(プロパティー)に由来するもので、附帯情報の仕組みの有無に関わらずインスタンス変数やクラス変数をプロパティーと表現するのは間違いである。 附帯情報は Self や JavaScript においては当たり前の様に使用されている。しかし、Smalltalk においては附帯情報を多用する事はデバックを著しく困難にするため不適切な作法とされており、HTMLの属性の様に本当に使用頻度の低い変数だけを附帯情報で扱い、常用する変数に附帯情報を乱用すべきではないと言われている。例えば変数は統合開発環境の機能で使用箇所を把握できるが附帯情報では使用箇所をアクセッサーに限定しない限り追跡不可能になる。また、附帯情報では変数の変化に反応するブレークポイントを仕掛けることも難しい。[30] 単純な例外処理Smalltalk 以外の言語において、配列の範囲外にある配列要素の操作や、値の代入されていない連想配列の操作は、次の例のように操作の前に一旦判定を行なって例外処理するか、例外機構を利用する方法が一般的である。 | key |
key := #phoneNumber.
( map contain: key ) ifTrue: [ ^ map at: key ] ifFalse: [ ^ nil ].
一方 Smalltalk では、配列の範囲外操作の様に単純で頻発するような処理では、次のように予めメッセージに例外処理をブロックとして渡してしまう方法が一般的である。 "#phoneNumber に対応する値が無ければ常に nil を返す。map 自身に #phoneNumber が追加される事はない。"
^ map at:#phoneNumber ifAbsent: [ ^ nil ].
予め例外処理をメッセージに含めることで、単純な例外処理をより簡潔なものとしている。 この方法は、Smalltalk 独自の復帰文と組み合わせる事でより柔軟な制御をする事ができる。 次の処理は、連想配列に値が見つかればそれを表示し、値が無ければ何もしないという処理であるが、処理の中断の判定と連想配列からの値の取り出しを一度のメッセージ送信だけで実現している。 | value |
value := map at:#phoneNumber ifAbsent: [ ^ self ].
Transcript
show: value;
cr.
ブロックによる資源の開放Smalltalkでは、ブロック内だけ資源を確保しブロックの終了後に資源を開放するというブロックによる資源の開放が行われる。ブロックによる資源の開放では、資源の確保と同時に資源の開放を強制できるため開放忘れや例外による開放漏れを防ぐことができる。C#の "Pharo"
'example.txt' asFileReference writeStreamDo: "example.txtを開く"
[ :writeStream |
writeStream nextPutAll: 'text'.
]. "example.txtを閉じる(例外発生時も閉じる)"
"GNU Smalltalk"
'example.txt' asFile withWriteStreamDo: "example.txtを開く"
[ :writeStream |
writeStream nextPutAll: 'text'.
]. "example.txtを閉じる(例外発生時も閉じる)"
要素の列挙Smalltalk は反復処理のための基本構文を備えているが、ある値の生成器（入出力等）やある集合要素から要素を取得するときに基本的な反復構文を使う事は稀である。Smalltalk では、値を列挙するために値の生成器や集合要素に送るべきメッセージが概ね決まっており、値を取り出す際は極力、列挙メッセージ（英: enumerating）を使用する事が作法となっている。 次に列挙メッセージの送信例を示す。 配列に対する列挙メッセージの例： #( 4 3 2 1 0 ) do:
[ :each |
"配列の要素が1個ずつ each に代入され表示領域（Transcript）に表示される"
Transcript
show: each;
cr.
].
実行結果: 4
3
2
1
0
数値に対する列挙メッセージの例： ( 0 to: 4 ) do:
[ :each |
"配列の要素が1個ずつ each に代入され表示領域（Transcript）に表示される"
Transcript
show: each;
cr.
].
実行結果: 0
1
2
3
4
列挙メッセージで使えるセレクターは オブジェクトの変換Smalltalkでは一般的にオブジェクトに Stringの変換による具体例(変換結果は処理系依存)： 'abcd' asSymbol. "→Symbolクラスのオブジェクト"
'10' asInteger. "→SignedIntegerクラスのオブジェクト"
'10:00' asTime. "→Timeクラスのオブジェクト"
"以下は処理系によっては存在しない"
'/home' asPath. "→AbsolutePathクラスのオブジェクト"
'http://example.com' asUrl. "→Urlクラスのオブジェクト"
オブジェクトを別のオブジェクトに変換するメソッドやメンバー関数が用意されている事は、Smalltalkに限らず他の言語でも一般的であり珍しい事ではない。Smalltalkの慣習として特徴的なところは、既存のクラスにこのオブジェクトの変換をユーザーやライブラリーの作者が自由に組み込んでいる所である。例えばSmalltalkの処理系であるPharoでは、初期状態で基本的なクラスであるStringに54個もの オブジェクトの変換はただオブジェクトの内部表現の変換だけでなく情報の加工にも使われる。 オブジェクト変換による具体例： #( 2 1 2 3 1 3 ) asSortedCollection asSet. "-> #( 1 2 3 )"
セレクターとオブジェクトを指定したイベント処理イベントハンドラーを定義する方法として、Smalltalkでは次のようにセレクターと、レシーバーとなるオブジェクトを指定する方法が一般的である。 | view controller |
view := Morph new.
controller := FileControlHandler withOwnerView: view.
"#click:イベントが発生すると、controllerに対し#open:を使ったメッセージを送る。"
view
handler
on: #click:
send: #open:
to: controller.
同様にイベントハンドラーを指定する別の方法としては、ブロックを指定する方法が考えられる。しかし、イベントハンドラーにブロックを使う方法は、セレクターとオブジェクトを指定する方法のように このセレクターとオブジェクトを指定したイベント処理の方法は、Objective-Cの文化にも引き継がれておりCocoa等のライブラリーにて頻繁に目にすることができる。 MVCとMVCから派生した設計方式Model View Controller（MVC）は Smalltalk から生まれた、制御（コントローラー）と情報（モデル）、そして情報の表現方法（ビュー）の3つを分離しクラスオブジェクトの再利用性を高め、実行時に情報と表現の組み合わせを変更できるようにした設計方針である。Smalltalk の世界でMVCは更に表現を担当するクラスに既定の制御を取り込む仕組みを持たせることで PluggableMVC へと発展した。 モデル支援機構Smalltalk はクラスライブラリーの基礎部分からMVCやMVCから派生した設計方式で使用されるモデルの構築を支援する仕組みを持っており、Smalltalk 以外の言語と比べモデルの構築が格段に楽になっている。次にモデルの動作を確認する最低限のコードを示す。 モデルの登録: "単純なモデルのクラスオブジェクトを登録"
Object
subclass: #ValueHolderModel
instanceVariableNames: 'value'
classVariableNames: ''
poolDictionaries: ''
category: 'Models'.
ValueHolderModel class methodsFor: 'accessing'
!
defaultValue
^ 0.
!!
ValueHolderModel methodsFor: 'accessing'
!
value
value isNull: [ model := self class defaultValue. ].
^ value.
!
value: aValue
value := aValue.
self changed: #value.
!!
モデルの監視側登録 "モデルを監視する単純なクラスオブジェクトを登録"
Object
subclass: #ValueHolderObserver
instanceVariableNames: 'model getSelector'
classVariableNames: ''
poolDictionaries: ''
category: 'Models'.
ValueHolderObserver class methodsFor: 'accessing'
!
defaultModel
"model が nil の場合に使用する既定のモデルを返す"
^ ValueHolderModel.
!!
ValueHolderObserver methodsFor: 'accessing'
!
value
model ifNil: [ ^ nil ].
"modelから指定のセレクターで値を取り出す"
^ model perform: getSelector.
!
getState: aGetSelector
"モデルから値を取り出す際のセレクターはシンボルにより外部から指定する"
getSelector := aGetSelector.
!
model
"現在監視対象となっているモデルを返す"
model isNull:
[
model := self class defaultModel new.
model addDependent: self.
].
^ model.
!
model: aModel
"現在監視対象となっているモデルを監視対象から除去し、
aModelに指定されたオブジェクトを監視対象として追加する。"
self model removeDependent: self.
model := aModel.
self model addDependent: self.
"また、通常は新しいモデルからValueHolderObserverにとっての初期値の読み取りを行う。
ここでは、初期値の読み取りの代わりにモデルが持つvalueオブジェクトの内容を表示Window(Transcript)に表示する。"
Transcript
show: self value asString;
cr.
!!
ValueHolderObserver methodsFor: 'updating'
!
update: anAspect
"モデルが存在しないときは更新しない"
model ifNil: [ ^ nil ].
"モデルが更新されると呼び出され、モデルが持つvalueオブジェクトの内容を表示Window(Transcript)に表示する。"
getSelector = anAspect ifTrue:
[
Transcript
show: self value asString;
cr.
].
!!
ValueHolderObserver class methodsFor: 'instance creation'
!
on: aModel getState: aGetSelector
^ self
getState: aGetSelector;
model: aModel.
!!
動作の確認： | model observer |
model := ValueHolderModel new.
"監視対象にmodelを指定してobserverを生成。
on:getState:内にてmodel valueが返す値、0が表示Window(Transcript)に表示される。"
observer := ValueHolderObserver
on: model
getState: #value.
"modelの値を更新。observerの#update:が実行されmodel valueが返す値、100が表示Window(Transcript)に表示される。"
model value: 100.
モデルの支援機構は全て Morphic方式PluggableMVC は Self へと場を移し、表現と制御そして、表現対象となる情報を1個のオブジェクトで兼任する Morphic として再設計された。Self によって発展した Morphic は Smalltalk に移植されSqueak系統の Smalltalk 環境で基本GUIシステムを構築している。Self の Morphic はウェブブラウザ―のDOMや JavaScript に大きな影響を与えている。 脚注注釈出典
参考文献
関連項目外部リンク
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
![[icon]](%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB:Wiki_letter_w_cropped.svg){kind=small}
Portal di Ensiklopedia Dunia
