Select Code to Download

elsif($segment = 6) {                    # Draw the 6 sided segment(6)

sub GetValue{
    my $return = $wxGlobals{mValue};
}

sub GetValue{
    return $wxGlobals{mValue};
}

sub Decode {                            # Table lookup for character t
+o
    my($char) = @_;                     # Segment translation
...
         $return = $ctbl{'='};          # Triple bar for undefined cha
+racter
    }   
}

sub Decode                              # Table lookup for character t
+o segment translation
{
...

    return $ctbl{'='};                  # Triple bar for undefined cha
+racter
}