TableBrowser with header

[pamoroso]

To learn how to use TableBrowser I wrote this simple Interlisp program: TBDEMO.TXT

Evaluating (TBD.INIT) creates a table with 3 columns and populates it with sample items. The table is supposed to have this header:

COLUMN 1           COLUMN 2            COLUMN 3

However, the header area is completely blank and looks like this:

I did expect the header text to be partially offset or cropped but hoped its location would hint at how to fix it. However, I didn't expect the text wouldn't show up at all. Is there anything obviously wrong with my code?

I checked the File Browser code but the implementation of the header is a bit involved and I haven't figured how it works.

[nbriggs]

You've passed the atom 'HEADER to the table browser create function, instead of passing the window that is the value of the atom HEADER.

You've also put the header repaintfn on the main window instead of the heading window.

[pamoroso]

I changed TBD.INIT to evaluate HEADER and put the header repaint function on the header window instead of the main window:

(TBD.INIT
  [LAMBDA NIL                                                (* ; "Edited 19-Aug-2024 04:54 by PA")
                                                             (* ; "Edited  7-May-2024 10:45 by PA")
                                                             (* ; "Edited 22-Oct-2023 11:20 by PA")
    (LET* [(WINDOW (CREATEW NIL "Table Browser"))
           [HEADER (CREATEW '(50 50 150 20]
           (BROWSER (TB.MAKE.BROWSER NIL WINDOW `(PRINTFN TBD.PRINTFN TBHEADINGWINDOW ,HEADER]
          (WINDOWPROP HEADER 'REPAINTFN (FUNCTION TBD.REPAINT.HEADER))
          (ATTACHWINDOW HEADER WINDOW 'TOP 'JUSTIFY)
          [for I from 1 to 10 do (TB.INSERT.ITEM BROWSER (TBD.CREATE.RECORD (CONCAT "Column 1 " I)
                                                                (CONCAT "Column 2 " I)
                                                                (CONCAT "Column 3 " I]
          BROWSER])

The full code is here: TBDEMO.TXT

Now the header does show up but slightly offset and partially erased. And the header doesn't repaint or scroll in sync with the main window, but it's something I can probably figure.