← Back to branch summary

~ubuntu-branches/debian/jessie/shutter/jessie

« back to all changes in this revision

Viewing changes to share/shutter/resources/modules/Shutter/App/Menu.pm

  • Committer: Bazaar Package Importer
  • Author(s): Ryan Niebur
  • Date: 2009-12-24 21:47:06 UTC
  • mfrom: (1.2.3 upstream) (2.2.2 squeeze)
  • mto: This revision was merged to the branch mainline in revision 5.
  • Revision ID: james.westby@ubuntu.com-20091224214706-c2ve4k7anyqhzvr1
* New Upstream Version
* update and change some deps
* update email address
* set Standards-Version to 3.8.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/shutter/resources/modules/Shutter/App/Menu.pm
39
39
 
40
40
#--------------------------------------
41
41
 
42
 
##################public subs##################
43
42
sub new {
44
43
        my $class = shift;
45
44
 
53
52
sub create_menu {
54
53
        my $self = shift;
55
54
 
56
 
        my $d           = $self->{_common}->get_gettext;
57
 
        my $window      = $self->{_common}->get_mainwindow;
58
 
        my $shutter_root = $self->{_common}->get_root;
 
55
        my $d                   = $self->{_common}->get_gettext;
 
56
        my $shutter_root        = $self->{_common}->get_root;
59
57
 
60
58
        my $accel_group = Gtk2::AccelGroup->new;
61
 
        $window->add_accel_group($accel_group);
62
 
 
63
 
        #Icontheme
64
 
        my $icontheme = $self->{_common}->get_theme;
65
 
 
 
59
        $self->{_common}->get_mainwindow->add_accel_group($accel_group);
 
60
 
 
61
        #MenuBar
66
62
        $self->{_menubar} = Gtk2::MenuBar->new();
67
63
 
68
64
        #file
 
65
        $self->{_menuitem_file} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_File') );
 
66
        $self->{_menuitem_file}->set_submenu( $self->fct_ret_file_menu( $accel_group, $d, $shutter_root ) );
 
67
        $self->{_menubar}->append( $self->{_menuitem_file} );
 
68
 
 
69
        #edit
 
70
        $self->{_menuitem_edit} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Edit') );
 
71
        $self->{_menuitem_edit}->set_submenu( $self->fct_ret_edit_menu( $accel_group, $d, $shutter_root ) );
 
72
        $self->{_menubar}->append( $self->{_menuitem_edit} );
 
73
 
 
74
        #view
 
75
        $self->{_menuitem_view} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_View') );
 
76
        $self->{_menuitem_view}->set_submenu( $self->fct_ret_view_menu( $accel_group, $d, $shutter_root ) );
 
77
        $self->{_menubar}->append( $self->{_menuitem_view} );
 
78
        
 
79
        #actions        
 
80
        $self->{_menuitem_actions} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Screenshot') );
 
81
        $self->{_menuitem_actions}->set_submenu( $self->fct_ret_actions_menu( $accel_group, $d, $shutter_root ) );
 
82
        $self->{_menubar}->append( $self->{_menuitem_actions} );
 
83
        
 
84
        #go-to  
 
85
        $self->{_menuitem_session} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Go') );
 
86
        $self->{_menuitem_session}->set_submenu( $self->fct_ret_session_menu( $accel_group, $d, $shutter_root ) );
 
87
        $self->{_menubar}->append( $self->{_menuitem_session} );
 
88
        
 
89
        #help
 
90
        $self->{_menuitem_help} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Help') );
 
91
        $self->{_menuitem_help}->set_submenu( $self->fct_ret_help_menu( $accel_group, $d, $shutter_root ) );
 
92
        $self->{_menubar}->append( $self->{_menuitem_help} );
 
93
 
 
94
        #we provide a larger (more actions) menuitem actions as well
 
95
        #this will not be added to any menu entries
 
96
        $self->fct_ret_actions_menu_large( $accel_group, $d, $shutter_root );
 
97
 
 
98
        return $self->{_menubar};
 
99
}
 
100
 
 
101
sub fct_ret_file_menu {
 
102
        my $self         = shift;
 
103
        my $accel_group  = shift;
 
104
        my $d            = shift;
 
105
        my $shutter_root = shift;
 
106
 
 
107
        #Icontheme
 
108
        my $icontheme = $self->{_common}->get_theme;
 
109
 
69
110
        $self->{_menu_file}     = Gtk2::Menu->new();
70
 
        $self->{_menuitem_file} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_File') );
71
111
 
72
112
        $self->{_menuitem_new} = Gtk2::ImageMenuItem->new_from_stock('gtk-new');
73
113
        $self->{_menuitem_new}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>N'), qw/visible/ );
76
116
 
77
117
        $self->{_menu_file}->append( Gtk2::SeparatorMenuItem->new );
78
118
 
79
 
        $self->{_menuitem_open} = Gtk2::ImageMenuItem->new_from_stock('gtk-open');
 
119
        $self->{_menuitem_open} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Open...') );
 
120
        $self->{_menuitem_open}->set_image( Gtk2::Image->new_from_stock( 'gtk-open', 'menu' ) );
80
121
        $self->{_menuitem_open}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>O'), qw/visible/ );
81
122
        $self->{_menu_file}->append( $self->{_menuitem_open} );
82
123
 
85
126
 
86
127
        $self->{_menu_file}->append( Gtk2::SeparatorMenuItem->new );
87
128
 
88
 
        $self->{_menuitem_save_as} = Gtk2::ImageMenuItem->new_from_stock('gtk-save-as');
 
129
        $self->{_menuitem_save_as} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Save _As...') );
 
130
        $self->{_menuitem_save_as}->set_image( Gtk2::Image->new_from_stock( 'gtk-save-as', 'menu' ) );
89
131
        $self->{_menuitem_save_as}->set_sensitive(FALSE);
90
132
        $self->{_menuitem_save_as}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Shift><Control>S'), qw/visible/ );
91
133
        $self->{_menu_file}->append( $self->{_menuitem_save_as} );
99
141
        $self->{_menuitem_pagesetup}->set_image(
100
142
                Gtk2::Image->new_from_icon_name( 'document-page-setup', 'menu' )
101
143
        );
 
144
        $self->{_menuitem_pagesetup}->set_sensitive(FALSE);
102
145
        $self->{_menu_file}->append( $self->{_menuitem_pagesetup} );
103
146
 
104
 
        $self->{_menuitem_print} = Gtk2::ImageMenuItem->new_from_stock('gtk-print');
 
147
        $self->{_menuitem_print} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Print...') );
 
148
        $self->{_menuitem_print}->set_image( Gtk2::Image->new_from_stock( 'gtk-print', 'menu' ) );
105
149
        $self->{_menuitem_print}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>P'), qw/visible/ );
 
150
        $self->{_menuitem_print}->set_sensitive(FALSE);
106
151
        $self->{_menu_file}->append( $self->{_menuitem_print} );
107
152
 
108
153
        $self->{_menu_file}->append( Gtk2::SeparatorMenuItem->new );
109
154
 
 
155
        $self->{_menuitem_email} = Gtk2::ImageMenuItem->new($d->get('Send by Email...'));
 
156
        $self->{_menuitem_email}->set_image(
 
157
                Gtk2::Image->new_from_icon_name( 'gnome-stock-mail-snd', 'menu' )
 
158
        );
 
159
        $self->{_menuitem_email}->set_sensitive(FALSE);
 
160
        $self->{_menuitem_email}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Shift><Control>E'), qw/visible/ );
 
161
        $self->{_menu_file}->append( $self->{_menuitem_email} );
 
162
 
 
163
        $self->{_menu_file}->append( Gtk2::SeparatorMenuItem->new );
 
164
 
110
165
        $self->{_menuitem_close} = Gtk2::ImageMenuItem->new_from_stock('gtk-close');
111
166
        $self->{_menuitem_close}->set_sensitive(FALSE);
112
167
        $self->{_menuitem_close}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>W'), qw/visible/ );
114
169
 
115
170
        $self->{_menuitem_close_all} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('C_lose all') );
116
171
        $self->{_menuitem_close_all}->set_image( Gtk2::Image->new_from_stock( 'gtk-close', 'menu' ) );
 
172
        $self->{_menuitem_close_all}->set_sensitive(FALSE);
117
173
        $self->{_menuitem_close_all}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Shift><Control>W'), qw/visible/ );
118
174
        $self->{_menu_file}->append( $self->{_menuitem_close_all} );
119
175
 
122
178
        $self->{_menuitem_quit} = Gtk2::ImageMenuItem->new_from_stock('gtk-quit');
123
179
        $self->{_menuitem_quit}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>Q'), qw/visible/ );
124
180
        $self->{_menu_file}->append( $self->{_menuitem_quit} );
125
 
 
126
 
        $self->{_menuitem_file}->set_submenu( $self->{_menu_file} );
127
 
        $self->{_menubar}->append( $self->{_menuitem_file} );
128
 
 
129
 
        #end file
130
 
 
131
 
        #edit
 
181
        
 
182
        return $self->{_menu_file};
 
183
}
 
