#!/usr/bin/perl -w
use strict;
use Glib;
use Gtk2;

print "\n";
printf "Glib %s \n", $Glib::VERSION;
printf "Gtk2 %s \n", $Gtk2::VERSION;
print "\n";

# The version info stuff appeared in 1.040.
print "Glib built for ".join(".", Glib->GET_VERSION_INFO).", running with "
    .join(".", &Glib::major_version, &Glib::minor_version, &Glib::micro_version)
    ."\n"
  if $Glib::VERSION >= 1.040;
print "Gtk2 built for ".join(".", Gtk2->GET_VERSION_INFO).", running with "
    .join(".", &Gtk2::major_version, &Gtk2::minor_version, &Gtk2::micro_version)
    ."\n"
  if $Gtk2::VERSION >= 1.040;
print "\n";