# Testcase [ 712028 ] v1.6 bug in LabelEntry Creation
#
# Source this file twice (in a row) to see the error.
#
package require BWidget

proc gui_LabelEntry {f label textvar} {
#    frame $f
#    label $f.l -text $label -width 20 -anchor w
#    entry $f.e -textvariable $textvar -width 10 -justify right
 #   pack $f.l $f.e -side left -padx 5
    LabelEntry $f -label $label -labelwidth 20 -labelanchor w -textvariable $textvar
    return $f
}

foreach ch [winfo children .] {
    catch [list destroy $ch]
}

TitleFrame .payroll -text PAYROLL
pack .payroll -expand yes -fill x -pady 5 -padx 5
set gui_payroll [.payroll getframe]

grid [label $gui_payroll.lb0 -text Employee -bg yellow] -sticky ew -padx 5 -pady 5
grid [gui_LabelEntry $gui_payroll.le0 "Payroll Date" var_payroll_date ] -sticky e
