Changeset 487

Timestamp:

10/26/08 06:32:53 (3 years ago)

Author:

szabgab

Message:

rename function to show_line_numbers and rename the internal variable to $self

Location:

trunk/lib/Padre/Wx

Files:

• Editor.pm (modified) (1 diff)
• MainWindow.pm (modified) (2 diffs)

trunk/lib/Padre/Wx/Editor.pm

@@ -183 +183 @@
 # actually I added some improvement allowing a 50% growth in the file
 # and requireing a min of 2 width
-sub _toggle_numbers {
-    my ($editor, $on) = @_;
-
-    $editor->SetMarginWidth(1, 0);
-    $editor->SetMarginWidth(2, 0);
+sub show_line_numbers {
+    my ($self, $on) = @_;
+
+    $self->SetMarginWidth(1, 0);
+    $self->SetMarginWidth(2, 0);
     if ($on) {
-        my $n = 1 + List::Util::max (2, length ($editor->GetLineCount * 2));
-        my $width = $n * $editor->TextWidth(Wx::wxSTC_STYLE_LINENUMBER, "9"); # width of a single character
-        $editor->SetMarginWidth(0, $width);
-        $editor->SetMarginType(0, Wx::wxSTC_MARGIN_NUMBER);
+        my $n = 1 + List::Util::max (2, length ($self->GetLineCount * 2));
+        my $width = $n * $self->TextWidth(Wx::wxSTC_STYLE_LINENUMBER, "9"); # width of a single character
+        $self->SetMarginWidth(0, $width);
+        $self->SetMarginType(0, Wx::wxSTC_MARGIN_NUMBER);
     } else {
-        $editor->SetMarginWidth(0, 0);
-        $editor->SetMarginType(0, Wx::wxSTC_MARGIN_NUMBER);
+        $self->SetMarginWidth(0, 0);
+        $self->SetMarginType(0, Wx::wxSTC_MARGIN_NUMBER);
     }
 

trunk/lib/Padre/Wx/MainWindow.pm

@@ -745 +745 @@
     my $title = $editor->{Document}->get_title;
 
-    $editor->_toggle_numbers($config->{editor_linenumbers});
+    $editor->show_line_numbers($config->{editor_linenumbers});
     $editor->SetViewEOL($config->{editor_eol});
     $self->set_preferences($editor, $config);
@@ -1100 +1100 @@
 
     foreach my $page ( $self->pages ) {
-        $page->_toggle_numbers( $config->{editor_linenumbers} );
+        $page->show_line_numbers( $config->{editor_linenumbers} );
     }