Changeset 9499
- Timestamp:
- 12/05/09 22:35:36 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre-Plugin-Catalyst/lib/Padre/Plugin/Catalyst/Panel.pm
r9489 r9499 21 21 22 22 # main container 23 my $box = Wx::BoxSizer->new(Wx::wxVERTICAL);23 my $box = Wx::BoxSizer->new(Wx::wxVERTICAL); 24 24 25 25 # top box, holding buttons, icons and checkboxes 26 27 #TODO FIXME: the top bar is too big, it would be nice to 28 # make it fit just the size of the button, and vertically align 29 # the other controls do centralize them (vertically). 30 # Maybe we need a Wx::GridSizer 31 my $top_box = Wx::BoxSizer->new(Wx::wxHORIZONTAL); 26 my $top_box = Wx::BoxSizer->new(Wx::wxHORIZONTAL); 32 27 33 28 # visual led showing server state 34 29 my $led = Wx::StaticBitmap->new( $self, -1, Wx::wxNullBitmap ); 35 30 $led->SetBitmap( $self->led('red') ); 36 $top_box->Add( $led );31 $top_box->Add( $led, 0, Wx::wxALIGN_CENTER_VERTICAL ); 37 32 $self->{led} = $led; 38 33 … … 51 46 }, 52 47 ); 53 $top_box->Add($button );48 $top_box->Add($button, 0, Wx::wxALIGN_CENTER_VERTICAL); 54 49 55 50 # checkbox to auto-restart 56 51 my $checkbox = Wx::CheckBox->new($self, -1, _T('auto-restart')); 57 52 Wx::Event::EVT_CHECKBOX( $self, $checkbox, sub { shift->{config}->{auto_restart} ^= 1 } ); 58 $top_box->Add( $checkbox );53 $top_box->Add( $checkbox, 0, Wx::wxALIGN_CENTER_VERTICAL ); 59 54 60 55 # finishing up the top_box 61 $box->Add( $top_box, 1, Wx::wxGROW ); 56 #$box->Add( $top_box, 1, Wx::wxGROW ); 57 $box->Add( $top_box, 0, Wx::wxALIGN_LEFT | Wx::wxALIGN_CENTER_VERTICAL ); 62 58 63 59 # output panel for server 64 60 require Padre::Wx::Output; 65 61 my $output = Padre::Wx::Output->new($self); 66 $box->Add( $output, 2, Wx::wxGROW );62 $box->Add( $output, 1, Wx::wxGROW ); 67 63 68 64 # wrapping it up and showing on the screen
Note: See TracChangeset
for help on using the changeset viewer.
