root/trunk/orca/qt/demos/widgets.r

orca []

exec widget [
    vbox [
        tab [
            "Basic" [
                vbox [
                    hbox [button "Button" [] spacer]
                    hbox [
                        label "Combo"
                        combo ["Item one" "Item two" "Last Item"]
                        spacer
                    ]
                    checkbox "Checkbox"
                    spacer
                ]
            ]
            "Text" [
                vbox [
                    hbox [label "Line-edit" line-edit]
                    text-edit
{<h2>Text-Edit Widget</h2>
<p>Text-edit can show basic <i>HTML</i>.</p>
<hr>
<h3>A List</h3>
<ul>
<li>Item one</li>
<li>Item two</li>
</ul>
}
                ]
            ]
            "Dialogs" [
                vbox [
                    button "Message" [
                        message "Message"
                                "This was invoked by the 'message word."
                    ]

                    button "Question" [
                        answer: question "Question"
                                         "Do you like vanilla yogurt?"
                                         "Yes" "Umm, not so much"
                        message "Answer" join "Question returned: " answer
                    ]

                    button "Request-file" [
                        file: request-file "Select a file"
                        message "File Selected" to-string file
                    ]

                    spacer
                ]
            ]
        ]

        spacer
        hbox [spacer button "Quit" [quit]]
    ]
]