 |
 |
for VisualWorks 7.8 / 7.7 / 7.6 with Jun793
ボタンを押すことで行動を起こすアクションボタン、印を付けながら幾つも選択できるチェックボタン、単一の選択を促すラジオボタン、これらのボタンたちの練習をしましょう。以下のような「いま何時かしら？」というラベルを持つアクションをボタンを押すと、現在の時刻を告げてくるアプリケーションになります。
|
どうぞ次のプログラムを実行してください。作成のための準備が整います。
| aCollection |
(aCollection := OrderedCollection new)
add: #url: -> 'http://www.cc.kyoto-su.ac.jp/~atsushi/Programs/VisualWorks/WhatTime/WhatTime.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.WhatTime};
add: #protocol: -> #examples;
add: #selector: -> #example1;
add: #execute: -> [#{KSU.WhatTime} 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