184
        
 
185
 
 
186
sub fct_ret_edit_menu {
 
187
        my $self         = shift;
 
188
        my $accel_group  = shift;
 
189
        my $d            = shift;
 
190
        my $shutter_root = shift;
 
191
 
 
192
        #Icontheme
 
193
        my $icontheme = $self->{_common}->get_theme;
 
194
 
132
195
        $self->{_menu_edit} = Gtk2::Menu->new();
133
196
 
 
197
        $self->{_menuitem_undo} = Gtk2::ImageMenuItem->new_from_stock('gtk-undo');
 
198
        $self->{_menuitem_undo}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>Z'), qw/visible/ );
 
199
        $self->{_menuitem_undo}->set_sensitive(FALSE);
 
200
        $self->{_menu_edit}->append( $self->{_menuitem_undo} );
 
201
 
 
202
        $self->{_menuitem_redo} = Gtk2::ImageMenuItem->new_from_stock('gtk-redo');
 
203
        $self->{_menuitem_redo}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>Y'), qw/visible/ );
 
204
        $self->{_menuitem_redo}->set_sensitive(FALSE);
 
205
        $self->{_menu_edit}->append( $self->{_menuitem_redo} );
 
206
 
 
207
        $self->{_menu_edit}->append( Gtk2::SeparatorMenuItem->new );
 
208
 
134
209
        $self->{_menuitem_copy} = Gtk2::ImageMenuItem->new_from_stock('gtk-copy');
135
210
        $self->{_menuitem_copy}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>C'), qw/visible/ );
136
211
        $self->{_menuitem_copy}->set_sensitive(FALSE);
142
217
        $self->{_menuitem_copy_filename}->set_sensitive(FALSE);
143
218
        $self->{_menu_edit}->append( $self->{_menuitem_copy_filename} );
144
219
 
145
 
        $self->{_menuitem_trash} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Move to Dele_ted Items folder') );
 
220
        $self->{_menuitem_trash} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Move to _Trash') );
146
221
        $self->{_menuitem_trash}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('Delete'), qw/visible/ );
