Re: Socket/Plug example

[Corey Thornburg <coreyt coreyt com>]

Ok, problem solved.

rough examples <in perl>
sockettest.pl
-----------------------------------------
#!/usr/bin/perl -w

use Gtk;
init Gtk;

my $w = new Gtk::Window;
$w->set_title("Test Socket");
$w->signal_connect("delete_event",sub{main_quit Gtk});
$s = new Gtk::Socket;
$w->add($s);

$s->realize;
$s->show;
$w->show;
$wid = $s->window->XWINDOW;
$cmd = "./plugtest.pl $wid";
print "$cmd\n";
$retval=fork();
if($retval == 0){
        system($cmd);
}

print "$cmd done\n";
----------------------------------

plugtest.pl
-----------------------------------
#!/usr/bin/perl -w
$wid = $ARGV[0];
use Gtk;
init Gtk;



$l = new Gtk::Label "Test Plug";
#$p = new Gtk::Plug $s->window->XWINDOW;
$p = new Gtk::Plug $wid;
$p->add($l);
$l->show;
$p->show;



main Gtk;


---------------------------------------------------
Corey Thornburg
coreyt coreyt com


On Thu, 2 Nov 2000, Corey Thornburg wrote:

> Does anyone have a simple Socket/plug example that you can post.
> 
> I have been unable to figure it out from the header files, and have yet to
> find an example.
> 
> Corey Thornburg
> coreyt coreyt com
> 
> 
> 
> _______________________________________________
> gtk-list mailing list
> gtk-list gnome org
> http://mail.gnome.org/mailman/listinfo/gtk-list
>