List-box

提供:GizmoLabs - だいたい CAD LISP なサイト
2011年7月8日 (金) 09:48時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(gs:list-box sym-id sym-action [str-item-1 ...])
(gs:list-box sym-id sym-action [list-str-items])


機能
リストボックスを生成する。


引数
  • sym-id : リストボックスの名前
  • sym-action : イベントハンドラ名
  • str-item : 0または1個以上のエントリー文字列
  • list-str-items : 0または1個以上のエントリー文字列のリスト


戻り値
なし


リストボックスは、マウスでクリックされるか、[enter] キーが押された時、 次のパラメータをイベント・ハンドラに渡す。
  • id : リストボックスの id 文字列
  • index : 0から始まる選択したエントリーのインデックス
  • item : 選択したエントリーの文字列
  • click-count : 連続でクリック(選択)した回数


イベント・ハンドラは、次のように記述する。

(define (list-action id index item click-count)
    (println "id:" id " index:" index " item:" (base64-dec item) " click-count:" click-count)
)