// Run a function from a button
void buttons_run_button(Buttons *buttons,Cfg_Button *button,short which)
{
Cfg_Function *function;
// Get the function to run
if (!(function=button_valid(button,which)))
return;
// Launch function
function_launch(
FUNCTION_RUN_FUNCTION,
function,
0,
0,
0,0,
0,0,
0,0,
buttons);
}
// Handle drop on an object
BOOL desktop_drop_on_object(BackdropInfo *info,DOpusAppMessage **msg,BackdropObject *drop_obj,UWORD qual)
{
char *name;
short ret=1;
// Allocate buffer
if (!(name=AllocVec(1024,0))) return 1;
// Was it an AppIcon?
if (drop_obj->type==BDO_APP_ICON)
{
// Is the icon busy?
if (drop_obj->flags&BDOF_BUSY)
{
// Flash error
DisplayBeep(info->window->WScreen);
}
// Otherwise, pass message on
else
{
struct MsgPort *port;
// Turn message into an AppIcon one
(*msg)->da_Msg.am_Type=MTYPE_APPICON;
// Get port and info
port=WB_AppWindowData(
(struct AppWindow *)drop_obj->misc_data,
&(*msg)->da_Msg.am_ID,
&(*msg)->da_Msg.am_UserData);
// Fix reply port
(*msg)->da_Msg.am_Message.mn_ReplyPort=GUI->appmsg_port;
// Send the message on
PutMsg(port,(struct Message *)*msg);
// Zero message pointer
*msg=0;
}
}
// Was it a group?
else
if (drop_obj->type==BDO_GROUP)
{
short arg;
GroupData *group;
BOOL ok=0;
// Find group if it's open
lock_listlock(&GUI->group_list,0);
if (!(group=backdrop_find_group(drop_obj)))
unlock_listlock(&GUI->group_list);
// Go through arguments
for (arg=0;arg<(*msg)->da_Msg.am_NumArgs;arg++)
{
// Valid file?
if ((*msg)->da_Msg.am_ArgList[arg].wa_Name &&
*(*msg)->da_Msg.am_ArgList[arg].wa_Name)
{
// Get filename
GetWBArgPath(&(*msg)->da_Msg.am_ArgList[arg],name,512);
// Send add message to group if it's open
if (group)
{
char *copy;
// Copy name
if ((copy=AllocVec(strlen(name)+1,0)))
{
strcpy(copy,name);
IPC_Command(group->ipc,GROUP_ADD_ICON,0,0,copy,0);
ok=1;
}
}
// Otherwise add object to group
else
{
backdrop_group_add_object(drop_obj->name,0,name,-1,-1);
ok=1;
}
}
}
// Show error if no ok
if (!ok) DisplayBeep(GUI->screen_pointer);
// Unlock process list if it's locked
if (group) unlock_listlock(&GUI->group_list);
}
// Or a project?
else
if (drop_obj->icon->do_Type==WBPROJECT)
{
// Is it an Opus command?
if (command_filetype)
{
BPTR lock,old;
// Set failure initially
ret=0;
// Get lock on directory
if ((lock=backdrop_icon_lock(drop_obj)))
{
// Go there
old=CurrentDir(lock);
// See if it's a command
if (filetype_match_type(drop_obj->name,command_filetype))
{
// Run command with args
backdrop_object_open(
info,
drop_obj,
0,
0,
(*msg)->da_Msg.am_NumArgs,
(*msg)->da_Msg.am_ArgList);
ret=1;
}
// Restore CD
CurrentDir(old);
}
}
// Beep if not a command
if (!ret) DisplayBeep(GUI->screen_pointer);
}
// Or a tool?
else
if (drop_obj->icon->do_Type==WBTOOL)
{
// Run program with args
backdrop_object_open(
info,
drop_obj,
0,
0,
(*msg)->da_Msg.am_NumArgs,
(*msg)->da_Msg.am_ArgList);
}
// Or a disk/directory?
else
if (drop_obj->icon->do_Type==WBDISK ||
drop_obj->icon->do_Type==WBDRAWER ||
drop_obj->icon->do_Type==WBGARBAGE)
{
struct ArgArray *arg_array;
// Get arg array
if ((arg_array=AppArgArray(*msg,AAF_ALLOW_DIRS)))
{
BPTR lock;
// Get pathname of first file
DevNameFromLockDopus((*msg)->da_Msg.am_ArgList[0].wa_Lock,name,512);
// Need source directory; if no name, get parent
if ((!(*msg)->da_Msg.am_ArgList[0].wa_Name ||
!*(*msg)->da_Msg.am_ArgList[0].wa_Name) &&
(lock=ParentDir((*msg)->da_Msg.am_ArgList[0].wa_Lock)))
{
// Get pathname of parent
DevNameFromLockDopus(lock,name,512);
UnLock(lock);
}
// Get destination path
if ((lock=backdrop_icon_lock(drop_obj)))
{
short action;
// Get path
DevNameFromLockDopus(lock,name+512,512);
UnLock(lock);
// Is object a left-out?
if (drop_obj->type==BDO_LEFT_OUT)
{
// Add left-out name
AddPart(name+512,drop_obj->name,512);
}
// Get filetype action
if (qual&IEQUALIFIER_CONTROL) action=FTTYPE_CTRL_DRAGDROP;
else
if (qual&(IEQUALIFIER_LALT|IEQUALIFIER_RALT)) action=FTTYPE_ALT_DRAGDROP;
else
action=FTTYPE_DRAG_DROP;
// Do filetype action on files
function_launch(
FUNCTION_FILETYPE,
0,
action,
FUNCF_DRAG_DROP|FUNCF_ICONS,
0,0,
name,name+512,
arg_array,
0,
(Buttons *)CopyAppMessage(*msg,global_memory_pool));
}
}
}
else ret=0;
FreeVec(name);
return ret;
}
void desktop_drop(BackdropInfo *info,DOpusAppMessage *msg,UWORD qual)
{
BackdropObject *drop_obj;
short ok=0,x,y;
char *name,*source_path;
short arg,action=DESKTOP_POPUP_LEFTOUT;
struct ArgArray *array=0;
struct ArgArrayEntry *aae;
BOOL check;
// Lock backdrop list
lock_listlock(&info->objects,0);
// See if we dropped stuff on an object
if ((drop_obj=backdrop_get_object(info,msg->da_Msg.am_MouseX,msg->da_Msg.am_MouseY,0)))
{
// Is shift/alt down?
if ((qual&(IEQUALIFIER_LSHIFT|IEQUALIFIER_LALT))==(IEQUALIFIER_LSHIFT|IEQUALIFIER_LALT))
{
char pathname[256];
// Get path of first file
GetWBArgPath(&msg->da_Msg.am_ArgList[0],pathname,256);
// Replace the image
backdrop_replace_icon_image(info,pathname,drop_obj);
// Reply the message
ReplyAppMessage(msg);
}
// Handle drop on an object
else
if (desktop_drop_on_object(info,&msg,drop_obj,qual))
{
// Reply the message
ReplyAppMessage(msg);
}
// Not dropped
else drop_obj=0;
}
// Unlock backdrop list
unlock_listlock(&info->objects);
// Dropped on an object?
if (drop_obj) return;
// Get buffer
if (!(name=AllocVec(1024,MEMF_CLEAR))) return;
source_path=name+512;
// Popup menu?
if (environment->env->env_flags&ENVF_DESKTOP_FOLDER)
{
UWORD res;
// Activate the underlying menu
ActivateWindow(info->window);
// Default action set?
if (environment->env->desktop_popup_default>DESKTOP_POPUP_NONE &&
!(qual&(IEQUALIFIER_LSHIFT|IEQUALIFIER_RSHIFT)))
{
// Use default action
action=environment->env->desktop_popup_default;
}
// Ask user what they want to do
else
if ((res=DoPopUpMenu(info->window,&GUI->desktop_menu->ph_Menu,0,SELECTDOWN))==(UWORD)-1 || res==MENU_DESKTOP_CANCEL)
{
// Cancelled
FreeVec(name);
return;
}
// Help?
else
if (res&POPUP_HELPFLAG)
{
// Do help
help_menu_help(res&~POPUP_HELPFLAG,0);
// Cancelled
FreeVec(name);
return;
}
// Get action
else
if (res==MENU_DESKTOP_COPY) action=DESKTOP_POPUP_COPY;
else
if (res==MENU_DESKTOP_MOVE) action=DESKTOP_POPUP_MOVE;
}
// Set busy pointer
SetBusyPointer(info->window);
// DOpus message?
check=CheckAppMessage(msg);
// Go through arguments
for (arg=0;arg<msg->da_Msg.am_NumArgs;arg++)
{
// What operation?
switch (action)
{
// Leave out?
case DESKTOP_POPUP_LEFTOUT:
// Get path name
GetWBArgPath(&msg->da_Msg.am_ArgList[arg],name,512);
// Ignore if it's an icon or a disk
if (!(isicon(name)) && name[strlen(name)-1]!=':')
{
short len,perm=0;
BackdropObject *icon;
// Permanent?
if (GUI->flags2&GUIF2_BENIFY)
perm=1;
// Get position
x=msg->da_Msg.am_MouseX;
y=msg->da_Msg.am_MouseY;
// Drop from DOpus?
if (check)
{
// Adjust position for icon offset
x+=msg->da_DragOffset.x+msg->da_DropPos[arg].x;
y+=msg->da_DragOffset.y+msg->da_DropPos[arg].y;
}
// Strip trailing /
len=strlen(name)-1;
if (name[len]=='/') name[len]=0;
// Leave this out
if ((icon=backdrop_leave_out(info,name,(perm)?BLOF_PERMANENT:0,x,y)))
{
// Position it
backdrop_place_object(info,icon);
// Save for permanent leftout
if (perm) backdrop_save_leftouts(info);
ok=1;
}
}
break;
// Copy/Move
case DESKTOP_POPUP_COPY:
case DESKTOP_POPUP_MOVE:
{
BOOL dir=0;
// Create ArgArray if needed
if (!array &&
!(array=NewArgArray())) break;
// Get path name
GetWBArgPath(&msg->da_Msg.am_ArgList[arg],name,512);
// Set flag if a directory
if (!msg->da_Msg.am_ArgList[arg].wa_Name ||
!*msg->da_Msg.am_ArgList[arg].wa_Name) dir=1;
// Get source path
if (!*source_path)
{
char *ptr;
// Copy from name
strcpy(source_path,name);
// Strip last part
if ((ptr=FilePart(source_path))) *ptr=0;
}
// Create argument
if ((aae=NewArgArrayEntry(array,FilePart(name))))
{
// Set directory flag
if (dir) aae->ae_Flags|=AEF_DIR;
// Set OK flag
ok=1;
}
}
break;
}
}
// Successful?
if (ok)
{
// Left-outs?
if (action==DESKTOP_POPUP_LEFTOUT)
{
// Refresh
backdrop_show_objects(info,BDSF_RECALC);
}
// Otherwise, launch function
else
{
// Launch the function
function_launch(
FUNCTION_RUN_FUNCTION_EXTERNAL,
(action==DESKTOP_POPUP_COPY)?def_function_copy:def_function_move,
0,
FUNCF_ICONS|FUNCF_RESCAN_DESKTOP|FUNCF_DRAG_DROP|FUNCF_COPY_NO_MOVE,
0,0,
source_path,environment->env->desktop_location,
array,
0,
(Buttons *)CopyAppMessage(msg,global_memory_pool));
}
}
// Otherwise, free array
else FreeArgArray(array);
// Free buffer
FreeVec(name);
// Clear busy pointer
ClearPointer(info->window);
// Reply the message
ReplyAppMessage(msg);
}
// Handle some appstuff
BOOL buttons_app_message(Buttons *buttons,DOpusAppMessage *msg)
{
short col,row;
Cfg_Button *button;
Cfg_Function *function;
struct ArgArray *arg_array;
IPCData *ipc;
// Lock process list
lock_listlock(&GUI->process_list,FALSE);
// See if button editor is running
ipc=IPC_FindProc(&GUI->process_list,NAME_BUTTON_EDITOR_RUN,FALSE,0);
// Unlock process list
unlock_listlock(&GUI->process_list);
// Editor running?
if (ipc)
{
// Send button
if (buttons_edit_bank(buttons,-1,-1,0,(struct AppMessage *)msg,0))
{
// Message was swallowed
return 1;
}
}
// Lock bank
GetSemaphore(&buttons->bank->lock,SEMF_SHARED,0);
// Get button and function we dropped on
col=msg->da_Msg.am_MouseX;
row=msg->da_Msg.am_MouseY;
if (!(button=button_from_point(buttons,&col,&row)) ||
!(function=button_valid(button,button->current)))
{
FreeSemaphore(&buttons->bank->lock);
return 0;
}
// Get arg array
if ((arg_array=AppArgArray(msg,AAF_ALLOW_DIRS)))
{
BPTR lock;
char pathname[256];
// Get pathname of first file
DevNameFromLockDopus(msg->da_Msg.am_ArgList[0].wa_Lock,pathname,256);
// Need source directory; if no name, get parent
if ((!msg->da_Msg.am_ArgList[0].wa_Name ||
!*msg->da_Msg.am_ArgList[0].wa_Name) &&
(lock=ParentDir(msg->da_Msg.am_ArgList[0].wa_Lock)))
{
// Get pathname of parent
DevNameFromLockDopus(lock,pathname,256);
UnLock(lock);
}
// Launch function
function_launch(
FUNCTION_RUN_FUNCTION_EXTERNAL,
function,
0,
0,
0,0,
pathname,0,
arg_array,0,
buttons);
}
// Unlock button lock
FreeSemaphore(&buttons->bank->lock);
return 0;
}
// Run a function on some icons
void icon_function(BackdropInfo *info,BackdropObject *only_one,char *data,Cfg_Function *func,ULONG flags)
{
short count=0;
struct ArgArray *array;
BackdropObject *object;
DirBuffer *buffer=0;
char *source_path=0;
// Lock backdrop list
lock_listlock(&info->objects,1);
// Go through backdrop list
for (object=(BackdropObject *)info->objects.list.lh_Head;
object->node.ln_Succ;
object=(BackdropObject *)object->node.ln_Succ)
{
// Skip invalid icons
if (object->type!=BDO_LEFT_OUT ||
(!info->lister && !(object->flags&BDOF_DESKTOP_FOLDER))) continue;
// Want this icon?
if (!only_one || only_one==object)
{
// Is object selected?
if ((only_one || object->state) && object->icon)
{
// Increment counts
if (object->icon->do_Type==WBDRAWER ||
object->icon->do_Type==WBGARBAGE ||
object->icon->do_Type==WBPROJECT ||
object->icon->do_Type==WBTOOL)
++count;
// Only doing one?
if (only_one) break;
}
}
}
// Nothing to work on?
if (count==0 ||
!(array=NewArgArray()))
{
unlock_listlock(&info->objects);
return;
}
// Got a lister?
if (info->lister)
{
// Lock buffer
buffer_lock((buffer=info->lister->cur_buffer),FALSE);
}
// Source path from icon?
else
if (only_one && only_one->path &&
(source_path=AllocVec(strlen(only_one->path)+1,0)))
strcpy(source_path,only_one->path);
// Otherwise, assume this is the desktop folder
else
if (info->flags&BDIF_MAIN_DESKTOP &&
(source_path=AllocVec(strlen(environment->env->desktop_location)+1,0)))
strcpy(source_path,environment->env->desktop_location);
// Go through backdrop list again
for (object=(BackdropObject *)info->objects.list.lh_Head;
object->node.ln_Succ;
object=(BackdropObject *)object->node.ln_Succ)
{
// Skip invalid icons
if (object->type!=BDO_LEFT_OUT ||
(!info->lister && !(object->flags&BDOF_DESKTOP_FOLDER))) continue;
// Want this icon?
if (!only_one || only_one==object)
{
// Is object selected?
if ((only_one || object->state) && object->icon)
{
char name[80];
BOOL dir=0,link=0,icon=0;
DirEntry *entry=0;
struct ArgArrayEntry *aae;
// Build name
stccpy(name,object->name,sizeof(name));
// Got a buffer?
if (buffer)
{
// See if we can find this entry
if ((entry=find_entry(&buffer->entry_list,object->name,0,buffer->more_flags&DWF_CASE)) ||
(entry=find_entry(&buffer->reject_list,object->name,0,buffer->more_flags&DWF_CASE)))
{
// Directory?
if (entry->de_Node.dn_Type>=ENTRY_DEVICE) dir=1;
// Link?
if (entry->de_Flags&ENTF_LINK) link=1;
// See if entry has icon
if (find_entry(&buffer->entry_list,object->name,0,(buffer->more_flags&DWF_CASE)|FINDENTRY_ICON) ||
find_entry(&buffer->reject_list,object->name,0,(buffer->more_flags&DWF_CASE)|FINDENTRY_ICON))
icon=1;
}
// If not, use the .info name
else
{
// Add .info
strcat(name,".info");
}
}
// Desktop folder?
else
if (info->flags&BDIF_MAIN_DESKTOP)
{
// Assume the file has an icon
icon=1;
}
// Get type from icon
if (!entry)
{
if (object->icon->do_Type==WBDRAWER ||
object->icon->do_Type==WBGARBAGE) dir=1;
if (object->flags&BDOF_LINK_ICON) link=1;
}
// Tack on a / for directories
if (dir) strcat(name,"/");
// Allocate array entry
if (aae=NewArgArrayEntry(array,name))
{
// Dir?
if (dir) aae->ae_Flags|=AEF_DIR;
// Link?
if (link) aae->ae_Flags|=AEF_LINK;
// No icon?
if (!icon) aae->ae_Flags|=AEF_FAKE_ICON;
}
// Only doing one?
if (only_one) break;
}
}
}
// Unlock buffer
if (buffer) buffer_unlock(buffer);
// Get flags we need
flags|=(data && *data)?FUNCF_ICONS:FUNCF_ICONS|FUNCF_ASK_DEST;
// Launch the function
function_launch(
FUNCTION_RUN_FUNCTION_EXTERNAL,
func,
0,
flags,
info->lister,0,
(info->lister)?info->lister->cur_buffer->buf_Path:source_path,data,
array,
0,0);
// Free source path
FreeVec(source_path);
// Unlock list
unlock_listlock(&info->objects);
}
// Drop some objects on another one
void backdrop_drop_object(BackdropInfo *info,BackdropObject *on_object)
{
BackdropObject *object;
char *buf,*dbuf;
struct InfoData __aligned data;
BPTR lock;
if (!(buf=AllocVec(512,0)))
return;
dbuf=buf+256;
// Drop on an AppIcon
if (on_object->type==BDO_APP_ICON)
{
DOpusAppMessage *msg;
struct MsgPort *port;
// Is the icon busy?
if (on_object->flags&BDOF_BUSY)
{
DisplayBeep(info->window->WScreen);
FreeVec(buf);
return;
}
// Build AppMessage
if (!(msg=backdrop_appmessage(info,1)))
{
FreeVec(buf);
return;
}
// Set message type
msg->da_Msg.am_Type=MTYPE_APPICON;
// Get AppInfo
port=WB_AppWindowData(
(struct AppWindow *)on_object->misc_data,
&msg->da_Msg.am_ID,
&msg->da_Msg.am_UserData);
// Send the message
PutMsg(port,(struct Message *)msg);
FreeVec(buf);
return;
}
// Only support dropping on disks at the moment
if ((on_object->type!=BDO_DISK && on_object->type!=BDO_BAD_DISK) ||
on_object->flags&(BDOF_ASSIGN|BDOF_CACHE))
{
DisplayBeep(info->window->WScreen);
FreeVec(buf);
return;
}
// Go through backdrop list
for (object=(BackdropObject *)info->objects.list.lh_Head;
object->node.ln_Succ;
object=(BackdropObject *)object->node.ln_Succ)
{
// Selected disk?
if (object->type==BDO_DISK && !(object->flags&(BDOF_ASSIGN|BDOF_CACHE)) && object->state)
{
BPTR lock;
// Get disk lock
if (lock=backdrop_icon_lock(object))
{
// This is the source
Info(lock,&data);
// Get device name
DeviceFromLock(lock,buf);
// Unlock lock
UnLock(lock);
}
break;
}
}
// Didn't get anything?
if (!object->node.ln_Succ)
{
DisplayBeep(info->window->WScreen);
FreeVec(buf);
return;
}
// Drop on a bad disk?
if (on_object->type==BDO_BAD_DISK)
{
// Get device name
strcpy(dbuf,on_object->name);
}
// Real disk
else
{
// Get destination disk lock
if (!(lock=backdrop_icon_lock(on_object)))
{
FreeVec(buf);
return;
}
// Destination is the one we dropped it on
Info(lock,&data);
// Get device name
DeviceFromLock(lock,dbuf);
UnLock(lock);
}
// Launch diskcopy
function_launch(
FUNCTION_RUN_FUNCTION,
def_function_diskcopy,
0,
0,
0,0,
0,0,
BuildArgArray(buf,dbuf,0),
0,0);
FreeVec(buf);
}
