Re: no WM decorations with fvwm2

[Dov Grobgeld <dov grobgeld weizmann ac il>]

The following almost works for me under fvwm2:

    if (!$do_windowed) {
        $mw->realize;
        my(@geom) = $mw->window->get_geometry();
        $mw->window->set_override_redirect(1);
        $mw->window->move($win_pos_x-$geom[0], $win_pos_y-$geom[1]);
    }

Unfortunately it still pops up at (0,0) on the screen. I.e. the move
command doesn't work.

Regards,
Dov

On Sun, Apr 24, 2005 at 03:58:46PM -0400, zentara wrote:
> Hi,
> Has anyone figured out how to remove decorations
> on fvwm2?  Is fvwm2 just not cooperating?
> This script dosn't work for me.
>
> #!/usr/bin/perl
> use warnings;
> use strict;
> use Glib qw/TRUE FALSE/;
> use Gtk2 '-init';
>
> # dosn't seem to work on fvwm2
>
> my $window = Gtk2::Window->new();
> $window->set_decorated(0);
> Gtk2::Window::set_decorated($window, 0);
> print $window->get_decorated(),"\n";
>
> $window ->signal_connect( 'destroy' => \&delete_event );
> $window ->signal_connect( 'delete-event' => \&delete_event );
> $window->set_border_width(10);
> $window->set_size_request(300,200);
>
> my $vbox = Gtk2::VBox->new( FALSE, 6 );
> $window->add($vbox);
> $vbox->set_border_width(2);
>
> my $hbox= Gtk2::HBox->new( FALSE, 6 );
> $vbox->pack_end($hbox,FALSE,FALSE,0);
> $hbox->set_border_width(2);
>
> my $button = Gtk2::Button->new_from_stock('gtk-quit');
> $hbox->pack_end( $button, FALSE, FALSE, 0 );
> $button->signal_connect( clicked => \&delete_event );
>
> $window->set_position('center');
> $window->show_all();
> Gtk2->main;
> return 0;
> #####################################
> sub delete_event {
> Gtk2->main_quit;
> return FALSE;
> }  
> __END__
>
>
>
> -- 
> I'm not really a human, but I play one on earth.
> http://zentara.net/japh.html
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list gnome org
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list