0

小さなパネル用の次の簡単なコードがあります。

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
4

3 に答える 3