define frame fr_main.
define frame fr_parent.
define frame fr1.
frame fr_parent:frame = frame fr_main:handle.
frame fr1:frame = frame fr_parent:handle.
define button btn.
enable btn with frame fr_main.

current-window:width-pixels = 900.
current-window:height-pixels = 500.

frame fr_main:scrollable = true.
frame fr_main:width-pixels = 900.
frame fr_main:height-pixels = 500.
frame fr_main:bgcolor = 7.

frame fr_parent:scrollable = true.
frame fr_parent:width-pixels = 900.
frame fr_parent:height-pixels = 300.
frame fr_parent:virtual-width-pixels = 900.
frame fr_parent:virtual-height-pixels = 600.
frame fr_parent:BGCOLOR = 5.

frame fr1:width-pixels = 300.
frame fr1:height-pixels = 250.
frame fr1:bgcolor = 6.

btn:row = 16.

/*define variable debuginfo as character view-as editor size 30 by 6.*/
/*enable debuginfo with frame fr_main.                               */
/*/*debuginfo:FORMAT = "x(128)".*/                                   */
/*debuginfo:width-pixels = 400.                                      */
/*debuginfo:height-pixels = 100.                                     */
/*debuginfo:row = 14.                                                */
/*debuginfo:column = 60.                                             */
/*debuginfo:bgcolor = 15.                                            */

on choose of btn do:
    frame fr1:width-pixels = 600.
    frame fr_parent:width-pixels = 600.
end.

on window-resized of current-window do:
/*    frame fr_parent:virtual-width-pixels = current-window:width-pixels.*/
    frame fr_main:width-pixels = current-window:width-pixels.
    frame fr_parent:width-pixels = current-window:width-pixels + 20.
    frame fr_main:virtual-width-pixels = current-window:width-pixels.
    frame fr_parent:VIRTUAL-WIDTH-PIXELS = current-window:width-pixels.
/*    debuginfo:screen-value = "fr_parent: virtual-width-pixels: " + STRING(frame fr_parent:VIRTUAL-WIDTH-PIXELS) + " width-pixels: " + STRING(frame fr_parent:VIRTUAL-WIDTH-PIXELS) + "~n".                       */
/*    debuginfo:screen-value = debuginfo:screen-value + "fr_main:   virtual-width-pixels: " + STRING(frame fr_main:VIRTUAL-WIDTH-PIXELS) +   " width-pixels: " + STRING(frame fr_main:VIRTUAL-WIDTH-PIXELS) + "~n".*/
    message "fr_parent: virtual-width-pixels: " frame fr_parent:VIRTUAL-WIDTH-PIXELS " width-pixels:" frame fr_parent:WIDTH-PIXELS.
    message "fr_main: virtual-width-pixels: " frame fr_main:VIRTUAL-WIDTH-PIXELS " width-pixels:" frame fr_main:WIDTH-PIXELS.
end.

wait-for close of current-window.