Text-areaのソースを表示

{{NewLISP}}
; 構文 :
: (gs:text-area sym-id sym-action int-width int-height)


; 機能
: 文字編集用のウィジェット


; 引数
:* symid ：テキストエリア名
:* sym-action ：イベントハンドラ名
:* int-width ：テキストエリアの幅
:* int-height ： テキストエリアの高さ


; 戻り値
: なし


; 例
<pre class="brush:autolisp;">
(gs:text-area 'TheText 'textarea-event 10 8)
(define (textarea-event id code dot mark) ...)
</pre>

gs:text-area は、イベントに次のパラメータを伝える。
* id ： ウィジェット名
* code ： ASCIIのキーコード。 文字キーのみ
* dot - キャレットの位置
* mark - 選択キャレット位置


[[Category:NewLISP]]