RichTextAreaについて

[heavybugtracker]

長い間見れてなく、ご回答が遅くなって失礼しました。

romさんのやりたいことはRichTextAreaのソースコードをCurlの開発環境の
インストールフォルダにあるOPEN-CONTROLSから取得し、改造する方が無難です。
（OPEN-CONTROLSのソースコードは通常次の場所にあります：
C:\Program Files (x86)\Curl Corporation\Surge\9\ide\gui\controls）


それが嫌でしたら、ハック的なやり方もあります。
Curlのグラフィック階層の考え方を利用して、対象のグラフィックを探すことです。

次のコードをご参考になれれば幸いです。

PHP Code:

{curl 8.0 applet}
{define-proc public {find-target-in
                        g:Box,
                        t:Type,
                        layer:int = 5,
                        sclass:String = "rta-font-family-control",
                        processed-layer:int}:#Box
    
    set processed-layer = processed-layer + 1
    {if processed-layer > layer then
        {return null}
    }

    {if-non-null gc = g.graphical-children then
        {while true do
            {def (child:any, eof?:bool) = {gc.read-one}}
            {output "Child TYPE:" & {type-of child}}
            {output "child style-class:" & child.style-class}
            {output "sclass:" & sclass}
            
            {if {type-of child} == t and child.style-class == sclass then
                {return child asa Box}
            }
            {if not (child isa Box) then {continue}}
            {return
                {find-target-in
                    child asa Box,
                    t,
                    layer = layer,
                    sclass = sclass,
                    processed-layer
                }
            }
        }
     else
        {return null}
    }
}

{let rta:RichTextArea = {RichTextArea}}

{spaced-vbox
    rta,
    {CommandButton
        {on Action do
            || Get font-size dropdownlist
            {def font-family-ddl =
                {find-target-in rta, DropdownList, layer=6, sclass="rta-font-family-control", 0}
            }
            {def font-size-ddl =
                {find-target-in rta, DropdownList, layer=6, sclass="rta-font-size-control", 0}
            }
            {output font-family-ddl}
            {output font-size-ddl}
        }
    }
} 


上記Font-familyおよびFont-sizeのドロップダウンリストのインスタンスを取得出来たら、中の値（リスト）が変更可能になりますので、ご期待の動きにはできるかと思います。