#! c:/perl/bin -w $|++; AUTOLOAD; require 5.008; use strict; use warnings 'all'; use diagnostics; use TK 800.005; use Tk::TList; use TK::Table; use TK::Frame; use TK::DirTree; use TK::Adjuster; use TK::Scrollbar; use TK::DropSite; use TK::DragDrop; #### Subroutine Tk::optionAdd redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) (W redefine) You redefined a subroutine. To suppress this warning, say { no warnings 'redefine'; eval "sub name { ... }"; } Subroutine Tk::optionGet redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) Subroutine Tk::optionClear redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) Subroutine Tk::optionReadfile redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) Subroutine Tk::clipboardClear redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) Subroutine Tk::clipboardAppend redefined at C:/Perl/site/lib/Tk/Submethods.pm line 19 (#1) Subroutine _backTrace redefined at C:/Perl/site/lib/Tk.pm line 81 (#1) Subroutine BackTrace redefined at C:/Perl/site/lib/Tk.pm line 97 (#1) Subroutine __DIE__ redefined at C:/Perl/site/lib/Tk.pm line 116 (#1) Subroutine XEvent::xy redefined at C:/Perl/site/lib/Tk.pm line 125 (#1) Subroutine XEvent::AUTOLOAD redefined at C:/Perl/site/lib/Tk.pm line 128 (#1) Subroutine NoOp redefined at C:/Perl/site/lib/Tk.pm line 135 (#1) Subroutine Ev redefined at C:/Perl/site/lib/Tk.pm line 138 (#1) Subroutine InitClass redefined at C:/Perl/site/lib/Tk.pm line 154 (#1) Subroutine Exists redefined at C:/Perl/site/lib/Tk.pm line 172 (#1) Subroutine Time_So_Far redefined at C:/Perl/site/lib/Tk.pm line 177 (#1) Subroutine SelectionOwn redefined at C:/Perl/site/lib/Tk.pm line 184 (#1) Subroutine SelectionOwner redefined at C:/Perl/site/lib/Tk.pm line 189 (#1) Subroutine SelectionClear redefined at C:/Perl/site/lib/Tk.pm line 194 (#1) Subroutine SelectionExists redefined at C:/Perl/site/lib/Tk.pm line 199 (#1) Subroutine SelectionHandle redefined at C:/Perl/site/lib/Tk.pm line 204 (#1) Subroutine SplitString redefined at C:/Perl/site/lib/Tk.pm line 210 (#1) Subroutine Methods redefined at C:/Perl/site/lib/Tk.pm line 222 (#1) Subroutine MessageBox redefined at C:/Perl/site/lib/Tk.pm line 233 (#1) Subroutine messageBox redefined at C:/Perl/site/lib/Tk.pm line 263 (#1) Subroutine getOpenFile redefined at C:/Perl/site/lib/Tk.pm line 270 (#1) Subroutine getSaveFile redefined at C:/Perl/site/lib/Tk.pm line 275 (#1) Subroutine chooseColor redefined at C:/Perl/site/lib/Tk.pm line 280 (#1) Subroutine DialogWrapper redefined at C:/Perl/site/lib/Tk.pm line 285 (#1) Subroutine ColorDialog redefined at C:/Perl/site/lib/Tk.pm line 315 (#1) Subroutine FDialog redefined at C:/Perl/site/lib/Tk.pm line 321 (#1) Subroutine MainLoop redefined at C:/Perl/site/lib/Tk.pm line 334 (#1) Subroutine tkinit redefined at C:/Perl/site/lib/Tk.pm line 345 (#1) Subroutine catch redefined at C:/Perl/site/lib/Tk.pm line 349 (#1) Subroutine TranslateFileName redefined at C:/Perl/site/lib/Tk.pm line 357 (#1) Subroutine findINC redefined at C:/Perl/site/lib/Tk.pm line 371 (#1) Subroutine idletasks redefined at C:/Perl/site/lib/Tk.pm line 384 (#1) Subroutine Tk::BLACK redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::WHITE redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::NORMAL_BG redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::ACTIVE_BG redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::SELECT_BG redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::SELECT_FG redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::TROUGH redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::INDICATOR redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::DISABLED redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::DONT_WAIT redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::WINDOW_EVENTS redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::FILE_EVENTS redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::TIMER_EVENTS redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::IDLE_EVENTS redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::ALL_EVENTS redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Xrm::import redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine XEvent::Info redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine XEvent::DESTROY redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::MainWindow::Synchronize redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::MainWindow::Count redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Callback::new redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Callback::Substitute redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::NeedPreload redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Preload redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::timeofday redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::GetFocusWin redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::GetPointerCoords redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::exit redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::CheckHash redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Debug redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::WidgetMethod redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::OldEnterMethods redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::GetFILE redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::PointToWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::WindowXY redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::DefineBitmap redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::UnmanageGeometry redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::DisableButtonEvents redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::SendClientMessage redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::XSync redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::GetRootCoords redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::GetVRootGeometry redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Colormap redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Display redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::ScreenNumber redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Screen redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Visual redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::WindowId redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::X redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Y redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::ReqWidth redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::ReqHeight redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::Width redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Height redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::IsMapped redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Depth redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::InternalBorderWidth redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::IsTopLevel redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::Widget::Name redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::PathName redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Class redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MakeWindowExist redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::SetClass redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MoveWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::Widget::XRaiseWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MoveToplevelWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MoveResizeWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::ResizeWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::GeometryRequest redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MaintainGeometry redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::SetGrid redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::UnmaintainGeometry redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MapWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::UnmapWindow redefined at C:/Perl/site/lib/Tk.pm line 68 ( #1) Subroutine Tk::Widget::UnsetGrid redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::AddOption redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::GetAtomName redefined at C:/Perl/site/lib/Tk.pm line 68 ( #1) Subroutine Tk::Widget::ClearSelection redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::DisplayName redefined at C:/Perl/site/lib/Tk.pm line 68 ( #1) Subroutine Tk::Widget::GetOption redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::InternAtom redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::Widget::Ungrab redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::SetAppName redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::Widget::IsWidget redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Grab redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Widget redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::Containing redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::Widget::Parent redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::MainWindow redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::AddErrorInfo redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::BackgroundError redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Fail redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::DoOneEvent redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Font::DESTROY redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Font::PostscriptFontName redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::abort redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tainting redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tainted redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::DebugHook redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::ClearErrorInfo redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::BindClientMessage redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::PassEvent redefined at C:/Perl/site/lib/Tk.pm line 68 (#1 ) Subroutine Tk::Widget::SelectionGet redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::MainWindow::Create redefined at C:/Perl/site/lib/Tk.pm line 68 (# 1) Subroutine Tk::DoWhenIdle redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::CreateGenericHandler redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Widget::ManageGeometry redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::Interp::DESTROY redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::bind redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::pack redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::grid redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::place redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::form redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::itemstyle redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::winfo redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::font redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::wm redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::grab redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::focus redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::event redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::property redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::clipboard redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::bell redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::bindtags redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::destroy redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::raise redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::lower redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::option redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::image redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::selection redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tk_chooseColor redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tk_getOpenFile redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tk_getSaveFile redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tk_messageBox redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tk redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::after redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::button redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::checkbutton redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::label redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::message redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::_menu redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::radiobutton redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::frame redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::toplevel redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::update redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::tkwait redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::configure redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) Subroutine Tk::cget redefined at C:/Perl/site/lib/Tk.pm line 68 (#1) U:\scripts>