List-boxのソースを表示

{{NewLISP}}
; 構文 :
: (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 ： 連続でクリック（選択）した回数


イベント・ハンドラは、次のように記述する。
<pre class="brush:autolisp;">
(define (list-action id index item click-count)
    (println "id:" id " index:" index " item:" (base64-dec item) " click-count:" click-count)
)
</pre>

[[Category:NewLISP]]