| Line 1... |
Line 1... |
#!/usr/bin/perl -w
|
#!/usr/bin/perl -w
|
|
|
package ProNOC;
|
package ProNOC;
|
|
|
|
|
|
#add home dir in perl 5.6
|
|
use FindBin;
|
|
use lib $FindBin::Bin;
|
|
|
|
|
use Glib qw/TRUE FALSE/;
|
use Glib qw/TRUE FALSE/;
|
|
|
|
|
use Gtk2;
|
use Gtk2;
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
|
|
|
use Getopt::Long;
|
|
|
|
|
use lib 'lib/perl';
|
use lib 'lib/perl';
|
require "widget.pl";
|
require "widget.pl";
|
require "interface_gen.pl";
|
require "interface_gen.pl";
|
| Line 20... |
Line 25... |
require "soc_gen.pl";
|
require "soc_gen.pl";
|
require "mpsoc_gen.pl";
|
require "mpsoc_gen.pl";
|
require "emulator.pl";
|
require "emulator.pl";
|
require "simulator.pl";
|
require "simulator.pl";
|
require "trace_gen.pl";
|
require "trace_gen.pl";
|
|
#require "network_maker.pl";
|
|
|
use File::Basename;
|
use File::Basename;
|
|
|
|
|
our $VERSION = '1.8.2';
|
our $VERSION = '1.9.0';
|
|
|
|
|
|
|
sub main{
|
sub main{
|
# check if envirement variables are defined
|
# check if envirement variables are defined
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";
|
my $paths_file= "$project_dir/mpsoc/perl_gui/lib/Paths";
|
| Line 54... |
Line 62... |
my $modelsim = $paths->object_get_attribute("PATH","MODELSIM_BIN");
|
my $modelsim = $paths->object_get_attribute("PATH","MODELSIM_BIN");
|
|
|
$ENV{'PRONOC_WORK'}= $pronoc_work if( defined $pronoc_work);
|
$ENV{'PRONOC_WORK'}= $pronoc_work if( defined $pronoc_work);
|
$ENV{'QUARTUS_BIN'}= $quartus if( defined $quartus);
|
$ENV{'QUARTUS_BIN'}= $quartus if( defined $quartus);
|
$ENV{'MODELSIM_BIN'}= $modelsim if( defined $modelsim);
|
$ENV{'MODELSIM_BIN'}= $modelsim if( defined $modelsim);
|
|
|
|
if( defined $pronoc_work){if(-d $pronoc_work ){
|
|
mkpath("$pronoc_work/emulate",1,01777) unless -d "$pronoc_work/emulate";
|
|
mkpath("$pronoc_work/simulate",1,01777) unless -d "$pronoc_work/simulate";
|
|
mkpath("$pronoc_work/tmp",1,01777) unless -d "$pronoc_work/tmp";
|
|
}}
|
|
|
|
|
|
|
|
#add quartus_bin to PATH linux envirement if it does not exist in PATH
|
|
if( defined $quartus){
|
|
my @q =split (/:/,$ENV{'PATH'});
|
|
my $p=get_scolar_pos ($quartus,@q);
|
|
$ENV{'PATH'}= $ENV{'PATH'}.":$quartus" unless ( defined $p);
|
|
print "$quartus has been added to linux PATH envirement.\n";
|
|
}
|
}
|
}
|
|
|
|
|
|
|
sub main_window{
|
sub main_window{
|
|
|
set_path_env();
|
set_path_env();
|
|
|
|
|
my($width,$hight)=max_win_size();
|
my($width,$hight)=max_win_size();
|
set_defualt_font_size();
|
set_defualt_font_size();
|
|
|
|
|
|
|
|
|
if ( !defined $ENV{PRONOC_WORK} ) {
|
if ( !defined $ENV{PRONOC_WORK} ) {
|
my $message;
|
my $message;
|
if ( !defined $ENV{PRONOC_WORK}) {
|
if ( !defined $ENV{PRONOC_WORK}) {
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $project_dir = abs_path("$dir/../../mpsoc_work");
|
my $project_dir = abs_path("$dir/../../mpsoc_work");
|
| Line 87... |
Line 107... |
|
|
#$message= $message."\n\nPlease add aformentioned variables to ~\.bashrc file e.g: export PRONOC_WORK=[path_to]/mpsoc_work.";
|
#$message= $message."\n\nPlease add aformentioned variables to ~\.bashrc file e.g: export PRONOC_WORK=[path_to]/mpsoc_work.";
|
message_dialog("$message");
|
message_dialog("$message");
|
|
|
}
|
}
|
my $table = Gtk2::Table->new (1, 3, FALSE);
|
|
|
my $table = def_table(1,3,FALSE);
|
|
|
|
|
#________
|
#________
|
#radio btn "Generator"
|
#radio btn "Generator"
|
my $rbtn_generator = Gtk2::RadioToolButton->new (undef);
|
my $rbtn_generator = Gtk2::RadioToolButton->new (undef);
|
| Line 105... |
Line 126... |
my @menu_items = (
|
my @menu_items = (
|
[ "/_File", undef, undef, 0, "<Branch>" ],
|
[ "/_File", undef, undef, 0, "<Branch>" ],
|
[ "/File/_Setting", "<control>O", sub { setting(0); }, 0, undef ],
|
[ "/File/_Setting", "<control>O", sub { setting(0); }, 0, undef ],
|
[ "/File/_Quit", "<control>Q", sub { Gtk2->main_quit }, 0, "<StockItem>", 'gtk-quit' ],
|
[ "/File/_Quit", "<control>Q", sub { Gtk2->main_quit }, 0, "<StockItem>", 'gtk-quit' ],
|
[ "/_View", undef, undef, 0, "<Branch>" ],
|
[ "/_View", undef, undef, 0, "<Branch>" ],
|
[ "/_View/_ProNoC System Generator", undef, sub{ open_page($notebook,$noteref,$table,'Generator'); } , 0, undef ],
|
[ "/_View/_ProNoC System Generator", "<control>1", sub{ open_page($notebook,$noteref,$table,'Generator'); } , 0, undef ],
|
[ "/_View/_ProNoC Simulator", undef, sub{ open_page($notebook,$noteref,$table,'Simulator'); } , 0, undef ],
|
[ "/_View/_ProNoC Simulator", "<control>2", sub{ open_page($notebook,$noteref,$table,'Simulator'); } , 0, undef ],
|
|
|
|
|
|
|
[ "/_Help", undef, undef, 0, "<Branch>" ],
|
[ "/_Help", undef, undef, 0, "<Branch>" ],
|
[ "/_Help/_About", "F1", \&about , 0, undef ],
|
[ "/_Help/_About", "F1", \&about , 0, undef ],
|
[ "/_Help/_ProNoC System Overview", "F2", \&overview , 0, undef ],
|
[ "/_Help/_ProNoC System Overview", "F2", \&overview , 0, undef ],
|
[ "/_Help/_ProNoC User Manual", "F3", \&user_help, 0, undef ],
|
[ "/_Help/_ProNoC User Manual", "F3", \&user_help, 0, undef ],
|
|
|
);
|
);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $accel_group = Gtk2::AccelGroup->new;
|
my $accel_group = Gtk2::AccelGroup->new;
|
$window->add_accel_group ($accel_group);
|
$window->add_accel_group ($accel_group);
|
|
|
my $item_factory = Gtk2::ItemFactory->new ("Gtk2::MenuBar", "<main>",$accel_group);
|
my $item_factory = Gtk2::ItemFactory->new ("Gtk2::MenuBar", "<main>",$accel_group);
|
|
|
# Set up item factory to go away with the window
|
# Set up item factory to go away with the window
|
$window->{'<main>'} = $item_factory;
|
$window->{'<main>'} = $item_factory;
|
|
|
# create menu items
|
# create menu items
|
$item_factory->create_items ($window, @menu_items);
|
$item_factory->create_items ($window, @menu_items);
|
|
|
|
|
|
|
$table->attach ($item_factory->get_widget ("<main>"),0, 1, 0,1,,'fill','fill',0,0); #,'expand','shrink',2,2);
|
$table->attach ($item_factory->get_widget ("<main>"),0, 1, 0,1,,'fill','fill',0,0); #,'expand','shrink',2,2);
|
|
|
my $tt = Gtk2::Tooltips->new();
|
my $tt = Gtk2::Tooltips->new();
|
|
|
|
|
#====================================
|
#====================================
|
#The handle box helps in creating a detachable toolbar
|
#The handle box helps in creating a detachable toolbar
|
my $hb = Gtk2::HandleBox->new;
|
my $hb = Gtk2::HandleBox->new;
|
#create a toolbar, and do some initial settings
|
#create a toolbar, and do some initial settings
|
my $toolbar = Gtk2::Toolbar->new;
|
my $toolbar = Gtk2::Toolbar->new;
|
$toolbar->set_icon_size ('small-toolbar');
|
$toolbar->set_icon_size ('small-toolbar');
|
|
|
$toolbar->set_show_arrow (FALSE);
|
$toolbar->set_show_arrow (FALSE);
|
|
|
|
|
|
|
|
|
|
|
$rbtn_generator->set_label ('Generator');
|
$rbtn_generator->set_label ('Generator');
|
$rbtn_generator->set_icon_widget (def_icon('icons/hardware.png'));
|
$rbtn_generator->set_icon_widget (def_icon('icons/hardware.png'));
|
set_tip($rbtn_generator, "ProNoC System Generator");
|
set_tip($rbtn_generator, "ProNoC System Generator");
|
$toolbar->insert($rbtn_generator,-1);
|
$toolbar->insert($rbtn_generator,-1);
|
|
|
|
|
|
|
#________
|
#________
|
#radio btn "Simulator"
|
#radio btn "Simulator"
|
my $rbtn_simulator = Gtk2::RadioToolButton->new_from_widget($rbtn_generator);
|
my $rbtn_simulator = Gtk2::RadioToolButton->new_from_widget($rbtn_generator);
|
$rbtn_simulator->set_label ('Simulator');
|
$rbtn_simulator->set_label ('Simulator');
|
$rbtn_simulator->set_icon_widget (def_icon('icons/simulator.png')) ;
|
$rbtn_simulator->set_icon_widget (def_icon('icons/simulator.png')) ;
|
|
|
set_tip($rbtn_simulator, "ProNoC Simulator");
|
set_tip($rbtn_simulator, "ProNoC Simulator");
|
$toolbar->insert($rbtn_simulator,-1);
|
$toolbar->insert($rbtn_simulator,-1);
|
|
#________
|
|
#radio btn "Networkgen"
|
|
#my $rbtn_networkgen = Gtk2::RadioToolButton->new_from_widget($rbtn_generator);
|
|
#$rbtn_networkgen->set_label ('Network Generator');
|
|
#$rbtn_networkgen->set_icon_widget (def_icon('icons/trace.png')) ;
|
$hb->add($toolbar);
|
#set_tip($rbtn_networkgen, "ProNoC Network Generator");
|
|
#$toolbar->insert($rbtn_networkgen,-1);
|
#====================================
|
#====================================
|
|
$hb->add($toolbar);
|
$rbtn_generator->signal_connect('toggled', sub{
|
$rbtn_generator->signal_connect('toggled', sub{
|
open_page($notebook,$noteref,$table,'Generator');
|
open_page($notebook,$noteref,$table,'Generator');
|
|
|
|
|
|
|
});
|
});
|
|
|
$rbtn_simulator->signal_connect('toggled', sub{
|
$rbtn_simulator->signal_connect('toggled', sub{
|
open_page($notebook,$noteref,$table,'Simulator');
|
open_page($notebook,$noteref,$table,'Simulator');
|
|
|
|
|
});
|
});
|
|
|
$table->attach ($hb,0, 1, 0,1,'fill','fill',0,0);
|
#$rbtn_networkgen->signal_connect('toggled', sub{
|
|
# open_page($notebook,$noteref,$table,'Networkgen');
|
|
#});
|
|
|
|
$table->attach ($hb,1, 2, 0,1,'fill','fill',0,0);
|
$table->attach_defaults( $notebook, 0, 2, 1,2);
|
$table->attach_defaults( $notebook, 0, 2, 1,2);
|
|
|
#$window->add($vbox);
|
|
$window->add($table);
|
$window->add($table);
|
|
|
|
|
|
|
|
|
$window->set_resizable (1);
|
$window->set_resizable (1);
|
$window->show_all();
|
$window->show_all();
|
|
|
}
|
}
|
|
|
|
|
sub open_page{
|
sub open_page{
|
my ( $notebook,$noteref,$table,$page_name)=@_;
|
my ( $notebook,$noteref,$table,$page_name)=@_;
|
| Line 254... |
Line 248... |
sub overview{
|
sub overview{
|
my $dir = Cwd::getcwd();
|
my $dir = Cwd::getcwd();
|
my $help="$dir/../../doc/ProNoC_System_Overview.pdf";
|
my $help="$dir/../../doc/ProNoC_System_Overview.pdf";
|
system qq (xdg-open $help);
|
system qq (xdg-open $help);
|
return;
|
return;
|
|
|
|
|
|
|
}
|
}
|
|
|
sub setting{
|
sub setting{
|
my $reset=shift;
|
my $reset=shift;
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
my $project_dir = get_project_dir(); #mpsoc dir addr
|
| Line 303... |
Line 294... |
#$mpsoc,$name,$param, $default,$type,$content,$info, $table,$row,$column,$show,$attribut1,$ref_delay,$new_status,$loc
|
#$mpsoc,$name,$param, $default,$type,$content,$info, $table,$row,$column,$show,$attribut1,$ref_delay,$new_status,$loc
|
($row,$col)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay},undef,"vertical");
|
($row,$col)=add_param_widget ($self, $d->{label}, $d->{param_name}, $d->{default_val}, $d->{type}, $d->{content}, $d->{info}, $table,$row,$col,1, $d->{param_parent}, $d->{ref_delay},undef,"vertical");
|
}
|
}
|
|
|
|
|
|
|
|
#title
|
|
my $title2=gen_label_in_center("Toolchain");
|
|
$table->attach ($title2 , 0, 10, $row, $row+1,'expand','shrink',2,2); $row++;
|
|
my $separator2 = Gtk2::HSeparator->new;
|
|
$table->attach ($separator2 , 0, 10 , $row, $row+1,'fill','fill',2,2); $row++;
|
|
|
|
#check which toolchain is available in the system
|
|
$table->attach (check_toolchains($self) , 0, 10 , $row, $row+1,'fill','fill',2,2); $row++;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $ok = def_image_button('icons/select.png','OK');
|
my $ok = def_image_button('icons/select.png','OK');
|
my $mtable = def_table(10, 1, TRUE);
|
my $mtable = def_table(10, 1, TRUE);
|
|
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable->attach_defaults($scrolled_win,0,1,0,9);
|
$mtable-> attach ($ok , 0, 1, 9, 10,'expand','shrink',2,2);
|
$mtable-> attach ($ok , 0, 1, 9, 10,'expand','shrink',2,2);
|
| Line 327... |
Line 334... |
my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");
|
my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");
|
my $quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");
|
my $quartus = $self->object_get_attribute("PATH","QUARTUS_BIN");
|
my $modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");
|
my $modelsim = $self->object_get_attribute("PATH","MODELSIM_BIN");
|
make_undef_as_string(\$old_pronoc_work,\$old_quartus,\$old_modelsim,\$pronoc_work,\$quartus,\$modelsim);
|
make_undef_as_string(\$old_pronoc_work,\$old_quartus,\$old_modelsim,\$pronoc_work,\$quartus,\$modelsim);
|
|
|
append_text_to_file ("$ENV{HOME}/.bashrc", "\nexport PRONOC_WORK=$pronoc_work\n") if(($old_pronoc_work ne $pronoc_work) || !defined $ENV{PRONOC_WORK}) ;
|
if(($old_pronoc_work ne $pronoc_work) || !defined $ENV{PRONOC_WORK}){
|
|
append_text_to_file ("$ENV{HOME}/.bashrc", "\nexport PRONOC_WORK=$pronoc_work\n");
|
|
mkpath("$pronoc_work/emulate",1,01777) unless -d "$pronoc_work/emulate";
|
|
mkpath("$pronoc_work/simulate",1,01777) unless -d "$pronoc_work/simulate";
|
|
mkpath("$pronoc_work/tmp",1,01777) unless -d "$pronoc_work/tmp";
|
|
}
|
|
|
append_text_to_file ("$ENV{HOME}/.bashrc", "export QUARTUS_BIN=$quartus\n") if($old_quartus ne $quartus) ;
|
append_text_to_file ("$ENV{HOME}/.bashrc", "export QUARTUS_BIN=$quartus\n") if($old_quartus ne $quartus) ;
|
append_text_to_file ("$ENV{HOME}/.bashrc", "export MODELSIM_BIN=$modelsim\n") if($old_modelsim ne $modelsim) ;
|
append_text_to_file ("$ENV{HOME}/.bashrc", "export MODELSIM_BIN=$modelsim\n") if($old_modelsim ne $modelsim) ;
|
set_path_env();
|
set_path_env();
|
if(($old_pronoc_work ne $pronoc_work) || $old_quartus ne $quartus ||$old_modelsim ne $modelsim){
|
if(($old_pronoc_work ne $pronoc_work) || $old_quartus ne $quartus ||$old_modelsim ne $modelsim){
|
|
|
| Line 345... |
Line 358... |
|
|
});
|
});
|
|
|
}
|
}
|
|
|
|
sub check_toolchains{
|
|
my $self=shift;
|
|
my $table = def_table(10, 1, TRUE);
|
|
|
|
my @f1=("/bin/mb-g++","/bin/mb-objcopy");
|
|
my @f2=("/bin/lm32-elf-gcc","/bin/lm32-elf-ld","/bin/lm32-elf-objcopy","/bin/lm32-elf-objdump","/lm32-elf/lib","/lib/gcc/lm32-elf/4.5.3");
|
|
my @f3=("/bin/or1k-elf-gcc","/bin/or1k-elf-ld","/bin/or1k-elf-objcopy","/bin/or1k-elf-objdump","/lib/gcc/or1k-elf/5.2.0");
|
|
|
|
my @tool = (
|
|
{ label=>"aeMB", tooldir=>"aemb", files=>\@f1 },
|
|
{ label=>"lm32", tooldir=>"lm32", files=>\@f2 },
|
|
{ label=>"or1k-elf", tooldir=>"or1k-elf", files=>\@f3 },
|
|
);
|
|
|
|
my $row =0;
|
|
foreach my $d (@tool) {
|
|
|
|
my $exist=1;
|
|
my $miss="";
|
|
my $pronoc_work = $self->object_get_attribute("PATH","PRONOC_WORK");
|
|
my $tooldir=$d->{tooldir};
|
|
my @files=@{$d->{files}};
|
|
my $tool_path="$pronoc_work/toolchain/$tooldir";
|
|
unless (-d $tool_path){
|
|
$exist=0;
|
|
$miss=$miss." $tool_path is missing\n";
|
|
}else{
|
|
foreach my $f (@files){
|
|
|
|
my $file_path= "$tool_path/$f";
|
|
unless ( -f $file_path || -d $file_path){
|
|
$exist=0;
|
|
$miss=$miss." $file_path file is missing\n";
|
|
}
|
|
}
|
|
}
|
|
if ($exist==0){
|
|
my $w=def_image_button("icons/warning.png",$d->{label});
|
|
$w->signal_connect("clicked" => sub {message_dialog($miss);});
|
|
$table->attach ($w , 0, 1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
}else{
|
|
my $w=def_image_label("icons/button_ok.png",$d->{label});
|
|
$table->attach ($w , 0, 1, $row, $row+1,'shrink','shrink',2,2); $row++;
|
|
}
|
|
|
|
}
|
|
return $table;
|
|
}
|
|
|
|
|
sub generate_main_notebook {
|
sub generate_main_notebook {
|
my $mode =shift;
|
my $mode =shift;
|
|
|
my $notebook = Gtk2::Notebook->new;
|
my $notebook = Gtk2::Notebook->new;
|
$notebook->show_all;
|
$notebook->show_all;
|
| Line 372... |
Line 435... |
my $lable4=def_image_label("icons/noc.png"," NoC based MPSoC generator ");
|
my $lable4=def_image_label("icons/noc.png"," NoC based MPSoC generator ");
|
$notebook->append_page ($mpsocgen,$lable4);#Gtk2::Label->new_with_mnemonic (" _NoC based MPSoC generator "));
|
$notebook->append_page ($mpsocgen,$lable4);#Gtk2::Label->new_with_mnemonic (" _NoC based MPSoC generator "));
|
$lable4->show_all;
|
$lable4->show_all;
|
|
|
|
|
|
|
|
} elsif($mode eq 'Networkgen'){
|
|
|
|
my $networkgen = network_maker_main();
|
|
my $lable5=def_image_label("icons/trace.png"," Network Maker ");
|
|
$notebook->append_page ($networkgen,$lable5);#Gtk2::Label->new_with_mnemonic (" _NoC based MPSoC generator "));
|
|
$lable5->show_all;
|
|
|
|
|
} else{
|
} else{
|
|
|
|
|
|
|
my $trace_gen= trace_gen_main();
|
my $trace_gen= trace_gen_main();
|
my $lable1=def_image_label("icons/trace.png"," Trace generator ");
|
my $lable1=def_image_label("icons/trace.png"," _Trace generator ",1);
|
#my $lb=Gtk2::Label->new_with_mnemonic (" _Trace generator ");
|
#my $lb=Gtk2::Label->new_with_mnemonic (" _Trace generator ");
|
set_tip($lable1, "Generate trace file from application task graph");
|
set_tip($lable1, "Generate trace file from application task graph");
|
|
|
$notebook->append_page ($trace_gen,$lable1);
|
$notebook->append_page ($trace_gen,$lable1);
|
$lable1->show_all;
|
$lable1->show_all;
|
$trace_gen->show_all;
|
$trace_gen->show_all;
|
|
|
my $simulator =simulator_main();
|
my $simulator =simulator_main();
|
my $lable2=def_image_label("icons/sim.png"," NoC simulator ");
|
my $lable2=def_image_label("icons/sim.png"," _NoC simulator ",1);
|
|
|
|
|
$notebook->append_page ($simulator,$lable2);#Gtk2::Label->new_with_mnemonic (" _NoC simulator "));
|
$notebook->append_page ($simulator,$lable2);#Gtk2::Label->new_with_mnemonic (" _NoC simulator "));
|
$lable2->show_all;
|
$lable2->show_all;
|
$simulator->show_all;
|
$simulator->show_all;
|
|
|
my $emulator =emulator_main();
|
my $emulator =emulator_main();
|
my $lable3=def_image_label("icons/emul.png"," NoC emulator ");
|
my $lable3=def_image_label("icons/emul.png"," _NoC emulator ",1);
|
$notebook->append_page ($emulator,$lable3);#Gtk2::Label->new_with_mnemonic (" _NoC emulator"));
|
$notebook->append_page ($emulator,$lable3);#Gtk2::Label->new_with_mnemonic (" _NoC emulator"));
|
$lable3->show_all;
|
$lable3->show_all;
|
$emulator->show_all;
|
$emulator->show_all;
|
|
|
|
|
| Line 406... |
Line 480... |
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
my $scrolled_win = new Gtk2::ScrolledWindow (undef, undef);
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->set_policy( "automatic", "automatic" );
|
$scrolled_win->add_with_viewport($notebook);
|
$scrolled_win->add_with_viewport($notebook);
|
$scrolled_win->show_all;
|
$scrolled_win->show_all;
|
|
|
|
|
return ($scrolled_win,$notebook);
|
return ($scrolled_win,$notebook);
|
|
|
}
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Gtk2->init;
|
Gtk2->init;
|
main;
|
main;
|
Gtk2->main();
|
Gtk2->main();
|
|
|
No newline at end of file
|
No newline at end of file
|
