view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN

# ChangeLog for Getopt::Janus dist   # Time-stamp: "2003-06-09 02:06:58 ADT"

2003-06-09  Sean M. Burke <sburke@cpan.org>
        * Release 1.03 -- moderate changes
	* No changes to the basic API, but some minor changes to internal
	methods relating to the Review Output screen.
	* Change in appearance of Review Output (Tk) screen, and added
	option for copying filespec to clipboard.
	(The cosmetic change is that the actions are on a "Menubutton"
	widget now, and take effect upon clicking, instead of the old
	system, which was Checkboxes that controlled what actions happened
	when you hit "OK.")
	
2003-06-07  Sean M. Burke <sburke@cpan.org>
        * Release 1.02 -- bugfix
	* Better MacOS X support, thanks to help from Elaine Ashton and
	Anno Siegel
	* Fixed a minor bug in prep_option_new_file, relevent only in

lib/Getopt/Janus/Tk.pm  view on Meta::CPAN

      -label => "Run this file",
      -command =>  sub { $self->open_file($f) },
    );

    defined $f and $self->can_open_directories and $mb->command(
      -label => "Open this directory",
      -command =>  sub { $self->open_directory($d) },
    );
    defined $f and $self->can_open_files and $mb->command(
      -label => "Copy this filespec", -command =>  sub {
        $mainwindow->clipboardClear;
        $mainwindow->clipboardAppend( '--', $f );
      },
    );
    $mb->pack;
  }

  # Just a divider:
  $pane->Frame(qw/ -relief ridge -bd 1 -height 3 /)->pack('-fill' => 'x' );

  # A frame for the button(s) at the bottom:
  my $button_bundle_frame = $pane->Frame();