Select Code to Download

Tk::Error: wrong # args: should be ".menu.main.insert delete first ?la
+st?" at D:/Perl/site/lib/Tk.pm line 247.
 Tk callback for .menu.main.insert
 (menu invoke)

$Btn1->parentMenu->delete($Btn1->parentMenu->index($Btn1->[1]));
# or $Btn1->[0]->delete($Btn1->[0]->index($Btn1->[1]));
# or $$Btn1[0]->delete($$Btn1[0]->index($$Btn1[1]));
# or $insert->menu->delete($insert->menu->index($$Btn1[1]));