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
	"Reviewing Output of..." screen when using filenames other than

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

     '-sticky'     => 'nsew',
     #'-gridded'    => 'y'
    );
    $pane->pack( '-fill' => 'both',  '-expand' => 1 );
  }
  
  foreach my $i (@$items) {
    my($f,$d) = @$i;
    next unless defined $f or defined $d;

    require Tk::Menubutton;
    my $mb = $pane->Menubutton(
       qw/ -relief raised -takefocus 1 -indicatoron 1 -direction right/,
       -text => $f,
    );

    $mb->configure( -menu => $mb->menu(qw/-tearoff 0/) );

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