Re^2: Wx::Perl: How to change/set font and size of Wx::ListCtrl column headings?

[HelenCr]

James: Thank you for this good work.

In fact, like I said in an earlier post, I have realized I have to use "The Grid" (cringe) and I've written a little stand-alone program, which is, in many ways, similar to your example.
Well, there is still something quite strange there: If you look at your example, line 94:

sub GetValue {
  my( $grid, $y, $x ) = @_;
  return "($y, $x)";
}

It seems that all cells should contain just

"($y, $x)"

Then,
1. Why are the cells in column 1 empty (with alternating checkboxes - where did these come from)? and
2. Why do we have in column 2:

$r + $c / 1000;

instead of

"($y, $x)"

(looks as if it came from line 122 in your code):

sub GetValueAsDouble {  # Row # plus (Col #/1000)
  my( $grid, $r, $c ) = @_;
  return $r + $c / 1000;
}

It's as if the system is calling GetValueAsDouble instead of GetValue. Why is that? I thought in wxVirtual, the system always calls GetValue?
(I know that CanGetValueAs (line 108 in your code) is a cell accessor, and GetTypeName (line 100 in your code) sets column 1 type as boolean)

Or, in other words, where is the renderer defined?
I've read this wiki: http://wiki.wxperl.nl/Wx::GridTableBase but it doesn't make things much clearer

Many TIA - Helen

[jmlynesjr]

My pure guess is that sub GetTypeName() and sub CanGetValueAs() in defining column 0 as Bool, column 1 as Double and columns 2 through "last" as string is determining which cell renderer gets called for each column. Modify these subs to fit your column layout. Swap 0(bool) and 1(double) in both subs and see if the columns swap, I bet they will. (Tried this and they did swap!)

Did you look at wxGridTableBase docs? You will probably have to create sub SetValue(), sub SetValueAsBool(), and sub SetValueAsDouble() subs to get your data into the Grid and possibly others to fit your specific data.

I am out of ideas until there are specific questions to look into. I think you are close at this point.

Update1: Swapped versions for completeness:

sub GetTypeName {
  my( $grid, $r, $c ) = @_;

  return $c == 0 ? 'double' :                    # Col 0 Double
         $c == 1 ? 'bool' :                    # Col 1 Boolean
                   'string';                    # All others String
}

sub CanGetValueAs {
  my( $grid, $r, $c, $type ) = @_;

  return $c == 0 ? $type eq 'double' :
         $c == 1 ? $type eq 'bool' :
                   $type eq 'string';
}

James