From b074a3ea46c23b6ddbca95c22ed41d31ad0588d9 Mon Sep 17 00:00:00 2001
From: Sebastien Dupont <sdupont@mandriva.com>
Date: Thu, 22 Nov 2001 17:47:31 +0000
Subject: about button & GPL license.

---
 perl-install/standalone/drakfont | 67 +++++++++++++++++++++++++++++++---------
 1 file changed, 53 insertions(+), 14 deletions(-)

(limited to 'perl-install')

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),
-- 
cgit v1.2.1