source: extras/pLoader/trunk/res/progress_wdr.pl @ 3242

Last change on this file since 3242 was 2597, checked in by ronosman, 16 years ago

pLoader initial release

  • Property svn:eol-style set to LF
File size: 2.7 KB
Line 
1#-----------------------------------------------------------------------------
2# Perl source generated by wxDesigner from file: progress.wdr
3# Do not modify this file, all changes will be lost!
4#-----------------------------------------------------------------------------
5
6use Wx;
7use strict;
8
9use Wx qw( wxDefaultSize wxDefaultPosition wxID_OK wxID_SAVE wxID_SAVEAS wxID_CANCEL wxID_YES wxID_EXIT wxID_ABOUT wxID_HELP );
10use Wx qw( wxVERTICAL wxHORIZONTAL wxALL wxLEFT wxRIGHT wxTOP wxBOTTOM wxCENTRE wxGROW wxADJUST_MINSIZE );
11use Wx qw( wxALIGN_RIGHT wxALIGN_BOTTOM wxALIGN_CENTER wxALIGN_CENTER_VERTICAL wxALIGN_CENTER_HORIZONTAL );
12use Wx qw( wxLI_HORIZONTAL );
13
14# Bitmap functions
15
16use Wx qw( wxNullBitmap wxBITMAP_TYPE_PNG );
17
18# Window functions
19
20use vars qw($ID_PROGRESS_TXT); $ID_PROGRESS_TXT = 10000;
21use vars qw($ID_STATICBITMAP); $ID_STATICBITMAP = 10001;
22use vars qw($ID_PROGRESS_GAUGE); $ID_PROGRESS_GAUGE = 10002;
23use vars qw($ID_LINE); $ID_LINE = 10003;
24use vars qw($ID_PROGRESS_OK); $ID_PROGRESS_OK = 10004;
25
26sub ProcessingProgress {
27    my( $item0 ) = Wx::BoxSizer->new( wxVERTICAL );
28   
29    my( $item1 ) = Wx::BoxSizer->new( wxVERTICAL );
30   
31    my( $item2 ) = Wx::StaticText->new( $_[0], $main::ID_PROGRESS_TXT, "Processing", wxDefaultPosition, wxDefaultSize, 0 );
32    $item1->AddWindow( $item2, 0, wxALIGN_CENTER_VERTICAL|wxALL, 5 );
33
34    $item1->AddSpace( 20, 20, 0, wxALIGN_CENTER|wxALL, 5 );
35
36    my( $item3 ) = Wx::StaticBitmap->new( $_[0], $main::ID_STATICBITMAP, wxNullBitmap, wxDefaultPosition, [100,100] );
37    $item1->AddWindow( $item3, 0, wxALIGN_CENTER_VERTICAL|wxALL, 10 );
38
39    $item1->AddSpace( 20, 30, 0, wxALIGN_CENTER|wxALL, 5 );
40
41    my( $item4 ) = Wx::Gauge->new( $_[0], $main::ID_PROGRESS_GAUGE, 100, wxDefaultPosition, [400,12], 0 );
42    $item1->AddWindow( $item4, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 10 );
43
44    $item0->Add( $item1, 0, wxALIGN_CENTER|wxALL, 5 );
45
46    my( $item5 ) = Wx::StaticLine->new( $_[0], $main::ID_LINE, wxDefaultPosition, [20,-1], wxLI_HORIZONTAL );
47    $item0->AddWindow( $item5, 0, wxGROW|wxALIGN_CENTER_VERTICAL|wxALL, 5 );
48
49    my( $item6 ) = Wx::BoxSizer->new( wxHORIZONTAL );
50   
51    my( $item7 ) = Wx::Button->new( $_[0], $main::ID_PROGRESS_OK, "OK", wxDefaultPosition, wxDefaultSize, 0 );
52    $item6->AddWindow( $item7, 0, wxALIGN_CENTER|wxALL, 5 );
53
54    $item0->Add( $item6, 0, wxALIGN_CENTER|wxALL, 5 );
55
56    my( $set_size ) = @_ >= 3 ? $_[2] : 1;
57    my( $call_fit ) = @_ >= 2 ? $_[1] : 1;
58    if( $set_size == 1 ) {
59         $_[0]->SetSizer( $item0 );
60         
61         if( $call_fit == 1 ) {
62             $item0->SetSizeHints( $_[0] );
63         }
64    }
65   
66    $item0;
67}
68
69# Menu bar functions
70
71
72# Toolbar functions
73
74
75# End of generated file
Note: See TracBrowser for help on using the repository browser.