スタック便利ツール

オブジェクトをドラッグするFullDrag

ハイパーカードのボタンは最初にデザインした位置に固定しておくのが普通である。しかし、時にはこのボタンをマウスでドラッグして、利用者に好みの位置を決めてもらったり、スライドバーのようにして例えばサウンドの音量をコントロールできるようにしたいと考えることはないだろうか？

一般にこういう時に用いられるトリックは、

    on mouseStillDown
      set loc of me to the mouseLoc
    end mouseStillDown

というスクリプトをボタンに組み込むような仕掛けである。少し動きはぎこちないが、これでもボタンをドラッグする雰囲気は出る。このドラッグを、もっと高度に利用できるようにしたXFCNがFullDragである。これを使うと、ボタンがいきなり移動するのではなく、ファインダ上でファイルをドラッグするのと同様に点線で囲まれた枠組みだけが動く。マウスを放した時点でボタン移動させたり、あるいはそのままにしておいたりという選択も可能だ。

これは具体例を示した方が分かりやすい。例えば画面1のような、デスクトップを模したスタックを作ったとする。ここでファイルのアイコンをドラッグすると、ゴミ箱に重なれば黒く反転し、そこでマウスボタンを放すとゴミ箱が膨らんでファイルが消える（見えなくなる）という振る舞いが期待されるだろう。これを実現するには、ファイルのアイコンを持つボタンにリスト1のスクリプトを埋め込んでおけばよい。

3行目のFullDragはずいぶん長い命令だが、用法で説明したとおりである。第3引数でマウスの位置をチェックし、もしマウスがゴミ箱の領域に入ったら（within the rect of btn trash）、第4引数でゴミ箱のアイコンをハイライト、そうでなければ第5引数に従ってアイコンは通常の状態にされる。XFCNの返値（it）として得られる座標はボタンを放したときの相対的な移動を示すから、4〜5行目で実際の位置を計算し、ゴミ箱の上であることが分かったらゴミ箱を膨らませ（7行目）、ファイルアイコンのあるボタンを隠す（8行目）。

こうしたドラッグを用いるときは、アイコンのハイライトなどを利用して、常に今の状態をフィードバックすることが大切だ。

バルーンヘルプ機能を加えるFullBaloons

漢字Talk 7のバルーンヘルプはそれほど使いやすいものではないかもしれないが、うまく利用すれば、スタックの簡単な説明には十分役に立つ。FullBaloonsは標準のバルーンヘルプをHyperTalkから手軽に利用する機能を提供する。

このXCMDは通常、ボタンやフィールドのon mouseEnterハンドラにおいて使う。たとえば

    on mouseEnter
      FullBalloons "showDirect","This is a help"
    end mouseEnter

という具合だ。メニューバーで「バルーンを表示」にしておくと、マウスがそのボタン（フィールド）にさしかかったときに"This is a help"というバルーンヘルプが表示される。showPICTやshowTEXTを使えば画面2のような、表現力豊かなヘルプも可能だ。

バルーンヘルプは利用者がメニューバーでOn/Offを切り替えなければならず、使い方の分からない人にとってはあまり親切なものではない。このXCMDを用いればスクリプトでOn/Offを制御できるので、最初の１回だけ強制的にバルーンヘルプを表示するというような工夫が可能だ。たとえばカードに"balloon"というようなフィールドを用意し、そこにこれまでバルーンを表示したかどうかの記録を残すようにしておく。初めてカードを開く場合には、リスト2のような仕掛けで、メニューバーを使わなくてもヘルプが表示されるようにしておくというわけだ。

またリスト3のトリックを用いて、マイクロソフト社の製品のように、ボタンの上にしばらくマウスを置いておくと説明を表示するような時間差ヘルプも考えられる。mouseEnterではグローバル変数gHelpSetを１秒後にセットし（3行目）、mouseWithinで現在時刻とgHelpSetを比較（7行目）。１秒経過していたら、バルーンをオンにしてヘルプを表示するのである（*注1）。マウスがボタンから遠ざかったら（mouseLeave）バルーンを解除しておこう。こうすることで、どうでもいいようなメッセージばかり表示されるバルーンヘルプの煩わしさからも解放される。バルーンヘルプも使いようによっては親切な情報提供ツールになるのではないだろうか。

リソースを扱うXCMD

