| 54 | | } |
| 55 | | |
| 56 | | # Smarter equivalent for path |
| 57 | | sub file { |
| 58 | | my $self = shift; |
| 59 | | |
| 60 | | # Handle null cases |
| 61 | | unless ( defined _STRING($self->path) ) { |
| 62 | | return $self->path; |
| 63 | | } |
| 64 | | |
| 65 | | # Handle the trivial positive case |
| 66 | | if ( -f $self->path ) { |
| 67 | | return $self->path; |
| 68 | | } |
| 69 | | |
| 70 | | # Because wxGlade saves absolute paths, they don't transport well. |
| 71 | | # If the literal path doesn't exist, add support for the generated |
| 72 | | # file being in the same directory as the WXG file itself. |
| 73 | | die( "CODE INCOMPLETE" ); |
