Changeset 509

Timestamp:

10/26/08 09:27:29 (3 years ago)

Author:

tsee

Message:

add easier positioning of the dialog conalog contents to ::Wx::Dialog

Location:

trunk/lib/Padre/Wx

Files:

• Dialog.pm (modified) (1 diff)
• ModuleStartDialog.pm (modified) (2 diffs)

trunk/lib/Padre/Wx/Dialog.pm

@@ -19 +19 @@
 =head2 build_layout
 
- build_layout($dialog, $layout, $width);
+ build_layout($dialog, $layout, $width, $top_left_offset);
 
 =cut
 sub build_layout {
-    my ($dialog, $layout, $width) = @_;
+    my ($dialog, $layout, $width, $top_left_offset) = @_;
+    $top_left_offset = [0, 0] if not ref($top_left_offset);
 
     my $box  = Wx::BoxSizer->new( Wx::wxVERTICAL );
+    # Add Y-offset
+    $box->Add(0, $top_left_offset->[1], 0) if $top_left_offset->[1];
 
     foreach my $i (0..@$layout-1) {
         my $row = Wx::BoxSizer->new( Wx::wxHORIZONTAL );
+        # Add X-offset
+        $row->Add($top_left_offset->[0], 0, 0) if $top_left_offset->[0];
         $box->Add($row);
         foreach my $j (0..@{$layout->[$i]}-1) {

trunk/lib/Padre/Wx/ModuleStartDialog.pm

@@ -23 +23 @@
     my ( $class, $win, $config, $args) = @_;
 
-    my $dialog = Wx::Dialog->new( $win, -1, "Module Start", [-1, -1], [300, 220]);
+    my $dialog = Wx::Dialog->new( $win, -1, "Module Start", [-1, -1], [310, 210]);
 
     my $layout = get_layout($config);
-    Padre::Wx::Dialog::build_layout($dialog, $layout, [100, 200]);
+    Padre::Wx::Dialog::build_layout($dialog, $layout, [100, 200], [5, 5]);
 
     $dialog->{_ok_}->SetDefault;
@@ -126 +126 @@
     @ARGV = ();
     chdir $pwd;
-    Wx::MessageBox("$data->{_module_name_} apperantly created.", "Done", Wx::wxOK, $main_window);
+    Wx::MessageBox("$data->{_module_name_} apparantly created.", "Done", Wx::wxOK, $main_window);
 
     return;