リソースを追加することで、プログラムを作りなおさなくても機能を拡張できるのがマッキントッシュの特徴である。このシリーズで紹介しているXCMDもリソースの一つだ。これらを利用するためには、まずResEditなどのツールでスタックにコピーしなければならない。これを簡単に、スクリプトの中からでも実行できるようにするのがCopyResだ。

リソースをResEditでコピーするのは単純作業ながら面倒なものだから、このようなツールを使ってできるだけ自動化したい。とくに、数多くのスタックをアップグレードする場合、スクリプトで必要なリソースをコピーしたり更新したりするようにしておけば、管理者の手間は大きく省けるだろう。CopyResがあればスタックを自動インストーラとして利用できるようになる。

必要なリソースを対話的に（ユーザーが選んで）コピーするなら、FullResListを使ってリソースの一覧を取得し、ListSelectなどのダイアログで選択できるようにすればよい。

かなり細かい指定が可能だが、普通に使うにはタイプ（と対象ファイル）さえ与えれば十分だろう。現在のスタック中のXCMDを調べるなら

FullResList("T=XCMD")

とするだけだ。

スタックにあるXCMDとXFCNを一覧表示し、選んだものをコピーするためのスクリプトをリスト4に示した。2行目でXCMDとXFCNの一覧を取得し、3行目でダイアログ表示する。ListSelectの最初の引数が"*3"となっているのは、一覧をソートして表示し、複数選択を可能にするため（*注4）。7〜9行目で、選択したリソースの数だけコピーを行う。CopyResの3、4番目引数がこのようなitem指定になるのは、2行目のFullResListでフォーマット指定の省略値"O=TNI"を暗黙のうちに使っているからだ。

さらに、不要なリソースを削除するにはKillResを使う。

KillRes <res type|all>,<res name or id|all>[,<file name>]

タイプ、名前にAllを指定すると、該当する全てのリソースを消去する。<file name>を省略すると現在のスタックのリソースが対象となる。

今回とり上げたツールを組み合わせて、画面3のようなリソースコピー用のスタックを作ってみた。指定したファイルのリソースをフィールドに表示し、そのフィールドから必要なリソースを右のアイコンにドラッグすると、コピーや削除を行うというものだ。ボタンには時間差ヘルプも設定してある。無理に機能を組み合わせた感もあるが、ドラッグやヘルプを実装する参考になれば幸いである。

注

リスト

-- ファイルアイコンをゴミ箱にドラッグする。id 131のアイコンは膨らんだゴミ箱。
 1: on mouseDown
 2:   put the mouseLoc into pos
 3:   get fullDrag(rect of me, "0,0,512,342",
      "the mouseLoc is within the rect of btn trash",
      "set hilite of btn trash to true",
      "set hilite of btn trash to false")
 4:   add item 1 of it to item 1 of pos
 5:   add item 2 of it to item 2 of pos
 6:   if pos is within the rect of btn "trash" then
 7:     set icon of btn trash to 131
 8:     hide me
 9:   end if
10:   set hilite of btn trash to false
11: end mouseDown

on openCard
  if cd fld "balloon" is "" then
    put "初めて使う方のためにバルーンヘルプを表示します..."
    FullBalloons "On"
    put "done" into cd fld "balloon"
  end if
  pass openCard
end openCard

 1: on mouseEnter
 2:   global gHelpSet
 3:   put the seconds + 1 into gHelpSet
 4: end mouseEnter

 5: on mouseWithin
 6:   global gHelpSet
 7:   if gHelpSet < the seconds then
 8:     FullBalloons "isShowing"
 9:     if the result is FALSE then
10:       FullBalloons "on"
11:       FullBalloons "showdirect","This is a help"
12:     end if
13:   end if
14: end mouseWithin

15: on mouseLeave
16:   FullBalloons "off"
17: end mouseLeave

 1: on mouseUp
 2:   get FullResList("T=XCMD,XFCN")
 3:   put ListSelect("*3",it) into myList
 4:   if myList is "" then exit mouseUp  
 5:   answer file "コピー先のスタック" of type "STAK"
 6:   if it is "" then exit mouseUp
 7:   repeat with i=1 to number of lines of myList
 8:     CopyRes "*",it,item 1 of line i of myList, item 2 of line i of myList
 9:   end repeat
10: end mouseUp