perl: use get_tree instead of get_workspaces

This commit is contained in:
Michael Stapelberg
2010-11-21 21:42:28 +01:00
parent 0f083f6f78
commit 4549effe15
8 changed files with 10 additions and 10 deletions

View File

@ -16,7 +16,7 @@ sub fullscreen_windows {
}
# get the output of this workspace
my $tree = $i3->get_workspaces->recv;
my $tree = $i3->get_tree->recv;
my @outputs = @{$tree->{nodes}};
my $output = first { defined(first { $_->{name} eq $tmp } @{$_->{nodes}}) } @outputs;