Changeset 9348 for trunk/Padre-Plugin-wxGlade/lib/Padre/Plugin/wxGlade.pm

Timestamp:

11/30/09 16:20:36 (2 years ago)

Author:

adamk

Message:

Syncing my laptop

File:

• trunk/Padre-Plugin-wxGlade/lib/Padre/Plugin/wxGlade.pm (modified) (4 diffs)

trunk/Padre-Plugin-wxGlade/lib/Padre/Plugin/wxGlade.pm

@@ -52 +52 @@
             $self->wx_constants;
         },
+        'Import Dialog' => sub {
+            $self->create_dialog;
+        },
     ];
 }
@@ -68 +71 @@
         croak("Did not provide a PPI document to wx_constants");
     }
+}
+
+sub create_dialog {
+    my $self = shift;
+    
 }
 
@@ -113 +121 @@
     $text =~ s/^\tmy \$self = shift;\n//gm;
     $text =~ s/^\treturn \$self;\n//gm;
-    $text =~ s/^\t\$self-\>__set_properties\(\);\n//gm;
-    $text =~ s/^\t\$self-\>__do_layout\(\);\n//gm;
+    $text =~ s/^\t\$self->__set_properties\(\);\n//gm;
+    $text =~ s/^\t\$self->__do_layout\(\);\n//gm;
+    $text =~ s/^\t\$self->Layout\(\);//gm;
     $text =~ s/,\s+\);\n/);\n/gs;
     $text =~ s/(-\>\w+)\(\)/$1/gs;
@@ -147 +156 @@
 }
 
+# Any variable that has an underscore and numbers at the end is considered
+# something we won't need to address later, so turn them from object HASH
+# elements into ordinary lexical variables.
+sub lexify_unimportant_variables {
+    my $self = shift;
+    my $text = shift;
+    my %seen = ();
+    $text =~ s/\$self->{(\w+_\d+)}/ ($seen{$1}++ ? '' : 'my ') . "\$$1" /ges;
+    return $text;
+}
+
+# Reorder statements so they are bunched in an appropriate order
+sub reorder_statements {
+    my $self  = shift;
+    my @lines = @{$_[0]};
+    
+}
+
 # Get the list of real installed constants that are provided by
 # the "use Wx ':everything' call made by Padre::Wx