EekBoek

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

	  - driver = sqlite is nu default.

	* (ebwxshell) Fix preferences save/restore.

	* examples/eekboek.conf bijgewerkt.

	* Meer vertaald.

1.05.07	2009-12-22 14:00

	* (ebwxshell) Preferences voor error/warning/info popup windows.

	* (ebwxshell) Icon.

	* (ebwxshell) Altijd wizard/sel opstarten, ook als er een
          .eekboek.conf is.

1.05.06	2009-12-20 13:18

	* Fix probleem dat ebshell niet langer
          create{database|sampleconfig} kon doen.

lib/EB/Wx/Shell/MainFrame.pm  view on Meta::CPAN

	# On MacOS, we cannot open arbitrary files due to sandboxing
	# constraints.
	if ( $is_macos ) {
	    $self->{menubar}->FindItem(wxID_OPEN) ->Enable(0);
	}

	$prefctl ||=
	  {
	   repwin      => 0,
	   errorpopup  => 1,
	   warnpopup   => 1,
	   infopopup   => 0,
	   histlines   => 200,
	  };

	$self->SetSize(801, 551);
	$self->sizepos_restore("main");

	return $self;
}

sub __set_menubar {

lib/EB/Wx/Shell/MainFrame.pm  view on Meta::CPAN

sub ProcessMessages {
    my ($self, $err) = @_;
    return unless $err;
    my @err = split(/\n+/, $err);
    while ( @err ) {
	$err = shift(@err);
	my @i;
	if ( $err =~ /^\?+(.*)/ ) {
	    $self->ShowText($err, wxRED);
	    next unless $self->{prefs_errorpopup};
	    @i = ($1, _T("Fout"), wxOK|wxICON_ERROR);
	}
	elsif ( $err =~ /^\!+(.*)/ ) {
	    $self->ShowText($err, Wx::Colour->new("magenta"));
	    next unless $self->{prefs_warnpopup};
	    @i = ($1, _T("Waarschuwing"), wxOK|wxICON_WARNING);
	}
	else {
	    $self->ShowText($err, wxGREEN);
	    next unless $self->{prefs_infopopup};
	    @i = ($err, _T("Mededeling"), wxOK|wxICON_INFORMATION);
	}
	my $md = Wx::MessageDialog->new($self, @i, wxDefaultPosition);
	$md->ShowModal;
	$md->Destroy;
    }
}


sub OnTextEnter {

lib/EB/Wx/Shell/PreferencesDialog.pm  view on Meta::CPAN

	$name   = ""                 unless defined $name;

# begin wxGlade: EB::Wx::Shell::PreferencesDialog::new

	$style = wxDEFAULT_DIALOG_STYLE 
		unless defined $style;

	$self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
	$self->{sz_prefs_inner_staticbox} = Wx::StaticBox->new($self, -1, _T("Voorkeuren") );
	$self->{cx_repwin} = Wx::CheckBox->new($self, -1, _T("Rapporten in hetzelfde venster"), wxDefaultPosition, wxDefaultSize, );
	$self->{cx_errorpopup} = Wx::CheckBox->new($self, -1, _T("Popup window voor foutboodschappen"), wxDefaultPosition, wxDefaultSize, );
	$self->{cx_warnpopup} = Wx::CheckBox->new($self, -1, _T("Popup window voor waarschuwingen"), wxDefaultPosition, wxDefaultSize, );
	$self->{cx_infopopup} = Wx::CheckBox->new($self, -1, _T("Popup window voor mededelingen"), wxDefaultPosition, wxDefaultSize, );
	$self->{l_histlines} = Wx::StaticText->new($self, -1, _T("Aantal te bewaren regels invoer historie:"), wxDefaultPosition, wxDefaultSize, );
	$self->{spin_histlines} = Wx::SpinCtrl->new($self, -1, "200", wxDefaultPosition, wxDefaultSize, wxSP_ARROW_KEYS, 0, 99999, 200);
	$self->{b_prefs_cancel} = Wx::Button->new($self, wxID_CANCEL, "");
	$self->{b_prefs_ok} = Wx::Button->new($self, wxID_OK, "");

	$self->__set_properties();
	$self->__do_layout();

	Wx::Event::EVT_BUTTON($self, $self->{b_prefs_cancel}->GetId, \&OnCancel);
	Wx::Event::EVT_BUTTON($self, $self->{b_prefs_ok}->GetId, \&OnAccept);

lib/EB/Wx/Shell/PreferencesDialog.pm  view on Meta::CPAN

}


sub __set_properties {
	my $self = shift;

# begin wxGlade: EB::Wx::Shell::PreferencesDialog::__set_properties

	$self->SetTitle(_T("Voorkeursinstellingen"));
	$self->{cx_errorpopup}->SetValue(1);
	$self->{cx_warnpopup}->SetValue(1);
	$self->{cx_infopopup}->SetValue(1);
	$self->{b_prefs_ok}->SetDefault();

# end wxGlade
}

sub __do_layout {
	my $self = shift;

# begin wxGlade: EB::Wx::Shell::PreferencesDialog::__do_layout

	$self->{sz_prefs_outer} = Wx::BoxSizer->new(wxVERTICAL);
	$self->{sz_prefs_buttons} = Wx::BoxSizer->new(wxHORIZONTAL);
	$self->{sz_prefs_inner}= Wx::StaticBoxSizer->new($self->{sz_prefs_inner_staticbox}, wxVERTICAL);
	$self->{sz_prefs} = Wx::BoxSizer->new(wxVERTICAL);
	$self->{sz_histlines} = Wx::BoxSizer->new(wxHORIZONTAL);
	$self->{sz_prefs}->Add($self->{cx_repwin}, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_prefs}->Add($self->{cx_errorpopup}, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_prefs}->Add($self->{cx_warnpopup}, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_prefs}->Add($self->{cx_infopopup}, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_histlines}->Add($self->{l_histlines}, 0, wxRIGHT|wxALIGN_CENTER_VERTICAL|wxADJUST_MINSIZE, 5);
	$self->{sz_histlines}->Add($self->{spin_histlines}, 0, wxALIGN_CENTER_VERTICAL|wxADJUST_MINSIZE, 0);
	$self->{sz_histlines}->Add(0, 0, 1, wxEXPAND|wxADJUST_MINSIZE, 0);
	$self->{sz_prefs}->Add($self->{sz_histlines}, 1, wxEXPAND, 0);
	$self->{sz_prefs}->Add(1, 5, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_prefs_inner}->Add($self->{sz_prefs}, 1, wxLEFT|wxRIGHT|wxTOP|wxEXPAND, 5);
	$self->{sz_prefs_outer}->Add($self->{sz_prefs_inner}, 1, wxLEFT|wxRIGHT|wxTOP|wxEXPAND, 5);
	$self->{sz_prefs_buttons}->Add(5, 1, 1, wxEXPAND|wxADJUST_MINSIZE, 0);
	$self->{sz_prefs_buttons}->Add($self->{b_prefs_cancel}, 0, wxADJUST_MINSIZE, 0);
	$self->{sz_prefs_buttons}->Add($self->{b_prefs_ok}, 0, wxLEFT|wxADJUST_MINSIZE, 5);