view release on metacpan or  search on metacpan

bin/mdi_editor  view on Meta::CPAN

 		[	'menu_separator',	'Edit::', 		'e1' ], 
		[	'menu_normal',		'Edit::',		"U~ndo",					'<Control-z>'	,			'edit-undo',		'*CTRL+Z'			], 
		[	'menu_normal',		'Edit::',		"~Redo",					'<Control-Z>'	,			'edit-redo',		'*CTRL+SHIFT+Z'	], 
		[	'menu_separator',	'Edit::', 		'e2' ], 
		[	'menu_normal',		'Edit::',		"~Select all",			'<Control-a>',				'edit-select-all','*CTRL+A'			], 
	],
	-extensions => [qw[Art DI ToolBar StatusBar MenuBar Selector Help Settings]],
	-toolitems => [
#			 type					label			cmd					icon					help		
		[	'tool_separator' ],
		[	'tool_button',		'Copy',		'<Control-c>',		'edit-copy',		'Copy selected text to clipboard'], 
		[	'tool_button',		'Cut',		'<Control-x>',		'edit-cut',			'Move selected text to clipboard'], 
		[	'tool_button',		'Paste',		'<Control-v>',		'edit-paste',		'Paste clipboard content into document'], 
		[	'tool_separator' ],
		[	'tool_button',		'Undo',		'<Control-z>',		'edit-undo',		'Undo last action'], 
		[	'tool_button',		'Redo',		'<Control-Z>',		'edit-redo',		'Cancel undo'], 
	],
	-useroptions => [
		'*page' => 'Editing',
		'*section' => 'User interface',
		-contentforeground => ['color', 'Foreground'],
		-contentbackground => ['color', 'Background'],
		-contentfont => ['font', 'Font'],

bin/simple_editor  view on Meta::CPAN

 		[	'menu_separator',	'Edit::', 		'e1' ], 
		[	'menu_normal',		'Edit::',		"U~ndo",					'<Control-z>'	,			'edit-undo',		'*CTRL+Z'			], 
		[	'menu_normal',		'Edit::',		"~Redo",					'<Control-Z>'	,			'edit-redo',		'*CTRL+SHIFT+Z'	], 
		[	'menu_separator',	'Edit::', 		'e2' ], 
		[	'menu_normal',		'Edit::',		"~Select all",			'<Control-a>',				'edit-select-all','*CTRL+A'			], 
	],
	-extensions => [qw[Art MenuBar SDI ToolBar StatusBar Help Settings]],
	-toolitems => [
#			 type					label			cmd					icon					help		
		[	'tool_separator' ],
		[	'tool_button',		'Copy',		'<Control-c>',		'edit-copy',		'Copy selected text to clipboard'], 
		[	'tool_button',		'Cut',		'<Control-x>',		'edit-cut',			'Move selected text to clipboard'], 
		[	'tool_button',		'Paste',		'<Control-v>',		'edit-paste',		'Paste clipboard content into document'], 
		[	'tool_separator' ],
		[	'tool_button',		'Undo',		'<Control-z>',		'edit-undo',		'Undo last action'], 
		[	'tool_button',		'Redo',		'<Control-Z>',		'edit-redo',		'Cancel undo'], 
	],
	-useroptions => [
		'*page' => 'Editing',
		'*section' => 'User interface',
		-contentforeground => ['color', 'Foreground'],
		-contentbackground => ['color', 'Background'],
		-contentfont => ['font', 'Font'],

lib/Tk/AppWindow/Ext/Help.pm  view on Meta::CPAN

				$row++
			}
		}
		$lp->Button(
			-text => 'Copy',
			-command => sub {
				my $text = '';
				for (0 .. $row - 1) {
					$text = $text . $cl->infoData($_);
				}
				$self->clipboardClear;
				$self->clipboardAppend($text);
			}
		)->pack;
	} else {
		$ap = $db->Frame->pack(-expand => 1, -fill => 'both') unless defined $ap;
	}

	my $lg = $self->configGet('-logo');
	if (defined $lg) {
		$ap->Label(-image => $self->Photo(-file => $lg))->pack;
	}