Commits

Anonymous committed 3ac58ec

Expands the root by default, to work around bug in windows

Comments (0)

Files changed (1)

lib/Padre/Plugin/HG/StatusTree.pm

 package Padre::Plugin::HG::StatusTree;
 =pod
 
-=head1 NAME
+=head1  NAME
 
 Padre::Plugin::HG::StatusTree
 Displays the status of the current hg project in a tree format
 =head1 SYNOPSIS
 
  my $object = Padre::Plugin::HG::StatusTree->new($self,$project_root);
-
+ 
 =head1 DESCRIPTION
 
 This module diplays a tree in the left panel of the ide that shows
                         Wx::ArtProvider::GetBitmap( 'wxART_FOLDER', 'wxART_OTHER_C', [ 16, 16 ] ),
                 ),
                 C => $images->Add(
-                        Wx::ArtProvider::GetBitmap( 'wxART_TICK_MARK', 'wxART_OTHER_C', [ 16, 16 ] ),
+                        Wx::ArtProvider::GetBitmap( 'wxART_TICK_MARK', 'wxART_BUTTON_C', [ 16, 16 ] ),
                 ),
                 '?' => $images->Add(
                         Wx::ArtProvider::GetBitmap( 'wxART_MISSING_IMAGE', 'wxART_OTHER_C', [ 16, 16 ] ),
   %dirTree = ();
   $dirTree{root} = ['root', 'root', 'dir'];
   chdir ($project_name);
-  print "projectName $project_name\n";
+  
   my @hgStatus = `hg status --all`;
   chomp (@hgStatus);
   parseHgStatus(@hgStatus);
        getWxNode($treectrl, $dirTree{$file}, $file); 
      #  print " getWxNode($treectrl, ". $dirTree{$file}." , $file)\n";    
   }
-
+  #expand the root as a work around for windows bug. where
+  #root does not expand. 
+  $treectrl->Expand($WxTree{root});
 
 }
 =pod