FWD » Core Development » User Interface

Procedure uast/toggle_box/gui/tglbox_dyn.p. There are toggle-box is created dynamically using CREATE statement:

def var tbx as handle.
def button exit_btn label "exit".

def frame f skip(1) exit_btn no-labels.

create toggle-box tbx
  assign
  name = "tbx" 
  visible = true
  sensitive = true
  bgcolor = 4
  /*width = 10
  height = 1.6*/
  frame = frame f:handle.

message "name: " + tbx:name + "width-chars: " + string(tbx:width-chars) +
        "width-pixels: " + string(tbx:width-pixels) + "width: " + string(tbx:width) +
        "height-chars: " + string(tbx:height-chars) + "height-pixels: " + string(tbx:height-pixels) +
        "height: " + string(tbx:height).

enable all with frame f.

wait-for choose of exit_btn.

Then there are the MESSAGE statement that outputs toggle-box attributes. If the MESSAGE statement resides before ENABLE statement, than toggle-box attributes will be 0 (for P2J, but not for PROGRESS). If I'll swap MESSAGE and ENABLE, than attributes will have values.

So it seems, values assignment happen during enabling widgets in frame (in P2J) that is not right for my test. It is also common bug which is not specific for toggle-box probably.