my @types =
      (["Alle Bilddateien", ['IMAGES', '.jpg|.gif|.bmp|.jpeg|.png']]);
                 
    $photo_frame->Button(-text => '-', 
                         -command => sub {                       
                                       $photo_file = $top->getOpenFile(
                                                          -filetypes => @types);
                                       $top->update();                                            
                                      }
                         )