Re: newbie question

From: <nega exmachinae net>
To: Carl Hartshorn <carl mips com>
Cc: gtk-perl-list gnome org
Subject: Re: newbie question
Date: Mon, 11 Aug 2003 17:08:34 -0400

Oops...forgot to reply to the list too, originally...

Carl Hartshorn writes:

I'm assuming you're talking about Gtk-Perl-0.700[89]. This version
uses gtk-1.2, and the associated Gnome. A command like:

deperdo Gtk-Perl-0.7008 # perl Makefile.PL --without-gtkhtml

--without-gtkxmhtml --without-gnome --without-gnomeprint --without-applets


should be all that you need to to build a Gnome-free makefile.


That's what I thought, too but I get:
lots of:
cc: xs/GtkRadioMenuItem.o: No such file or directory
cc: xs/GtkEditable.o: No such file or directory
cc: xs/GtkInvisible.o: No such file or directory
cc: xs/GtkWidget.o: No such file or directory


Oops! Yeah, Gtk-Perl-0.7008 is wonky. I use the attached patch to fix
this, and I think Gtk-Perl-0.7009 fixes this.

 > I do have a fully functional gnome2.2 installation but it appears to be 
 > unrecognized. E.G. gnome-config no longers exists.
 > 
 > Is there a way to build without gnome1?
 > 
 > I see a newer version called gtk2-perl but I dont know if that is

complatible

 > with gtk-perl (or gnome2.2 for that matter).

gtk2-perl is where all the action is now. It uses gtk-2.2, and has
basic support for Gnome2. Support might be more robust, but I'm
anti-Gnome, so I dont pay much attention. You'll want to get the
latest packages from the SF project page (dated 2003-08-07):

Is this downward compatible with gtl-perl?
TIA


Nope. The rare script might run with only changing the "use Gtk;"
line...

diff -ur Gtk-Perl-0.7008/Applet/Makefile.PL Gtk-Perl-0.7008-works/Applet/Makefile.PL
--- Gtk-Perl-0.7008/Applet/Makefile.PL  Sat Mar 24 16:44:08 2001
+++ Gtk-Perl-0.7008-works/Applet/Makefile.PL    Tue Jan 21 13:06:47 2003
@@ -102,7 +102,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/Bonobo/Makefile.PL Gtk-Perl-0.7008-works/Bonobo/Makefile.PL
--- Gtk-Perl-0.7008/Bonobo/Makefile.PL  Wed May 30 14:39:05 2001
+++ Gtk-Perl-0.7008-works/Bonobo/Makefile.PL    Tue Jan 21 13:06:47 2003
@@ -96,7 +96,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/GdkImlib/Makefile.PL Gtk-Perl-0.7008-works/GdkImlib/Makefile.PL
--- Gtk-Perl-0.7008/GdkImlib/Makefile.PL        Fri Mar 23 14:57:07 2001
+++ Gtk-Perl-0.7008-works/GdkImlib/Makefile.PL  Tue Jan 21 13:06:47 2003
@@ -43,6 +43,6 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }

diff -ur Gtk-Perl-0.7008/GdkPixbuf/Makefile.PL Gtk-Perl-0.7008-works/GdkPixbuf/Makefile.PL
--- Gtk-Perl-0.7008/GdkPixbuf/Makefile.PL       Fri Mar 23 14:57:07 2001
+++ Gtk-Perl-0.7008-works/GdkPixbuf/Makefile.PL Tue Jan 21 13:06:48 2003
@@ -89,6 +89,6 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }

diff -ur Gtk-Perl-0.7008/Glade/Makefile.PL Gtk-Perl-0.7008-works/Glade/Makefile.PL
--- Gtk-Perl-0.7008/Glade/Makefile.PL   Fri Mar 23 14:57:07 2001
+++ Gtk-Perl-0.7008-works/Glade/Makefile.PL     Tue Jan 21 13:06:48 2003
@@ -108,7 +108,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/Gnome/Makefile.PL Gtk-Perl-0.7008-works/Gnome/Makefile.PL
--- Gtk-Perl-0.7008/Gnome/Makefile.PL   Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/Gnome/Makefile.PL     Tue Jan 21 13:06:48 2003
@@ -125,7 +125,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/GnomePrint/Makefile.PL Gtk-Perl-0.7008-works/GnomePrint/Makefile.PL
--- Gtk-Perl-0.7008/GnomePrint/Makefile.PL      Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/GnomePrint/Makefile.PL        Tue Jan 21 13:06:48 2003
@@ -112,7 +112,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/Gtk/Makefile.PL Gtk-Perl-0.7008-works/Gtk/Makefile.PL
--- Gtk-Perl-0.7008/Gtk/Makefile.PL     Sat May 26 17:08:38 2001
+++ Gtk-Perl-0.7008-works/Gtk/Makefile.PL       Tue Jan 21 13:06:48 2003
@@ -190,7 +190,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/GtkGLArea/Makefile.PL Gtk-Perl-0.7008-works/GtkGLArea/Makefile.PL
--- Gtk-Perl-0.7008/GtkGLArea/Makefile.PL       Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/GtkGLArea/Makefile.PL Tue Jan 21 13:06:48 2003
@@ -104,7 +104,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/GtkHTML/Makefile.PL Gtk-Perl-0.7008-works/GtkHTML/Makefile.PL
--- Gtk-Perl-0.7008/GtkHTML/Makefile.PL Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/GtkHTML/Makefile.PL   Tue Jan 21 13:06:48 2003
@@ -107,7 +107,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/GtkHTML/pkg.defs Gtk-Perl-0.7008-works/GtkHTML/pkg.defs
--- Gtk-Perl-0.7008/GtkHTML/pkg.defs    Sun Jan 21 11:21:06 2001
+++ Gtk-Perl-0.7008-works/GtkHTML/pkg.defs      Tue Jan 21 12:52:19 2003
@@ -61,7 +61,7 @@
   (remove-link GTK_HTML_COMMAND_REMOVE_LINK)
   (delete GTK_HTML_COMMAND_DELETE)
   (delete-back GTK_HTML_COMMAND_DELETE_BACK)
