Changeset 471

Timestamp:

10/26/08 02:19:25 (3 years ago)

Author:

szabgab

Message:

rename Padre::Docuemnts methods

Location:

trunk/lib/Padre

Files:

• Documents.pm (modified) (1 diff)
• Wx/MainWindow.pm (modified) (4 diffs)
• Wx/Menu.pm (modified) (6 diffs)

trunk/lib/Padre/Documents.pm

@@ -5 +5 @@
 use warnings;
 
-### Only Class methods
+=head1 NAME
 
-sub from_selection {
-    $_[0]->from_pageid( $_[0]->_notebook->GetSelection );
+Padre::Documents
+
+=head1 SYNOPSIS
+
+Currently there are only class methods in this class.
+
+=head1 METHODS
+
+=cut
+
+sub current {
+    $_[0]->by_id( $_[0]->_notebook->GetSelection );
 }
 
-sub from_pageid {
+sub by_id {
     my $class   = shift;
     my $pageid  = shift;

trunk/lib/Padre/Wx/MainWindow.pm

@@ -342 +342 @@
 
 sub selected_document {
-    Padre::Documents->from_selection;
+    Padre::Documents->current;
 }
 
@@ -851 +851 @@
     # and it is unused, close it.
     if ( $self->{notebook}->GetPageCount == 1 ) {
-        if ( Padre::Documents->from_selection->is_unused ) {
+        if ( Padre::Documents->current->is_unused ) {
             $self->on_close;
         }
@@ -936 +936 @@
     my $self = shift;
     foreach my $id ( $self->pageids ) {
-        my $doc = Padre::Documents->from_pageid($id);
+        my $doc = Padre::Documents->by_id($id);
         $self->on_save( $doc ) or return 0;
     }
@@ -1245 +1245 @@
 
 sub _DOCUMENT {
-    return (defined $_[0]) ? Padre::Documents->from_pageid($_[0]) : Padre::Documents->from_selection;
+    return (defined $_[0]) ? Padre::Documents->by_id($_[0]) : Padre::Documents->current;
 }
 

trunk/lib/Padre/Wx/Menu.pm

@@ -100 +100 @@
             sub { 
                 if ( $_[ 0 ]->{notebook}->GetPageCount == 1 ) {
-                    if ( Padre::Documents->from_selection->is_unused ) {
+                    if ( Padre::Documents->current->is_unused ) {
                         $_[0]->on_close;
                     }
@@ -139 +139 @@
         $menu->{edit}->Append( Wx::wxID_UNDO, '' ),
         sub {
-            my $page = Padre::Documents->from_selection->editor;
+            my $page = Padre::Documents->current->editor;
             if ( $page->CanUndo ) {
                 $page->Undo;
@@ -149 +149 @@
         $menu->{edit}->Append( Wx::wxID_REDO, '' ),
         sub {
-            my $page = Padre::Documents->from_selection->editor;
+            my $page = Padre::Documents->current->editor;
             if ( $page->CanRedo ) {
                 $page->Redo;
@@ -278 +278 @@
         $menu->{perl_find_unmatched},
         sub {
-            my $doc = Padre::Documents->from_selection;
+            my $doc = Padre::Documents->current;
             unless ( $doc and $doc->isa('Padre::Document::Perl') ) {
                 return;
@@ -438 +438 @@
             sub {
                 $DB::single = 1;
-                my $document = Padre::Documents->from_selection;
+                my $document = Padre::Documents->current;
                 $_[0]->{menu}->refresh( $document );
                 $_[0]->SetMenuBar( $_[0]->{menu}->{wx} );
@@ -450 +450 @@
             sub {
                 my $self = shift;
-                my $code = Padre::Documents->from_selection->text_get;
+                my $code = Padre::Documents->current->text_get;
                 eval $code;
                 if ($@) {