View file File name : POP.al Content :# NOTE: Derived from ../blib/lib/Tk/Listbox.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Tk::Listbox; #line 325 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/POP.al)" # POP # --- # Remove last element of the array and return it sub POP { my $class = shift; my $value = ${$class->{OBJECT}}->get('end'); ${$class->{OBJECT}}->delete('end'); return $value; } # end of Tk::Listbox::POP 1;