147
222
        $self->{_menuitem_trash}->set_image( Gtk2::Image->new_from_icon_name( 'gnome-stock-trash', 'menu' ) );
148
223
        $self->{_menuitem_trash}->set_sensitive(FALSE);
165
240
        $self->{_menuitem_settings}->add_accelerator( 'activate', $accel_group, $Gtk2::Gdk::Keysyms{P}, qw/mod1-mask/, qw/visible/ );
166
241
        $self->{_menu_edit}->append( $self->{_menuitem_settings} );
167
242
 
168
 
        $self->{_menuitem_edit} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Edit') );
169
 
        $self->{_menuitem_edit}->set_submenu( $self->{_menu_edit} );
170
 
        $self->{_menubar}->append( $self->{_menuitem_edit} );
171
 
 
172
 
        #end edit
173
 
 
174
 
        #view
 
243
        return $self->{_menu_edit};
 
244
}
 
245
 
 
246
sub fct_ret_view_menu {
 
247
        my $self         = shift;
 
248
        my $accel_group  = shift;
 
249
        my $d            = shift;
 
250
        my $shutter_root = shift;
 
251
 
 
252
        #Icontheme
 
253
        my $icontheme = $self->{_common}->get_theme;
 
254
 
175
255
        $self->{_menu_view} = Gtk2::Menu->new();
176
256
 
177
257
        $self->{_menuitem_zoom_in} = Gtk2::ImageMenuItem->new_from_stock('gtk-zoom-in');
203
283
        $self->{_menuitem_fullscreen} = Gtk2::CheckMenuItem->new_with_label($self->{_menuitem_fullscreen_image}->get_child->get_text);
204
284
        $self->{_menuitem_fullscreen}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('F11'), qw/visible/ );
205
285
        $self->{_menu_view}->append( $self->{_menuitem_fullscreen} );
206
 
 
207
 
        $self->{_menuitem_view} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_View') );
208
 
        $self->{_menuitem_view}->set_submenu( $self->{_menu_view} );
209
 
        $self->{_menubar}->append( $self->{_menuitem_view} );
210
 
 
211
 
        #end view
212
 
        
213
 
        #actions
214
 
        
215
 
        $self->{_menuitem_actions} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Screenshot') );
216
 
        $self->{_menuitem_actions}->set_submenu( $self->fct_ret_actions_menu( $accel_group, $d, $shutter_root ) );
217
 
        $self->{_menubar}->append( $self->{_menuitem_actions} );
218
 
 
219
 
        #end actions
220
 
        
221
 
        #session
222
 
        
 
286
        
 
287
        return $self->{_menu_view};
 
288
}       
 
289
 
 
290
sub fct_ret_session_menu {
 
291
        my $self         = shift;
 
292
        my $accel_group  = shift;
 
293
        my $d            = shift;
 
294
        my $shutter_root = shift;
 
295
 
 
296
        #Icontheme
 
297
        my $icontheme = $self->{_common}->get_theme;
 
298
 
223
299
        $self->{_menu_session} = Gtk2::Menu->new();
224
300
 
225
301
        $self->{_menuitem_back} = Gtk2::ImageMenuItem->new_from_stock('gtk-go-back');
239
315
        $self->{_menuitem_last} = Gtk2::ImageMenuItem->new_from_stock('gtk-goto-last');
240
316
        $self->{_menuitem_last}->add_accelerator( 'activate', $accel_group, $Gtk2::Gdk::Keysyms{End}, qw/mod1-mask/, qw/visible/ );
241
317
        $self->{_menu_session}->append( $self->{_menuitem_last} );
242
 
 
243
 
        $self->{_menuitem_session} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Go') );
244
 
        $self->{_menuitem_session}->set_submenu( $self->{_menu_session} );
245
 
        $self->{_menubar}->append( $self->{_menuitem_session} );
246
 
 
247
 
        #end session
248
 
        
249
 
        #help
250
 
        
 
318
        
 
319
        return $self->{_menu_session};
 
320
}       
 
