Add-toのソースを表示

{{NewLISP}}
; 構文 :
:1 (gs:add-to ''sym-container sym-component'' [''sym-componentl ...''])
:2 (gs:add-to ''sym-container sym-component str-orientation'' [''sym-component str-orientation ...''])


; 機能
: コンテナにコンポーネントを追加・配置する。


; 引数
:構文 1
:* sym-container ：コンポーネントが追加されるコンテナ名。
:* sym-component ：ひとつまたは複数のコンポーネントに追加するシンボル。
:構文 2
:* sym-container ： コンポーネントが追加されるコンテナ名。
:* sym-component ： コンポーネントに追加するシンボル。
:* str-orientation ： ボーダーレイアウトでコンポーネントを追加する方向。値は、 "north"、"west"、"center"、"east"、"south".


; 戻り値
: なし


; sample. 
<pre class="brush:autolisp;">
; ひとつ追加
(gs:add-to 'DragDemo 'MyCanvas) 

; たくさん追加
(gs:add-to 'TestFrame 'L1 'L2 'L3 'L4 'L5 'L6 'L7 'L8 'L9 'L10 'L11 'L12)

; ボーダーレイアウトで各方向に追加
(gs:add-to 'BorderDemo 'NorthPanel  "north" 
                       'WestPanel   "west" 
                       'CenterPanel "center" 
                       'EastPanel   "east" 
                       'SouthPanel  "south")
</pre>


[[Category:NewLISP]]