start.p
| 1 |
define variable CtrlFrame as widget-handle no-undo. |
|---|---|
| 2 |
define variable chCtrlFrame as component-handle no-undo. |
| 3 |
|
| 4 |
define frame f1. |
| 5 |
frame f1:height = 17. |
| 6 |
frame f1:width = 55. |
| 7 |
|
| 8 |
define frame f2. |
| 9 |
frame f1:height = 17. |
| 10 |
frame f1:width = 55. |
| 11 |
|
| 12 |
define var w1 as handle. |
| 13 |
define var w2 as handle. |
| 14 |
|
| 15 |
create window w1. |
| 16 |
create window w2. |
| 17 |
|
| 18 |
create control-frame CtrlFrame assign |
| 19 |
frame = frame f1:HANDLE |
| 20 |
row = 2.43 |
| 21 |
column = 1 |
| 22 |
height = 15 |
| 23 |
width = 50 |
| 24 |
hidden = no |
| 25 |
sensitive = yes. |
| 26 |
|
| 27 |
view frame f1 in window w1. |
| 28 |
view frame f2 in window w2. |
| 29 |
|
| 30 |
chCtrlFrame:webbrowser:Navigate2("http://www.google.com").
|
| 31 |
|
| 32 |
wait-for close of w1. |