321
 
 
322
sub fct_ret_help_menu {
 
323
        my $self         = shift;
 
324
        my $accel_group  = shift;
 
325
        my $d            = shift;
 
326
        my $shutter_root = shift;
 
327
 
 
328
        #Icontheme
 
329
        my $icontheme = $self->{_common}->get_theme;
 
330
 
251
331
        $self->{_menu_help} = Gtk2::Menu->new();
252
332
 
253
 
        $self->{_menuitem_question} = Gtk2::ImageMenuItem->new( $d->get('Get Help Online ...') );
 
333
        $self->{_menuitem_question} = Gtk2::ImageMenuItem->new( $d->get('Get Help Online...') );
254
334
        if($icontheme->has_icon('lpi-help')){
255
335
                $self->{_menuitem_question}->set_image(
256
336
                        Gtk2::Image->new_from_icon_name( 'lpi-help', 'menu' )           
265
345
 
266
346
        $self->{_menu_help}->append( $self->{_menuitem_question} );
267
347
 
268
 
        $self->{_menuitem_translate} = Gtk2::ImageMenuItem->new( $d->get('Translate this Application ...') );
 
348
        $self->{_menuitem_translate} = Gtk2::ImageMenuItem->new( $d->get('Translate this Application...') );
269
349
        if($icontheme->has_icon('lpi-translate')){
270
350
                $self->{_menuitem_translate}->set_image(
271
351
                        Gtk2::Image->new_from_icon_name( 'lpi-translate', 'menu' )              
301
381
        $self->{_menuitem_about}->add_accelerator( 'activate', $accel_group, $Gtk2::Gdk::Keysyms{I}, qw/control-mask/, qw/visible/ );
302
382
        $self->{_menu_help}->append( $self->{_menuitem_about} );
303
383
 
304
 
        $self->{_menuitem_help} = Gtk2::MenuItem->new_with_mnemonic( $d->get('_Help') );
305
 
        $self->{_menuitem_help}->set_submenu( $self->{_menu_help} );
306
 
 
307
 
        $self->{_menubar}->append( $self->{_menuitem_help} );
308
 
 
309
 
        return $self->{_menubar};
310
 
}
 
384
        return $self->{_menu_help};
 
385
}       
311
386
 
312
387
sub fct_ret_new_menu {
313
 
        my $self        = shift;
314
 
        my $accel_group = shift;
315
 
        my $d           = shift;
 
388
        my $self         = shift;
 
389
        my $accel_group  = shift;
 
390
        my $d            = shift;
316
391
        my $shutter_root = shift;
317
392
 
318
393
        #Icontheme
319
394
        my $icontheme = $self->{_common}->get_theme;
320
395
 
321
 
        $self->{_menu_new}           = Gtk2::Menu->new;
 
396
        $self->{_menu_new} = Gtk2::Menu->new;
322
397
        
323
398
        #selection
324
399
        $self->{_menuitem_selection} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Selection') );
372
447
        }
373
448
        $self->{_menu_new}->append( $self->{_menuitem_section} );
374
449
 
 
450
        #menu
 
451
        $self->{_menuitem_menu} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Menu') );
 
452
        if($icontheme->has_icon('alacarte')){
 
453
                $self->{_menuitem_menu}->set_image( Gtk2::Image->new_from_icon_name( 'alacarte', 'menu' ) );            
 
454
        }else{
 
455
                $self->{_menuitem_menu}->set_image(
 
456
                        Gtk2::Image->new_from_pixbuf(
 
457
                                Gtk2::Gdk::Pixbuf->new_from_file_at_size(
 
458
                                        "$shutter_root/share/shutter/resources/icons/sel_window_menu.svg",
 
459
                                        Gtk2::IconSize->lookup('menu')
 
460
                                )
 
461
                        )
 
462
                );
 
463
        }
 
464
        $self->{_menu_new}->append( $self->{_menuitem_menu} );
 
465
 
 
466
        #tooltip
 
467
        $self->{_menuitem_tooltip} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Tooltip') );
 
468
        #~ if($icontheme->has_icon('alacarte')){
 
469
                #~ $self->{_menuitem_tooltip}->set_image( Gtk2::Image->new_from_icon_name( 'alacarte', 'menu' ) );              
 
470
        #~ }else{
 
471
                $self->{_menuitem_tooltip}->set_image(
 
472
                        Gtk2::Image->new_from_pixbuf(
 
473
                                Gtk2::Gdk::Pixbuf->new_from_file_at_size(
 
474
                                        "$shutter_root/share/shutter/resources/icons/sel_window_tooltip.svg",
 
475
                                        Gtk2::IconSize->lookup('menu')
 
476
                                )
 
477
                        )
 
478
                );
 
479
        #~ }
 
480
        $self->{_menu_new}->append( $self->{_menuitem_tooltip} );
 
481
 
375
482
        $self->{_menu_new}->append( Gtk2::SeparatorMenuItem->new );
376
483
 
377
484
        #web
387
494
        }
388
495
        $self->{_menu_new}->append( $self->{_menuitem_web} );
389
496
 
 
497
        $self->{_menu_new}->append( Gtk2::SeparatorMenuItem->new );
 
498
 
 
499
        #import from clipboard
 
500
        $self->{_menuitem_iclipboard} = Gtk2::ImageMenuItem->new_from_stock('gtk-paste');
 
501
        $self->{_menuitem_iclipboard}->get_child->set_text_with_mnemonic( $d->get('Import from clip_board') );
 
502
        $self->{_menuitem_iclipboard}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control><Shift>V'), qw/visible/ );
 
503
        $self->{_menu_new}->append( $self->{_menuitem_iclipboard} );
 
504
 
390
505
        $self->{_menu_new}->show_all;
391
506
 
392
507
        return $self->{_menu_new};
417
532
        $self->{_menuitem_reopen}->set_name('item-reopen-list');
418
533
        $self->{_menu_actions}->append( $self->{_menuitem_reopen} );
419
534
 
420
 
        $self->{_menuitem_rename} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Rename') );
 
535
        $self->{_menuitem_rename} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Rename...') );
421
536
        $self->{_menuitem_rename}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('F2'), qw/visible/ ) if $accel_group;
422
537
        $self->{_menuitem_rename}->set_image( Gtk2::Image->new_from_stock( 'gtk-edit', 'menu' ) );
423
538
        $self->{_menuitem_rename}->set_sensitive(FALSE);
426
541
 
427
542
        $self->{_menu_actions}->append( Gtk2::SeparatorMenuItem->new );
428
543
 
429
 
        $self->{_menuitem_upload} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Upload / Export') );
 
544
        $self->{_menuitem_send} = Gtk2::ImageMenuItem->new($d->get('Send To...'));
 
545
        $self->{_menuitem_send}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>S'), qw/visible/ );
 
546
        $self->{_menuitem_send}->set_image(
 
547
                Gtk2::Image->new_from_icon_name( 'document-send', 'menu' )
 
548
        );
 
549
        $self->{_menuitem_send}->set_sensitive(FALSE);
 
550
        $self->{_menuitem_send}->set_name('item-send');
 
551
        $self->{_menu_actions}->append( $self->{_menuitem_send} );
 
552
 
 
553
        $self->{_menuitem_upload} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('E_xport...') );
