ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/perl/tabbed
(Generate patch)

Comparing rxvt-unicode/src/perl/tabbed (file contents):
Revision 1.15 by root, Mon Feb 6 05:40:16 2006 UTC vs.
Revision 1.17 by root, Sat Feb 11 02:01:16 2006 UTC

92 92
93 my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS"); 93 my $wm_normal_hints = $self->XInternAtom ("WM_NORMAL_HINTS");
94 94
95 my %our_props = map +($_ => undef), $self->XListProperties ($self->parent); 95 my %our_props = map +($_ => undef), $self->XListProperties ($self->parent);
96 96
97 delete $our_props{$self->XInternAtom ($_)} for qw(WM_STATE WM_ICON_SIZE);
98
97 for my $atom ($tab->XListProperties ($tab->parent)) { 99 for my $atom ($tab->XListProperties ($tab->parent)) {
98 my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom); 100 my ($type, $format, $items) = $self->XGetWindowProperty ($tab->parent, $atom);
99 101
100 delete $our_props{$atom}; 102 delete $our_props{$atom};
101 103

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines