view release on metacpan or  search on metacpan

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

        my $checkButton6 = $self->addCheckButton(
            $grid, 'Sessions share a single \'main\' window', undef, FALSE,
            7, 12, 5, 6);
        $checkButton6->set_active($axmud::CLIENT->shareMainWinFlag);

        my $button2 = $self->addButton(
            $grid,
            'Toggle setting for restart',
            'Changes to this setting are applied when ' . $axmud::SCRIPT . ' restarts',
            undef,
            7, 10, 6, 7);
        # ->signal connect appears below

        my $entry3 = $self->addEntry($grid, undef, FALSE,
            10, 12, 6, 7,
            12, 12);
        # (The entry remains empty when the IV value is 'default')
        if ($axmud::CLIENT->restartShareMainWinMode eq 'on') {
            $entry3->set_text('share');
        } elsif ($axmud::CLIENT->restartShareMainWinMode eq 'off') {
            $entry3->set_text('don\'t share');
        }

        # ->signal_connect from above
        $button2->signal_connect('clicked' => sub {

            $self->session->pseudoCmd('toggleshare', $self->pseudoCmdMode);
            if ($axmud::CLIENT->restartShareMainWinMode eq 'default') {
                $entry3->set_text('');
            } elsif ($axmud::CLIENT->restartShareMainWinMode eq 'on') {
                $entry3->set_text('share');
            } else {
                $entry3->set_text('don\'t share');
            }
        });

        my $checkButton7 = $self->addCheckButton(
            $grid, 'Confirm before click-closing \'main\' window', undef, TRUE,
            7, 12, 7, 8);
        $checkButton7->set_active($axmud::CLIENT->confirmCloseMainWinFlag);
        $checkButton7->signal_connect('toggled' => sub {

            $self->session->pseudoCmd('setsession -m', $self->pseudoCmdMode);
            $checkButton7->set_active($axmud::CLIENT->confirmCloseMainWinFlag);
        });

        my $checkButton8 = $self->addCheckButton(
            $grid, 'Confirm before click-closing tab', undef, TRUE,
            7, 12, 8, 9);
        $checkButton8->set_active($axmud::CLIENT->confirmCloseTabFlag);
        $checkButton8->signal_connect('toggled' => sub {

            $self->session->pseudoCmd('setsession -t', $self->pseudoCmdMode);
            $checkButton8->set_active($axmud::CLIENT->confirmCloseTabFlag);
        });

        my $checkButton9 = $self->addCheckButton(
            $grid, 'Confirm before closing from menu', undef, TRUE,
            7, 12, 9, 10);
        $checkButton9->set_active($axmud::CLIENT->confirmCloseMenuFlag);
        $checkButton9->signal_connect('toggled' => sub {

            $self->session->pseudoCmd('setsession -e', $self->pseudoCmdMode);
            $checkButton9->set_active($axmud::CLIENT->confirmCloseMenuFlag);
        });

        my $checkButton10 = $self->addCheckButton(
            $grid, 'Confirm before closing from toolbar', undef, TRUE,
            7, 12, 10, 11);
        $checkButton10->set_active($axmud::CLIENT->confirmCloseToolButtonFlag);
        $checkButton10->signal_connect('toggled' => sub {

            $self->session->pseudoCmd('setsession -r', $self->pseudoCmdMode);
            $checkButton10->set_active($axmud::CLIENT->confirmCloseToolButtonFlag);
        });

        # Tab complete
        return 1;
    }

    sub settings2Tab {

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

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

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

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

        # Tab setup
        my $grid = $self->addTab(
            $innerNotebook,
            'Page _2',
            ['Favourite world list', 'Auto-connect world list'],
        );

        # Favourite world list
        $self->addLabel($grid, '<b>Favourite world list</b>',
            0, 12, 0, 1);
        $self->addLabel(
            $grid, '<i>Worlds displayed at the top of the list in the Connections window</i>',
            1, 12, 1, 2);

        my $textView = $self->addTextView($grid, undef, TRUE,
            1, 12, 2, 5);
        my $buffer = $textView->get_buffer();
        $buffer->set_text(join("\n", $axmud::CLIENT->favouriteWorldList));

        my $button = $self->addButton(
            $grid, 'Set list', 'Set the list of favourite worlds', undef,
            1, 4, 5, 6);
        $button->signal_connect('clicked' => sub {

            my (