430
554
        $self->{_menuitem_upload}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>U'), qw/visible/ ) if $accel_group;
431
555
        $self->{_menuitem_upload}->set_image( Gtk2::Image->new_from_stock( 'gtk-network', 'menu' ) );
432
556
        $self->{_menuitem_upload}->set_sensitive(FALSE);
435
559
 
436
560
        $self->{_menu_actions}->append( Gtk2::SeparatorMenuItem->new );
437
561
 
438
 
        $self->{_menuitem_draw} = Gtk2::ImageMenuItem->new_from_stock( 'gtk-edit' );
 
562
        $self->{_menuitem_draw} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Edit...') );
 
563
        $self->{_menuitem_draw}->set_image( Gtk2::Image->new_from_stock( 'gtk-edit', 'menu' ) );
439
564
        $self->{_menuitem_draw}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control>E'), qw/visible/ ) if $accel_group;
440
565
        if($icontheme->has_icon('applications-graphics')){
441
566
                $self->{_menuitem_draw}->set_image( Gtk2::Image->new_from_icon_name( 'applications-graphics', 'menu' ) );               
451
576
        $self->{_menuitem_draw}->set_name('item-draw');
452
577
        $self->{_menu_actions}->append( $self->{_menuitem_draw} );
453
578
 
454
 
        $self->{_menuitem_plugin} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Execute a _plugin') );
 
579
        $self->{_menuitem_plugin} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Run a _plugin...') );
455
580
        $self->{_menuitem_plugin}->add_accelerator( 'activate', $accel_group, Gtk2::Accelerator->parse('<Control><Shift>P'), qw/visible/ ) if $accel_group;
456
581
        $self->{_menuitem_plugin}->set_image( Gtk2::Image->new_from_stock( 'gtk-execute', 'menu' ) );
457
582
        $self->{_menuitem_plugin}->set_sensitive(FALSE);
464
589
        
465
590
}
466
591
 
 
592
sub fct_ret_actions_menu_large{
 
593
        my $self        = shift;
 
594
        my $accel_group = shift;
 
595
        my $d           = shift;
 
596
        my $shutter_root = shift;
 
597
        
 
598
        #Icontheme
 
599
        my $icontheme = $self->{_common}->get_theme;
 
600
        
 
601
        $self->{_menu_large_actions} = Gtk2::Menu->new();
 
602
 
 
603
        $self->{_menuitem_large_reopen_default} = Gtk2::ImageMenuItem->new_with_mnemonic( 
 
604
                        sprintf( $d->get('_Open with %s'), ''),
 
605
                );
 
606
        $self->{_menuitem_large_reopen_default}->set_image( Gtk2::Image->new_from_stock( 'gtk-open', 'menu' ) );
 
607
        $self->{_menuitem_large_reopen_default}->set_sensitive(FALSE);
 
608
        $self->{_menuitem_large_reopen_default}->set_name('item-large-reopen-default');
 
609
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_reopen_default} );
 
610
 
 
611
        $self->{_menuitem_large_reopen} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Open wit_h') );
 
612
        $self->{_menuitem_large_reopen}->set_image( Gtk2::Image->new_from_stock( 'gtk-open', 'menu' ) );
 
613
        $self->{_menuitem_large_reopen}->set_sensitive(FALSE);
 
614
        $self->{_menuitem_large_reopen}->set_name('item-large-reopen-list');
 
615
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_reopen} );
 
616
 
 
617
        $self->{_menuitem_large_rename} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Rename...') );
 
618
        $self->{_menuitem_large_rename}->set_image( Gtk2::Image->new_from_stock( 'gtk-edit', 'menu' ) );
 
619
        $self->{_menuitem_large_rename}->set_sensitive(FALSE);
 
620
        $self->{_menuitem_large_rename}->set_name('item-large-rename');
 
621
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_rename} );
 
