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
[EMAIL PROTECTED]
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
> [EMAIL PROTECTED]
>
>
>
> _______________________________________________
> gtk-list mailing list
> [EMAIL PROTECTED]
> http://mail.gnome.org/mailman/listinfo/gtk-list
>
_______________________________________________
gtk-list mailing list
[EMAIL PROTECTED]
http://mail.gnome.org/mailman/listinfo/gtk-list
