oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added drag and drop content

Browse source
This commit is contained in:
JT Smith 2004-02-15 19:11:00 +00:00
parent 9f94bbead8
commit 6d7d53bbff
16 changed files with 527 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lib/WebGUI/Icon.pm
View file

@ -22,7 +22,7 @@ use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&helpIcon &becomeIcon &cutIcon &copyIcon &deleteIcon &editIcon
&moveBottomIcon &moveDownIcon &moveLeftIcon &moveRightIcon &moveTopIcon &moveUpIcon
&pageIcon &shortcutIcon &pasteIcon &wobjectIcon &viewIcon);
&pageIcon &dragIcon &shortcutIcon &pasteIcon &wobjectIcon &viewIcon);
=head1 NAME
@ -38,6 +38,7 @@ A package for generating user interface buttons. The subroutines found herein do
$html = copyIcon('op=something');
$html = cutIcon('op=something');
$html = deleteIcon('op=something');
$html = dragIcon();
$html = editIcon('op=something');
$html = helpIcon(1,"MyNamespace");
$html = moveBottomIcon('op=something');
@ -118,7 +119,7 @@ sub cutIcon {
=head2 deleteIcon ( urlParameters [, pageURL ] )
Generates a button with an "X" printed on it.
Generates a button that represents a delete operation.
=over
@ -144,6 +145,18 @@ sub deleteIcon {
#-------------------------------------------------------------------
=head2 dragIcon ( )
Generates an icon that can be used to drag content.
=cut
sub dragIcon {
return '<img id="dragTrigger" class="dragTrigger" src="'.$session{config}{extrasURL}.'/toolbar/'.$session{language}{toolbar}.'/drag.gif" align="middle" border="0" alt="Drag" title="Drag" />';
}
#-------------------------------------------------------------------
=head2 editIcon ( urlParameters [, pageURL ] )
Generates a button with the word "Edit" printed on it.
@ -471,7 +484,7 @@ Generates an icon that looks like a wobject. It's purpose is to represent whethe
=cut
sub wobjectIcon {
return '<img class="dragTrigger" src="'.$session{config}{extrasURL}.'/toolbar/'.$session{language}{toolbar}.'/wobject.gif" align="middle" border="0" alt="Wobject Settings" title="Wobject Settings" />';
return '<img src="'.$session{config}{extrasURL}.'/toolbar/'.$session{language}{toolbar}.'/wobject.gif" align="middle" border="0" alt="Wobject Settings" title="Wobject Settings" />';
}