622
 
 
623
        $self->{_menu_large_actions}->append( Gtk2::SeparatorMenuItem->new );
 
624
 
 
625
        $self->{_menuitem_large_send} = Gtk2::ImageMenuItem->new($d->get('Send To...'));
 
626
        $self->{_menuitem_large_send}->set_image(
 
627
                Gtk2::Image->new_from_icon_name( 'document-send', 'menu' )
 
628
        );
 
629
        $self->{_menuitem_send}->set_sensitive(FALSE);
 
630
        $self->{_menuitem_send}->set_name('item-large-send');
 
631
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_send} );
 
632
 
 
633
        $self->{_menuitem_large_upload} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('E_xport...') );
 
634
        $self->{_menuitem_large_upload}->set_image( Gtk2::Image->new_from_stock( 'gtk-network', 'menu' ) );
 
635
        $self->{_menuitem_large_upload}->set_sensitive(FALSE);
 
636
        $self->{_menuitem_large_upload}->set_name('item-large-upload');
 
637
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_upload} );
 
638
 
 
639
        $self->{_menu_large_actions}->append( Gtk2::SeparatorMenuItem->new );
 
640
 
 
641
        $self->{_menuitem_large_copy} = Gtk2::ImageMenuItem->new_from_stock('gtk-copy');
 
642
        $self->{_menuitem_large_copy}->set_sensitive(FALSE);
 
643
        $self->{_menuitem_large_copy}->set_name('item-large-copy');
 
644
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_copy} );
 
645
 
 
646
        $self->{_menuitem_large_copy_filename} = Gtk2::ImageMenuItem->new_from_stock('gtk-copy');
 
647
        $self->{_menuitem_large_copy_filename}->get_child->set_text_with_mnemonic( $d->get('Copy _filename') ); 
 
648
        $self->{_menuitem_large_copy_filename}->set_sensitive(FALSE);
 
649
        $self->{_menuitem_large_copy_filename}->set_name('item-large-copy-filename');
 
650
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_copy_filename} );
 
651
 
 
652
        $self->{_menuitem_large_trash} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Move to _Trash') );
 
653
        $self->{_menuitem_large_trash}->set_image( Gtk2::Image->new_from_icon_name( 'gnome-stock-trash', 'menu' ) );
 
654
        $self->{_menuitem_large_trash}->set_sensitive(FALSE);
 
655
        $self->{_menuitem_large_trash}->set_name('item-large-trash');
 
656
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_trash} );
 
657
 
 
658
        $self->{_menu_large_actions}->append( Gtk2::SeparatorMenuItem->new );
 
659
 
 
660
        $self->{_menuitem_large_draw} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('_Edit...') );
 
661
        $self->{_menuitem_large_draw}->set_image( Gtk2::Image->new_from_stock( 'gtk-edit', 'menu' ) );
 
662
        if($icontheme->has_icon('applications-graphics')){
 
663
                $self->{_menuitem_large_draw}->set_image( Gtk2::Image->new_from_icon_name( 'applications-graphics', 'menu' ) );         
 
664
        }else{
 
665
                $self->{_menuitem_large_draw}->set_image(
 
666
                        Gtk2::Image->new_from_pixbuf(
 
667
                                Gtk2::Gdk::Pixbuf->new_from_file_at_size( "$shutter_root/share/shutter/resources/icons/draw.svg", Gtk2::IconSize->lookup('menu') )
 
668
                        )
 
669
                );
 
670
        }
 
671
        
 
672
        $self->{_menuitem_large_draw}->set_sensitive(FALSE);
 
673
        $self->{_menuitem_large_draw}->set_name('item-large-draw');
 
674
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_draw} );
 
675
 
 
676
        $self->{_menuitem_large_plugin} = Gtk2::ImageMenuItem->new_with_mnemonic( $d->get('Run a _plugin...') );
 
677
        $self->{_menuitem_large_plugin}->set_image( Gtk2::Image->new_from_stock( 'gtk-execute', 'menu' ) );
 
678
        $self->{_menuitem_large_plugin}->set_sensitive(FALSE);
 
679
        $self->{_menuitem_large_plugin}->set_name('item-large-plugin');
 
680
        $self->{_menu_large_actions}->append( $self->{_menuitem_large_plugin} );
 
681
        
 
682
        $self->{_menu_large_actions}->show_all;
 
683
        
 
684
        return $self->{_menu_large_actions};
 
685
        
 
686
}
 
687
 
467
688
1;