for VisualWorks 7.8 / 7.7 / 7.6 with Jun793
トップクラスをObjectとしたSmalltalkのインヘリタンスを眺望するためのアプリケーション「クラスツリー」を作成します。ガジェット(ウィジェット)としてツリービューを用いる練習になります。
|
どうぞ次のプログラムを実行してください。作成のための準備が整います。
| aCollection |
(aCollection := OrderedCollection new)
add: #url: -> 'http://www.cc.kyoto-su.ac.jp/~atsushi/Programs/VisualWorks/ClassTree/ClassTree.st';
add: #comment: -> 'Copyright 2008-2011 KSU (Kyoto Sangyo University). All Rights Reserved.';
add: #bundle: -> #KSU;
add: #package: -> 'KSU-Template';
add: #nameSpace: -> #KSU;
add: #category: -> 'KSU-Template';
add: #class: -> #{KSU.ClassTree};
add: #protocol: -> #examples;
add: #selector: -> #example1;
add: #execute: -> [#{KSU.ClassTree} value example1];
yourself.
JunSystem
perform: ((aCollection collect: [:each | each key]) inject: String new
into: [:selector :key | selector , key]) asSymbol
withArguments: (aCollection collect: [:each | each value]) asArray
|
インターフェースビルダ(GUI Canvas)やメニューエディタ(Menu Editor)などを用いて、すべてこしらえると…
|
約200行のプログラミング(このドックレット出力を見ながら)、おきばりやしとくれやす!
for VisualWorks 7.8 / 7.7 / 7.6 with Jun793