Okay, I figured out where my problem is. here it is.
push @{$EnvsToRun->{data}}, [$environment, $duration, $config];
When I try to add it to a list with 3 columns, I get the array ref, but if I take the square brackets off, I get three separate entries, with the variable argument in the first column of each entry with they other two as 0s. If I use the brackets, I get the array ref, and then the other two columns are fine. I've tried a few combos of parantheses and brackets, but the brackets seem to be the only things that matter.
| [reply]
[d/l] |
You're confusing me. Once again, you're showing me half of your code (the assignment part this time), and not the part where you are getting the values out. This is new code, and I'm a little frustrated that you say you've found the problem, and it's in code you never showed us. Are you trying to say that $environment is an array ref, but otherwise your code works fine? That's what my previous reply was attempting to fix. I didn't mean for you to take away all brackets everywhere, especially considering I've never seen this line of code before. Would you care to post a more complete code sample?
| [reply] |
Sorry, the whole program is 1000+ lines. I'll try to be more clear. I have two tree views, and I want a person to be able to select an element from one, press a button, and have that element to be added the second treeview on the right. Below are the declarations for both lists, The first is $Envs, the second is $EnvsToRun. Also, where I fill the first list, get the element that I want to put into the second list, and where I add the element to the second list. $duration and $config are variables that I am not having problems with.
$Envs = Gtk2::Ex::Simple::List->new_from_treeview ( $abaNewWindow->get
+_widget('Envs'), 'Environments' => 'text');
$EnvsToRun = Gtk2::Ex::Simple::List->new_from_treeview ( $abaNewWindow
+->get_widget('EnvsToRun'), 'Environments' => 'text', 'Duration' => 'd
+ouble', 'Config' => 'int');
open(ENVIRONMENTS, "environments.txt");
while(<ENVIRONMENTS>){
my $line = $_;
chomp($line);
push @{$Envs->{data}}, $line;
}
close(ENVIRONMENTS);
$environment = shift @{$Envs->{data}};
print $environment;
push @{$EnvsToRun->{data}}, [$environment, $duration, $config];
| [reply]
[d/l] |