Text-fieldのソースを表示

{{NewLISP}}
; 構文 :
: (gs:text-field sym-id sym-action int-columns [str-covered-text])


; 機能
: テキスト・フィールドを生成する。


; 引数
:* sym-id ： テキストフィールド名
:* sym-action ： イベントハンドラ名
:* int-columns ： テキストフィールドの幅
:* str-covered-text ：入力した文字の代わりに表示する文字


; 戻り値
: なし

; 例：
<pre class="brush:autolisp;">
(gs:text-field 'TheTextField 'textfield-event)
(gs:text-field 'PasswordTextField 'textfield-event "*")
</pre>
: テキスト・フィールドで enter キーが押された時、textfield-event が発生する。
: もう一つの方のパスワード用のカバー文字は、gs:set-echo-char でも設定可能。

イベント・ハンドラは、次のように記述する
<pre class="brush:autolisp;">
(define (textfield-event id text)
    (println id " " text)
)
</pre>
id - テキスト・フィールドの ID
text - base64エンコードされたテキスト

[[Category:NewLISP]]