From a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87 Mon Sep 17 00:00:00 2001 From: dakkar Date: Sat, 23 May 2009 16:30:33 +0200 Subject: glade --- Build.PL | 1 + lib/LDFM/MainController.pm | 10 ++ resources/ldfm-main.glade | 295 +++++++++++++++++++++++++++++++++++++++++++++ scripts/ldfm | 12 +- 4 files changed, 317 insertions(+), 1 deletion(-) create mode 100644 resources/ldfm-main.glade diff --git a/Build.PL b/Build.PL index 03675a6..6bb9bd6 100644 --- a/Build.PL +++ b/Build.PL @@ -13,6 +13,7 @@ my $builder = Module::Build->new( 'Gtk2' => '1.1.0', 'Gtk2::GladeXML::Simple' => 0, 'Readonly' => 0, + 'Path::Class' => 0, }, build_requires => { 'Test::More' => 0, diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm index a9534e0..9508ced 100644 --- a/lib/LDFM/MainController.pm +++ b/lib/LDFM/MainController.pm @@ -4,7 +4,17 @@ use warnings; use strict; use base 'Gtk2::GladeXML::Simple'; use Readonly; +use Path::Class; our $VERSION = '0.01'; +sub new { + my ($class,%params)=@_; + + my $glade_file=dir($params{glade_dir})->file('ldfm-main.glade'); + my $self=$class->SUPER::new($glade_file); + + return $self; +} + 1; diff --git a/resources/ldfm-main.glade b/resources/ldfm-main.glade new file mode 100644 index 0000000..8647ae8 --- /dev/null +++ b/resources/ldfm-main.glade @@ -0,0 +1,295 @@ + + + + + + + True + LDFM + GTK_WINDOW_TOPLEVEL + GTK_WIN_POS_NONE + False + True + False + True + False + False + GDK_WINDOW_TYPE_HINT_NORMAL + GDK_GRAVITY_NORTH_WEST + + + + + True + False + 0 + + + + True + False + 0 + + + + True + False + 0 + + + + True + True + True + True + 0 + + True + * + False + + + + 0 + False + False + + + + + + True + True + GTK_POLICY_AUTOMATIC + GTK_POLICY_AUTOMATIC + GTK_SHADOW_IN + GTK_CORNER_TOP_LEFT + + + + True + True + True + False + False + True + + + + + + 0 + True + True + + + + + 0 + True + True + + + + + + True + GTK_BUTTONBOX_SPREAD + 0 + + + + True + True + True + move -> + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + <- move + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + copy -> + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + <- copy + True + GTK_RELIEF_NORMAL + False + + + + + + 0 + False + False + + + + + + True + False + 0 + + + + True + True + True + True + 0 + + True + * + False + + + + 0 + False + False + + + + + + True + True + GTK_POLICY_AUTOMATIC + GTK_POLICY_AUTOMATIC + GTK_SHADOW_IN + GTK_CORNER_TOP_LEFT + + + + True + True + True + False + False + True + + + + + + 0 + True + True + + + + + 0 + True + True + + + + + 0 + True + True + + + + + + True + GTK_BUTTONBOX_SPREAD + 0 + + + + True + True + True + mkdir + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + delete + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + rename + True + GTK_RELIEF_NORMAL + False + + + + + + + True + True + True + quit + True + GTK_RELIEF_NORMAL + False + + + + + + 0 + False + True + + + + + + + diff --git a/scripts/ldfm b/scripts/ldfm index c611a8b..d8b71ff 100644 --- a/scripts/ldfm +++ b/scripts/ldfm @@ -3,6 +3,16 @@ use utf8; use strict; use warnings; use Gtk2 '-init'; +use Path::Class; use LDFM::MainController; -print "buh!\n"; +my $glade_dir=file(__FILE__) + ->parent + ->parent + ->subdir('resources'); + +my $main_controller=LDFM::MainController->new( + glade_dir => $glade_dir +); + +$main_controller->run(); -- cgit v1.2.3