-  (set-mark GTK_HTML_COMMAND_SET_MARK)
+  (selection-mode GTK_HTML_COMMAND_SELECTION_MODE)
   (disable-selection GTK_HTML_COMMAND_DISABLE_SELECTION)
   (bold-on GTK_HTML_COMMAND_BOLD_ON)
   (bold-off GTK_HTML_COMMAND_BOLD_OFF)

diff -ur Gtk-Perl-0.7008/GtkHTML/xs/GtkHTML.xs Gtk-Perl-0.7008-works/GtkHTML/xs/GtkHTML.xs
--- Gtk-Perl-0.7008/GtkHTML/xs/GtkHTML.xs       Sun Jun 17 17:35:46 2001
+++ Gtk-Perl-0.7008-works/GtkHTML/xs/GtkHTML.xs Tue Jan 21 14:14:27 2003
@@ -122,9 +122,10 @@
        RETVAL
 
 void
-gtk_html_set_iframe_parent (html, parent)
+gtk_html_set_iframe_parent (html, parent, frame)
        Gtk::HTML       html
        Gtk::Widget     parent
+        char *         frame
 
 gulong
 gtk_html_begin (html)
@@ -167,8 +168,9 @@
        bool    allow
 
 int
-gtk_html_request_paste (html, type, time)
+gtk_html_request_paste (html, selection, type, time)
        Gtk::HTML       html
+        int    selection
        int     type
        int     time
 
@@ -178,7 +180,7 @@
        Gtk::HTMLParagraphStyle style
 
 void
-gtk_html_indent (html, delta)
+gtk_html_set_indent (html, delta)
        Gtk::HTML       html
        int     delta
 
diff -ur Gtk-Perl-0.7008/GtkXmHTML/Makefile.PL Gtk-Perl-0.7008-works/GtkXmHTML/Makefile.PL
--- Gtk-Perl-0.7008/GtkXmHTML/Makefile.PL       Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/GtkXmHTML/Makefile.PL Tue Jan 21 13:06:48 2003
@@ -95,7 +95,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
diff -ur Gtk-Perl-0.7008/Mozilla/Makefile.PL Gtk-Perl-0.7008-works/Mozilla/Makefile.PL
--- Gtk-Perl-0.7008/Mozilla/Makefile.PL Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/Mozilla/Makefile.PL   Tue Jan 21 13:06:48 2003
@@ -94,7 +94,7 @@
 sub MY::c_o {
        package MY; # so that "SUPER" works right
        my $inherited = shift->SUPER::c_o(@_);
-       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/m;
+       $inherited =~ s/CCCMD.*$/$&\n\t\ if test -f `basename \$*.o` -a "`basename \$*.o`" != "\$*.o"; then 
mv `basename \$*.o` \$*.o; fi/mg;
     $inherited;
 }
 
--- Gtk-Perl-0.7008/Makefile.PL Fri Mar 23 14:57:08 2001
+++ Gtk-Perl-0.7008-works/Makefile.PL   Tue Jan 21 13:06:48 2003
@@ -24,7 +24,7 @@
        gdkpixbuf => {order => 2, dir => 'GdkPixbuf', depends => [qw(gtk)],
                check => sub {cconfig('gdk-pixbuf-config --version', '0\.(8|9|1\d)\.?')}},
        gtkhtml => {order => 2, dir => 'GtkHTML', depends => [qw(gtk)],
-               check => sub {cconfig('gnome-config --modversion gtkhtml', 'gtkhtml-0\.[89]')}},
+               check => sub {cconfig('gnome-config --modversion gtkhtml', 'gtkhtml-1\.0')}},
        gtkxmhtml => {order => 2, dir => 'GtkXmHTML', depends => [qw(gtk)],
                check => sub {cconfig('gnome-config --libs gtkxmhtml', '-lgtkxmhtml')}},
        gnome => {order => 3, dir => 'Gnome', depends => [qw(gdkimlib)],

Follow-Ups:
- Re: newbie question
  - From: nega

[Date Prev][Date Next] [Thread Prev][Thread Next] [Thread Index] [Date Index] [Author Index]