[vtcl-user] Problem populating the last column of a header row

[Bartis, Robert M (Bob)]

I am using a tktable widget in a program I built using vTCL. In the main program I have the following code snippet shown below. Also shown below is a supporting procedure. The table is define as 2 rows and 6 columns and is displayed correctly at startup. Like wise the code snippet below populates the header row properly with the exception of the last column. This column header is always blank. Does anyone have a suggestion as to what the problem may be?

 

Code snippet from main

===================================================

 

# Setup table header rows
#
set row 0
set column 0
set header [list "Device IP" "TFTP IP" "Release" "Binary" "Confirmation" "Message"]
foreach h $header {
    tableInsert $row $column $h
    incr column
}

 

 

Supporting procedure

===================================================

proc tableInsert {row column val} {

   fieldDataTable activate $row,$column
   fieldDataTable insert active end $val

}

Robert M. Bartis
Lucent Technologies �
Room HO 1C-413A (HO) / 1B-304 (WH)
( 732.949.4565 (HO) / 973.386.6739 (WH)

* [EMAIL PROTECTED]