{curl 8.0 applet}
{curl-file-attributes character-encoding = "utf8"}

{define-class public MultiControlField {inherits HBox}

  {constructor public {default
                          ...
                      }
    let (tf-args:Arguments,cb-args:Arguments,self-args:Arguments) = {self.separate-arguments {splice ...}}

    {construct-super
        {TextField {splice tf-args}},
        {CommandButton {splice cb-args}},
        {splice self-args}
    }


  }

  {method private {separate-arguments
                      ...
                  }:(tf-args:Arguments,cb-args:Arguments,self-args:Arguments)

    let tf-type:ClassType = TextField
    let cb-type:ClassType = CommandButton
    let self-type:ClassType = {type-of self} asa ClassType

    let (tf-args:Arguments,cb-args:Arguments,self-args:Arguments) = ({Arguments},{Arguments},{Arguments})

    ||///
    ||1.何れか1つに振り分ける
    ||///
    {for (value:any,name:#String) in ... do

        {if-non-null name
         then
            {if-non-null {tf-type.get-option name}
             then
                {tf-args.append value,keyword = name}
                {continue}
            }

            {if-non-null {cb-type.get-option name}
             then
                {cb-args.append value,keyword = name}
                {continue}
            }


            {if-non-null {self-type.get-option name}
             then
                {self-args.append value,keyword = name}
            }

         else
            {self-args.append value}
        }


    }

||++||///
||++||2.引き受ける引数は全て振り分ける
||++||///
||++{for  (value:any,name:#String) in ... do
||++
||++    {if-non-null name
||++     then
||++        {if-non-null {tf-type.get-option name}
||++         then
||++            {tf-args.append value,keyword = name}
||++        }
||++
||++        {if-non-null {cb-type.get-option name}
||++         then
||++            {cb-args.append value,keyword = name}
||++        }
||++
||++
||++        {self-args.append value,keyword = name}
||++
||++
||++     else
||++        {tf-args.append value}
||++        {cb-args.append value}
||++        {self-args.append value}
||++    }
||++
||++
||++}


    {return tf-args,cb-args,self-args}
  }

}

{MultiControlField
    editable? = false,
    show-focus? = false
}