sub wb { my $val = $textIN->getSelected; 
            $listbox->insert(0,$val);
       }