diff options
| author | dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3> | 2005-11-24 09:53:36 +0000 |
|---|---|---|
| committer | dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3> | 2005-11-24 09:53:36 +0000 |
| commit | 5ba8d09d85b3a0f90aef17495204a2eca3412a3e (patch) | |
| tree | 9ae2fb55a56b995c4b7524e2e64edbae0748b341 /scripts | |
| parent | r795@narval2: dakkar | 2005-11-19 15:53:49 +0100 (diff) | |
| download | GtkPerlFileManager-5ba8d09d85b3a0f90aef17495204a2eca3412a3e.tar.gz GtkPerlFileManager-5ba8d09d85b3a0f90aef17495204a2eca3412a3e.tar.bz2 GtkPerlFileManager-5ba8d09d85b3a0f90aef17495204a2eca3412a3e.zip | |
r796@narval2: dakkar | 2005-11-19 16:29:11 +0100
file Glade e suo caricamento
git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@41 fcb26f47-9200-0410-b104-b98ab5b095f3
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/ldfm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/scripts/ldfm b/scripts/ldfm index c611a8b..62e6246 100644 --- a/scripts/ldfm +++ b/scripts/ldfm @@ -3,6 +3,17 @@ use utf8; use strict; use warnings; use Gtk2 '-init'; +use Path::Class; use LDFM::MainController; -print "buh!\n"; +my $glade_file=file(__FILE__) + ->parent + ->parent + ->subdir('resources') + ->file('ldfm-main.glade'); + +my $main_controller=LDFM::MainController->new( + glade_file => $glade_file +); + +$main_controller->run(); |