Changeset 9348

Timestamp:

11/30/09 16:20:36 (9 months ago)

Author:

adamk

Message:

Syncing my laptop

Files:

• 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