FWD » Bugs

In 4GL, the QUERY and DISPLAY column clauses for a DEFINE BROWSE statement are optional. In P2J, at least the following does not work correctly, when drawing a browse:
1. drawing of a frame with a browse and other widgets:

def temp-table w-customer no-undo
    field site         as char format "x(3)" label "Site" 
    field cust-num     as int format ">>>>" label "Cust Num".

/* DEFINE QUERY ******************************************************/
def query q-w-customer for w-customer.
def browse w-customer-brws
    with single 14 down size 80 by 20 no-separators
         title " Results of Query for Customers ". 

/* DEFINE BUTTONS ****************************************************/
def button btn-w-customer label "&Customers" auto-go.
def button btn-find label "&Find" auto-go.
def button btn-exit label "&Exit" auto-endkey.
def button btn-print label "&Print" auto-go.

/* DEFINE FRAME ******************************************************/
def frame f-frame
    w-customer-brws at col 1  row 2
    btn-w-customer  at col 4 row 20 
    btn-find
    btn-print
    btn-exit 
    skip(1)
    with centered no-box side-labels row 2 width 80.

enable all with frame f-frame.
wait-for close of current-window.

In 4GL we have:

In P2J currently we have:

2. drawing of a frame with only a browse:

def temp-table w-customer no-undo
    field site         as char format "x(3)" label "Site" 
    field cust-num     as int format ">>>>" label "Cust Num".

def query q-w-customer for w-customer.
def browse w-customer-brws with 10 down size 80 by 20. 

def frame f-frame
    w-customer-brws
    with centered no-box side-labels.

enable all with frame f-frame.
wait-for close of current-window.

In 4GL we have:

In P2J currently we have: