小さなパネル用の次の簡単なコードがあります。
view [
t: text "label"
f: field
button "Click here" [t/text: f/text] ]
しかし、私はそれらを2つ作って、1つのウィンドウに配置する必要があります. 単一のオブジェクト クラスを作成し、そこから 2 つのオブジェクトを作成したいと考えています。オブジェクトは次のように作成できることがわかりました。
obj: object [
view [
t: text "label"
f: field
button "Click here" [t/text: f/text] ] ]
view [
obj
obj ]
しかし、次のエラーが発生します。
*** Script Error: VID - invalid syntax at: [obj obj]
*** Where: do
*** Stack: view layout cause-error
これはどのように行うことができますか?ご協力いただきありがとうございます。
編集:試してみましたが、以下do
でしか管理できませんでしたdoes
:
myview: object [
show: does [view[
below
t: text "1st time"
f: field "Enter value"
button "Click here" [f/text "clicked"]
area] ] ]
myview/show
print "READY TO SHOW 2nd OBJECT: "
myview2: copy myview
myview2/show