Config-Model-TkUI

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    'Text::Wrap' => '0',
    'Tk' => '0',
    'Tk::Adjuster' => '0',
    'Tk::Balloon' => '0',
    'Tk::BrowseEntry' => '0',
    'Tk::Dialog' => '0',
    'Tk::DialogBox' => '0',
    'Tk::DoubleClick' => '0',
    'Tk::FontDialog' => '0',
    'Tk::Frame' => '0',
    'Tk::Menubutton' => '0',
    'Tk::NoteBook' => '0',
    'Tk::PNG' => '0',
    'Tk::Pane' => '0',
    'Tk::Photo' => '0',
    'Tk::Pod' => '0',
    'Tk::Pod::Text' => '0',
    'Tk::ROText' => '0',
    'Tk::Toplevel' => '0',
    'Tk::Tree' => '0',
    'Try::Tiny' => '0',

META.json  view on Meta::CPAN

            "Text::Wrap" : "0",
            "Tk" : "0",
            "Tk::Adjuster" : "0",
            "Tk::Balloon" : "0",
            "Tk::BrowseEntry" : "0",
            "Tk::Dialog" : "0",
            "Tk::DialogBox" : "0",
            "Tk::DoubleClick" : "0",
            "Tk::FontDialog" : "0",
            "Tk::Frame" : "0",
            "Tk::Menubutton" : "0",
            "Tk::NoteBook" : "0",
            "Tk::PNG" : "0",
            "Tk::Pane" : "0",
            "Tk::Photo" : "0",
            "Tk::Pod" : "0",
            "Tk::Pod::Text" : "0",
            "Tk::ROText" : "0",
            "Tk::Toplevel" : "0",
            "Tk::Tree" : "0",
            "Try::Tiny" : "0",

META.yml  view on Meta::CPAN

  Text::Wrap: '0'
  Tk: '0'
  Tk::Adjuster: '0'
  Tk::Balloon: '0'
  Tk::BrowseEntry: '0'
  Tk::Dialog: '0'
  Tk::DialogBox: '0'
  Tk::DoubleClick: '0'
  Tk::FontDialog: '0'
  Tk::Frame: '0'
  Tk::Menubutton: '0'
  Tk::NoteBook: '0'
  Tk::PNG: '0'
  Tk::Pane: '0'
  Tk::Photo: '0'
  Tk::Pod: '0'
  Tk::Pod::Text: '0'
  Tk::ROText: '0'
  Tk::Toplevel: '0'
  Tk::Tree: '0'
  Try::Tiny: '0'

lib/Config/Model/TkUI.pm  view on Meta::CPAN

    # check unknown parameters
    croak "Unknown parameter ", join( ' ', keys %$args ) if %$args;

    # initialize internal attributes
    $cw->{location} = '';
    $cw->{current_mode} = 'view';

    $cw->setup_scanner();

    # create top menu
    require Tk::Menubutton;
    my $menubar = $cw->Menu;
    $cw->configure( -menu => $menubar );
    $cw->{my_menu} = $menubar;

    my $file_items = [
        [ qw/command wizard -command/, sub { $cw->wizard } ],
        [ command => 'redraw tree', -command => sub { $cw->reload } ],
        [ command => 'reload from file', -command => sub { $cw->ask_reset; } ],
        [ command => 'check for errors',     -command => sub { $cw->check(1) } ],
        [ command => 'check for warnings',   -command => sub { $cw->check( 1, 1 ) } ],
        [ command => 'show unsaved changes', -command => sub { $cw->show_changes; } ],