for VisualWorks 7.8 / 7.7 / 7.6 with Jun793
いくつかのツールボタンを並べたツールバーの練習をしましょう。テキストエディタ上で選択されたSmalltalkのメッセージ式を実行するためのアプリケーション「スモールトーク実行」を作成します。ツールバーにはランニングをしている(実行を意味する)ボタンが1個だけ付いていますが、1個付けることができれば、いくつも付けて並べることができますでしょ。
|
どうぞ次のプログラムを実行してください。作成のための準備が整います。
| aCollection | (aCollection := OrderedCollection new) add: #url: -> 'http://www.cc.kyoto-su.ac.jp/~atsushi/Programs/VisualWorks/SmalltalkRun/SmalltalkRun.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.SmalltalkRun}; add: #protocol: -> #examples; add: #selector: -> #example1; add: #execute: -> [#{KSU.SmalltalkRun} 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)などを用いて、すべてこしらえると…
|
約150行のプログラミング(このドックレット出力を見ながら)、おきばりやしとくれやす!
for VisualWorks 7.8 / 7.7 / 7.6 with Jun793