view release on metacpan or  search on metacpan

eg/mp3tag.PL  view on Meta::CPAN

    }
    $tag->{_dialog_finished} = 1;
    $self->dispose();
}
#-----------------------------------------------------------------#
sub dlg_cancel {
    my($self) = @_;
    $self->dispose();
}
#-----------------------------------------------------------------#
sub r ($$$$) {Rect->new(@_)}
#-----------------------------------------------------------------#
sub set_dialog {
    my($ref, $file, $tag) = @_;
    $tag = $ref->{TAG};
    SetDialogFont(geneva());
    MacDialog->new(
      r(50, 50, 460, 300),
      'Set MP3 Values', 1, movableDBoxProc(), 0,

      [kButtonDialogItem,     r(220, 220, 300, 240), 'Cancel'           ],