#Prepare Listview for Load $win->lvwData_Entered->Clear(); $win->lvwData_Entered->InsertColumn ( -text=>"Tape", -width=>80); $win->lvwData_Entered->InsertColumn ( -text=>"MFGDATE", -width=>80); $win->lvwData_Entered->InsertColumn ( -text=>"Library", -width=>80); $win->lvwData_Entered->InsertColumn ( -text=>"DateLoaded", -width=>80); $win->Show(); $win->lvwData_Entered->InsertItem ( -item=>0, -text=>"000234D"); $win->lvwData_Entered->InsertItem ( -item=>1, -text=>"000235D"); $win->lvwData_Entered->InsertItem ( -item=>2, -text=>"000236D"); $win->lvwData_Entered->Update(); $win->tfLoad_TapeName->SetFocus(); print_dbg("Main()--Listview","Column must be ".$win->lvwData_Entered->GetStringWidth("000000d"). " characters wide.\n."); print_dbg("Main()--Listview","There are ".$win->lvwData_Entered->Count()." tapes in list.\n"); print_dbg("Main()--Listview","First visible is ".$win->lvwData_Entered->GetFirstVisible()."\n"); print_dbg("Main()--Listview","View-mode: ".$win->lvwData_Entered->View()."\n"); print_dbg("Main()--Listview","There are ".$win->lvwData_Entered->VisibleCount(). " Viewable tapes in list."); Win32::GUI::Dialog(); return(1); }