Select Code to Download

    my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_
+;
    $parent = undef              unless defined $parent;
...
    $pos    = wxDefaultPosition  unless defined $pos;
    $size   = wxDefaultSize      unless defined $size;
    $name   = ""                 unless defined $name;

    my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_
+;
    $parent //= undef;
...
    $size   //= wxDefaultSize;
    $name   //= "";