From 5ba8d09d85b3a0f90aef17495204a2eca3412a3e Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3>
Date: Thu, 24 Nov 2005 09:53:36 +0000
Subject:  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
---
 scripts/ldfm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'scripts')

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();
-- 
cgit v1.2.3