Changeset 92 for trunk/orca

Show
Ignore:
Timestamp:
03/14/06 22:28:24 (3 years ago)
Author:
krobillard
Message:

Qt - Improved widgets demo.

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r91 r92  
    33exec widget [ 
    44    vbox [ 
    5         hbox [label "Combo" combo ["Item one" "Item two" "Last Item"] spacer] 
    6         hbox [label "Line-edit" line-edit] 
     5        tab [ 
     6            "Basic" [ 
     7                vbox [ 
     8                    hbox [button "Button" [] spacer] 
     9                    hbox [ 
     10                        label "Combo" 
     11                        combo ["Item one" "Item two" "Last Item"] 
     12                        spacer 
     13                    ] 
     14                    checkbox "Checkbox" 
     15                    spacer 
     16                ] 
     17            ] 
     18            "Text" [ 
     19                vbox [ 
     20                    hbox [label "Line-edit" line-edit] 
     21                    text-edit 
     22{<h2>Text-Edit Widget</h2> 
     23<p>Text-edit can show basic <i>HTML</i>.</p> 
     24<hr> 
     25<h3>A List</h3> 
     26<ul> 
     27<li>Item one</li> 
     28<li>Item two</li> 
     29</ul> 
     30} 
     31                ] 
     32            ] 
     33            "Dialogs" [ 
     34                vbox [ 
     35                    button "Message" [ 
     36                        message "Message" 
     37                                "This was invoked by the 'message word." 
     38                    ] 
    739 
    8         text-edit {<h2>Text-Edit Widget</h2> 
    9             <p>Text-edit can show basic <i>HTML</i>.</p> 
    10             <hr> 
    11             <h3>A List</h3> 
    12             <ul> 
    13             <li>Item one</li> 
    14             <li>Item two</li> 
    15             </ul> 
    16         } 
     40                    button "Question" [ 
     41                        answer: question "Question" 
     42                                         "Do you like vanilla yogurt?" 
     43                                         "Yes" "Umm, not so much" 
     44                        message "Answer" join "Question returned: " answer 
     45                    ] 
    1746 
    18         button "Message" [ 
    19             message "Message" "This was invoked by the 'message word." 
    20         ] 
     47                    button "Request-file" [ 
     48                        file: request-file "Select a file" 
     49                        message "File Selected" to-string file 
     50                    ] 
    2151 
    22         button "Question" [ 
    23             answer: question "Question" "Do you like vanilla yogurt?" 
    24                              "Yes" "Umm, not so much" 
    25             message "Answer" join "Question returned: " answer 
     52                    spacer 
     53                ] 
     54            ] 
    2655        ] 
    2756