プロジェクトの作成

　まず初めに電卓用のプロジェクトファイルを作成します。前回と同じように「Project」メニューから「New Project..」を選びます。名前は「Calc.prj」とでもしておきます。細かい設定は後で行います。

レイアウトの作成

　電卓用のレイアウトファイルを作成します。「File」メニューから「New Layout」を選びます。「Save as...」で保存しておきましょう。レイアウトの名前には「.t」を付けるのが一般的になっていますので、それに従って「Calc.t」とかにしておくといいでしょう。保存できたらプロジェクトに追加するために「Project」メニューから「Add Calc.t」を選んで下さい。

　プロジェクトウィンドウに「Calc.t」が追加されたのを確認しましょう。このときに、名前の左側に黒丸がついているのに気がついたでしょうか？この黒丸は「Calc.t」がこのプロジェクトの中でのメインのレイアウトであることを示しています。メインのレイアウトとはNewtonのExtras Drawerの中からアプリケーションを開いたときに最初に開かれるレイアウトのことです。今回は一つしかレイアウトを作成しませんから関係ありませんが、大きなプロジェクトではたくさんレイアウトを作成しますので、このメインレイアウトの指定が意味を持ってきます。

電卓のベースの配置

最初のボタンの配置と設定

表示窓の配置

　結果を表示するための表示窓を作りましょう。パレットからprotoStaticTextを選択し、さっき配置したボタンの上の位置に電卓らしくなるように配置して下さい。

　さらにブラウザーから設定を行います。電卓の表示は普通右揃えなので、この設定を追加します。「Attributes」ポップアップメニューから「viewJustify」を選びます。グラフィカルな設定欄が現れますので、その中の左下の「Text/Graphics」という囲みの「Horizontal」の項目をRightに設定して下さい。さらに「Attributes」ポップアップメニューから、今度は「viewFormat」を追加し、その設定の中で「Pen」を1に、「Inset」を2に、そして「Frame」をBlackになるように設定して下さい。これにより枠がテキストからちょっと離れて表示されます。

　ここで重要な作業を行いましょう。ビューに名前を付けるのです。「なんださっきやったじゃん」と思わないように。今回はただ名前を付けるだけでなく別のビューに定義するのです。やり方は簡単です。先ほどと同じやり方で名前を「display」と付けますが、今度は名前入力欄の下の「Declare to:」のチェックマークを付けます。こうするとビュー「display」はビュー「calcBase」に定義されたことになります。この詳しい仕組みは次回詳しく説明しますが、階層が上のビューから下のビューへアクセスする必要があるときには必ずこの定義を行う必要があります。

機能の作成

　さあ、インターフェースは一応これでそろったわけですので、次に実際の機能を作っていきましょう。機能は「calcBase」に組み込んでいきます。

　ブラウザーからcalcBaseを選択して下さい。そしてウィンドウの真ん中にある「Methods」というポップアップメニューから、「viewSetupDoneScript」を選択して下さい。このスクリプトは電卓が最初に開かれたときに呼ばれる物なので、ここで電卓の初期化を行いましょう。次のコードを入力して下さい。これは電卓のクリアーボタンを押したのと同じことをしています。

    func()
    begin
        :DoCalcButton("C");
    end

　次は実際の計算ルーチンです。「Browser」メニューから「New Slot...」を選択して、スロット追加ダイアログを表示します。Slot Name欄に「DoCalcButton」、その右のEditorのポップアップメニューは「Script」になるように設定して下さい。以下のコードを入力して下さい。

    func(text)
    begin
        if StrPos("0123456789",text,0) then
        begin
            if clearFlag then
            begin
                result := 0;
                operator := "=";
            end;
            
            if NOT value then value := 0;
            
            value := value * 10 + Floor(StringToNumber(text));
            SetValue(display, 'text, NumberStr(value));
            
            clearFlag := nil;
        end
        else if StrPos("+-",text,0) then
        begin
            if value then :DoCalcButton("=");
            
            operator := text;
            
            clearFlag := nil;
        end
        else if StrEqual("=",text) then
        begin
            if value then
            begin
                memory := value;
                value := nil;
            end;
            
            if StrEqual("+",operator) then
                result := result + memory;
            else if StrEqual("-",operator) then
                result := result - memory;
            else
                result := memory;
            
            SetValue(display, 'text, NumberStr(result));
            
            clearFlag := true;
        end
        else if StrEqual("C",text) then
        begin
            self.value := nil;
            self.memory := 0;
            self.result := 0;
            self.operator := "=";
            self.clearFlag := nil;
            
            SetValue(display, 'text, "0");
        end
    end

動作チェック

　これでプログラムは完成です。Newtonにダウンロードして動作をチェックしてみましょう。ボタンの位置がおかしいようなら、修正してはダウンロードを繰り返して微調整を行って下さい。NTKのレイアウトの画面はあまり正確ではないので、最終的にはNewton上でチェックするしかないわけです。

次回予告

　次回は、今回作った電卓の仕組みを解説しながら、Newtonのビューシステムの中味を見ていくことにします。