diff options
| -rwxr-xr-x | perl-install/standalone/drakfont | 67 |
1 files changed, 53 insertions, 14 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 03de1cc96..564b2de20 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -572,6 +572,8 @@ sub interactive_mode { ), 1, new Gtk::VBox(0,0), 1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), + gtksignal_connect(new Gtk::Button(_("About")), clicked => sub { + ${$central_widget}->destroy(); about() }), gtksignal_connect(new Gtk::Button(_(" Help ")), clicked => sub { ${$central_widget}->destroy(); help() }), gtksignal_connect(new Gtk::Button(_("Close")), clicked => sub { Gtk->main_quit() }), @@ -611,6 +613,57 @@ sub license { $font_box->show_all(); } + +sub about { + my $text = new Gtk::Text(undef, undef); + my $about_box; + gtkpack($font_box, + $about_box = gtkpack_(new Gtk::VBox(0,10), + 1, gtkpack_(new Gtk::HBox(0,0), + 1, gtktext_insert(gtkset_editable($text, 1), " + Copyright (C) 2001 by MandrakeSoft (sdupont\@mandrakesoft.com) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + + Thanks: + - pfm2afm: + by Ken Borgendale: + Convert a Windows .pfm file to a .afm (Adobe Font Metrics) + - type1inst: + by James Macnicol: + type1inst generates files fonts.dir fonts.scale & Fontmap. + - ttf2pt1: + by Andrew Weeks, Frank Siegert, Thomas Henlich, Sergey Babkin + Convert ttf font files to afm and pfb fonts + + +"), + 0, new Gtk::VScrollbar($text->vadj), + ), + 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread), + gtksignal_connect(new Gtk::Button(_("OK")), clicked => + sub { ${$central_widget}->destroy(); create_fontsel() }), + ), + ) + ); + $central_widget = \$about_box; + $font_box->show_all(); +} + + + sub help { my $text = new Gtk::Text(undef, undef); my $help_box; @@ -661,20 +714,6 @@ Visual Interface: check-button. (by default all check) - Printer Application Fonts Support... -________________________ ABOUT ____________________________ - - - USING: - - pfm2afm: - by Ken Borgendale: - Convert a Windows .pfm file to a .afm (Adobe Font Metrics) - - type1inst: - by James Macnicol: - type1inst generates files fonts.dir fonts.scale & Fontmap. - - ttf2pt1: - by Andrew Weeks, Frank Siegert, Thomas Henlich, Sergey Babkin - Convert ttf font files to afm and pfb fonts - "), 0, new Gtk::VScrollbar($text->vadj), |