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

Revision 14, 351 bytes (checked in by krobillard, 3 years ago)

Qt - Added 'progress and 'weight.
Line 
1ORCA []
2
3done: 0
4
5exec widget [
6    vbox [
7        label "Progress Demo"
8        prog-bar: progress 10
9        spacer
10        hbox [
11            spacer
12            button "Increment"   [
13                set-widget-value prog-bar done:
14                    either done = 10 [0][done + 1]
15            ]
16            button "Quit" [quit]
17        ]
18    ]
19]
Note: See TracBrowser for help on using the browser.