view release on metacpan or  search on metacpan

lib/Games/Axmud/PrefWin.pm  view on Meta::CPAN

            ) {
                $self->session->pseudoCmd('togglemainwindow -u',  $self->pseudoCmdMode);
            }
        });

        my $checkButton8 = $self->addCheckButton(
            $grid, 'Show tooltips in a session\'s default tab', undef, TRUE,
            1, 12, 8, 9);
        $checkButton8->set_active($axmud::CLIENT->mainWinTooltipFlag);
        $checkButton8->signal_connect('toggled' => sub {

            if (
                ($checkButton8->get_active && ! $axmud::CLIENT->mainWinTooltipFlag)
                || (! $checkButton8->get_active && $axmud::CLIENT->mainWinTooltipFlag)
            ) {
                $self->session->pseudoCmd('togglemainwindow -t',  $self->pseudoCmdMode);
            }
        });

        my $checkButton9 = $self->addCheckButton(
            $grid, 'Show toolbar labels in the \'main\'/automapper windows', undef, TRUE,
            1, 12, 9, 10);
        $checkButton9->set_active($axmud::CLIENT->toolbarLabelFlag);
        $checkButton9->signal_connect('toggled' => sub {

            if (
                ($checkButton9->get_active && ! $axmud::CLIENT->toolbarLabelFlag)
                || (! $checkButton9->get_active && $axmud::CLIENT->toolbarLabelFlag)
            ) {
                $self->session->pseudoCmd('togglelabel',  $self->pseudoCmdMode);
            }
        });

        my $checkButton10 = $self->addCheckButton(
            $grid,
            'Show irreversible icon in \'edit\' windows for actions that take place immediately',
            undef,
            TRUE,
            1, 10, 10, 11);
        $checkButton10->set_active($axmud::CLIENT->irreversibleIconFlag);
        $checkButton10->signal_connect('toggled' => sub {

            if (
                ($checkButton10->get_active && ! $axmud::CLIENT->irreversibleIconFlag)
                || (! $checkButton10->get_active && $axmud::CLIENT->irreversibleIconFlag)
            ) {
                $self->session->pseudoCmd('toggleirreversible',  $self->pseudoCmdMode);
            }
        });

        my $button = $self->addButton($grid,
            'Test icons', 'Test irreversible icons', undef,
            10, 12, 10, 11);
        $button->signal_connect('clicked' => sub {

            $self->session->pseudoCmd('toggleirreversible -t', $self->pseudoCmdMode);
        });

        my $checkButton11 = $self->addCheckButton(
            $grid,
            'Show popup windows during long operations (loading large files, drawing large maps'
            . ' etc)',
            undef,
            TRUE,
            1, 12, 11, 12);
        $checkButton11->set_active($axmud::CLIENT->allowBusyWinFlag);
        $checkButton11->signal_connect('toggled' => sub {

            if (
                ($checkButton11->get_active && ! $axmud::CLIENT->allowBusyWinFlag)
                || (! $checkButton11->get_active && $axmud::CLIENT->allowBusyWinFlag)
            ) {
                $self->session->pseudoCmd('togglepopup',  $self->pseudoCmdMode);
            }
        });

        my $checkButton12 = $self->addCheckButton(
            $grid, 'Collect connection histories for each world', undef, TRUE,
            1, 12, 12, 13);
        $checkButton12->set_active($axmud::CLIENT->connectHistoryFlag);
        $checkButton12->signal_connect('toggled' => sub {

            if (
                ($checkButton12->get_active && ! $axmud::CLIENT->connectHistoryFlag)
                || (! $checkButton12->get_active && $axmud::CLIENT->connectHistoryFlag)
            ) {
                $self->session->pseudoCmd('togglehistory',  $self->pseudoCmdMode);
            }
        });

        # Tab complete
        return 1;
    }

    sub settings13Tab {

        # Settings13 tab
        #
        # Expected arguments
        #   $innerNotebook  - The Gtk3::Notebook object inside $self->notebook
        #
        # Return values
        #   'undef' on improper arguments
        #   1 otherwise

        my ($self, $innerNotebook, $check) = @_;

        # Local variables
        my (@columnList, @columnList2);

        # Check for improper arguments
        if (! defined $innerNotebook || defined $check) {

            return $axmud::CLIENT->writeImproper($self->_objClass . '->settings13Tab', @_);
        }

        # Tab setup
        my $grid = $self->addTab(
            $innerNotebook,
            'Page 13',
            ['Custom months/days'],
        );

        # Custom months/days
        $self->addLabel($grid, '<b>Custom months/days</b>',
            0, 12, 0, 1);
        $self->addLabel($grid,
            '<i>List of months of the year and days of the week</i>',
            1, 12, 1, 2);

        # Add simple lists
        @columnList = (
            'Month', 'text',