Add a LICENSE file that refers to the GPLv1 (COPYING) and Artistic (A…

…RTISTIC) licenses

git-svn-id: http://svn.perlide.org/padre/trunk/Padre@14745 bc93166f-e056-4eb9-8c59-0a0840647e1b

LICENSE

@@ -0,0 +1,3 @@
+This program is free software; you can redistribute it and/or modify it under the same terms as Perl 5 itself.
+
+The applicable licenses can be found in the files COPYING (GPLv1) and ARTISTIC (Artistic License).

lib/Padre/Wx/Dialog/Preferences.pm

@@ -254,8 +254,9 @@ sub preview_refresh {
 
     # Set the right margin if applicable
     if ( $self->editor_right_margin_enable->GetValue ) {
-        $preview->SetEdgeColumn( $self->editor_right_margin_column );
+        $preview->SetEdgeColumn( $self->editor_right_margin_column ->GetValue);
         $preview->SetEdgeMode(Wx::wxSTC_EDGE_LINE);
+        $preview->set_preferences;
     }
     else {
         $preview->SetEdgeMode(Wx::wxSTC_EDGE_NONE);

lib/Padre/Wx/Editor.pm

@@ -343,8 +343,8 @@ sub padre_setup_plain {
 
 	# Create the right margin if desired
 	if ( $config->editor_right_margin_enable ) {
-		$self->SetEdgeColumn( $config->editor_right_margin_column );
-		$self->SetEdgeMode(Wx::wxSTC_EDGE_LINE);
+		$self->SetEdgeColumn( $config->editor_right_margin_column);
+		#$self->SetEdgeMode(Wx::wxSTC_EDGE_LINE);
 	} else {
 		$self->SetEdgeMode(Wx::wxSTC_EDGE_NONE);
 	}