[Gambas-devel] Corection de bug 0.93

[Fabien Bodard]

PRIVATE SUB ListInit()

  WITH cvwFindList
    .ScrollBar = Scroll.Both
    .Resizable = TRUE
    
    .Columns.Sort=0
    .Columns.Ascending=TRUE
   ' .Columns.Adjust '?????? how to
 
    .Columns.Count=4
    
    .Columns[0].text=("Class / Line")
    .Columns[0].width=100
 '   .Columns[0].Align=align.Right
 
    .Columns[1].text=("Line")
    .Columns[1].width=0'60
    .Columns[1].Alignment=align.Right
    
    .Columns[2].text=("Pos.")
    .Columns[2].width=60
    .Columns[2].Alignment=align.Right
    
    .Columns[3].Text=("Text")
    .Columns[3].width=300
  END WITH
END


Patch For FFind.Class

Crash when trying to use list...

Regards,
Fabien