// Find an entry in a list
DirEntry *find_entry(struct MinList *list,char *name,long *offset,short case_sens)
{
DirEntry *entry=0;
// Valid list?
if (list && !(IsListEmpty((struct List *)list)))
{
char *icon_name=0;
// Look for icon?
if (case_sens&FINDENTRY_ICON)
{
// Don't already have .info?
if (!isicon(name))
{
// Allocate icon name
if ((icon_name=AllocVec(strlen(name)+6,0)))
{
// Get name
strcpy(icon_name,name);
// Add .info suffix
strcat(icon_name,".info");
// Use as new name pointer
name=icon_name;
}
}
}
// Zero offset
if (offset) *offset=0;
// Go through list
for (entry=(DirEntry *)list->mlh_Head;
entry->de_Node.dn_Succ;
entry=(DirEntry *)entry->de_Node.dn_Succ)
{
// See if name matches
if (case_sens&DWF_CASE)
{
if (strcmp(name,entry->de_Node.dn_Name)==0) break;
}
else if (stricmp(name,entry->de_Node.dn_Name)==0) break;
// Increment offset
if (offset) ++(*offset);
}
// Invalid?
if (!entry->de_Node.dn_Succ) entry=0;
// Free icon name
if (icon_name) FreeVec(icon_name);
}
// Return entry
return entry;
}
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);
}
// Get icon for an object
void backdrop_get_icon(BackdropInfo *info,BackdropObject *object,short flags)
{
short x,y,border_x=0,border_y=0;
BOOL new_icon=1;
// Keeping icon?
if (flags&GETICON_KEEP) new_icon=0;
// Not AppIcon?
if (object->type!=BDO_APP_ICON && !(flags&GETICON_POS_ONLY))
{
BPTR lock=0,old=0;
// Already got icon?
if (object->icon && !(flags&GETICON_KEEP))
{
// Free icon remapping
RemapIcon(object->icon,(info->window)?info->window->WScreen:0,1);
// Free icon
FreeCachedDiskObject(object->icon);
object->icon=0;
// We'll be getting a new one
new_icon=1;
}
// Bad disk?
if (object->type==BDO_BAD_DISK)
{
// Get default disk
if (!object->icon && !(object->icon=GetCachedDefDiskObject(WBKICK)))
object->icon=GetCachedDefDiskObject(WBDISK);
}
// Default directory icon?
else
if (flags&GETICON_DEFDIR)
{
// Get default drawer icon
if (!object->icon) object->icon=GetCachedDefDiskObject(WBDRAWER);
}
// Get lock on directory
else
if (!(flags&GETICON_CD) || (lock=backdrop_icon_lock(object)))
{
// Go to icon directory
if (lock) old=CurrentDir(lock);
// Disk?
if (object->type==BDO_DISK)
{
// No icon already?
if (!object->icon)
{
BOOL ok=1;
Cfg_Filetype *type=0;
char name[256],*ptr;
// Find a filetype-defined icon
if (object->device_name &&
(type=filetype_identify(object->device_name,FTTYPE_ICON,0,0)))
{
// Copy icon path, strip .info
strcpy(name,type->icon_path);
if (ptr=isicon(name)) *ptr=0;
// Over-ride flag set in filetype?
if (type->type.flags&FILETYPEF_OVERRIDE)
{
// Try for filetype icon first
object->icon=GetCachedDiskObject(name,0);
}
}
// Don't have icon yet?
if (!object->icon)
{
// Is this a MSDOS disk?
if (object->misc_data==ID_MSDOS_DISK)
{
// See if icon actually exists
if (type && !(SetProtection("Disk.info",FIBF_ARCHIVE)) &&
IoErr()==ERROR_OBJECT_NOT_FOUND)
{
// We'll use default icon
ok=0;
}
}
// Get disk icon
if (ok)
object->icon=GetCachedDiskObject("Disk",0);
}
// Got icon?
if (object->icon)
{
// If it's a drawer icon, turn it into a disk
if (object->icon->do_Type==WBDRAWER)
object->icon->do_Type=WBDISK;
// Check it is for a disk
if (object->icon->do_Type!=WBDISK)
{
// It's not, free it and use default
FreeCachedDiskObject(object->icon);
object->icon=0;
}
}
// Still no icon? Get default
if (!object->icon && !(flags&GETICON_FAIL))
{
// Got type-defined?
if (type)
{
// Try for filetype icon
object->icon=GetCachedDiskObject(name,0);
}
// Still none? Get default
if (!object->icon)
object->icon=GetCachedDefDiskObject(WBDISK);
// Set fake flag
if (object->icon)
object->flags|=BDOF_FAKE_ICON;
}
}
}
// Left out or group
else
if (object->type==BDO_LEFT_OUT || object->type==BDO_GROUP)
{
// Try for icon
if (!object->icon)
{
short fake=0;
// Want real icon?
if (flags&GETICON_FAIL) object->icon=GetCachedDiskObject(object->name,0);
// Get default icon if fails
else object->icon=GetProperIcon(object->name,&fake,0);
// Ended up fake?
if (fake)
{
// Set flag
object->flags|=BDOF_FAKE_ICON;
}
}
// Got group icon?
if (object->icon && object->type==BDO_GROUP)
{
// Auto-open group?
if (FindToolType(object->icon->do_ToolTypes,"OPEN"))
object->flags|=BDOF_AUTO_OPEN;
}
}
// Had a lock?
if (lock)
{
// Got icon?
if (object->icon)
{
// Clear custom position flag
object->flags&=~BDOF_CUSTOM_POS;
#ifdef DISTINCT_OK
// Main desktop, distinct positions?
if (info->flags&BDIF_MAIN_DESKTOP &&
environment->env->desktop_flags&DESKTOPF_DISTINCT)
{
char path[256];
// Get icon path
if (desktop_icon_path(object,path,256,lock))
{
// See if position is available
if (desktop_find_icon(path,&object->custom_pos))
{
// Set "custom position" flag
object->flags|=BDOF_CUSTOM_POS;
}
}
}
#endif
}
// Restore current dir
CurrentDir(old);
// Unlock object lock
UnLock(lock);
}
}
// Failed to even get a lock; get default icon if a disk
else
if (object->type==BDO_DISK)
{
// Get default icon
if (!object->icon && (object->icon=GetCachedDefDiskObject(WBDISK)))
object->flags|=BDOF_FAKE_ICON;
}
}
// Got an icon?
if (object->icon)
{
// Ended up fake?
if (object->flags&BDOF_FAKE_ICON)
{
// Make sure default icon has no position
if (object->icon)
{
// Clear 'position ok' flag, set invalid position
SetIconFlags(object->icon,GetIconFlags(object->icon)&~ICONF_POSITION_OK);
SetIconPosition(object->icon,-1,-1);
object->icon->do_CurrentX=NO_ICON_POSITION;
object->icon->do_CurrentY=NO_ICON_POSITION;
}
}
// If this is a group, make sure icon is a drawer
if (object->type==BDO_GROUP)
object->icon->do_Type=WBDRAWER;
// Is it a new icon?
if (new_icon)
{
// Window open?
if (info->window)
{
// Remap the icon
RemapIcon(object->icon,info->window->WScreen,0);
// Set flag
object->flags|=BDOF_REMAPPED;
}
}
// Transparent icon?
if (!backdrop_icon_border(object))
{
border_x=0;
border_y=0;
}
else
{
border_x=ICON_BORDER_X;
border_y=ICON_BORDER_Y;
}
// No label?
if ((GetIconFlags(object->icon)&ICONF_NO_LABEL) && !(environment->env->desktop_flags&DESKTOPF_NO_NOLABELS))
object->flags|=BDOF_NO_LABEL;
else
object->flags&=~BDOF_NO_LABEL;
}
// No icon, or no size stuff?
if (!object->icon || flags&GETICON_NO_POS) return;
// Get masks
if (!(flags&GETICON_KEEP)) backdrop_get_masks(object);
// Get object size
object->pos.Width=object->icon->do_Gadget.Width;
object->pos.Height=object->icon->do_Gadget.Height;
// (Re)position?
if (!(flags&GETICON_SAVE_POS))
{
// No position initially
object->flags|=BDOF_NO_POSITION;
// Auto position?
if (object->flags&BDOF_AUTO_POSITION)
{
return;
}
// Custom position?
else
if (object->flags&(BDOF_CUSTOM_POS|BDOF_LEFTOUT_POS))
{
// Get custom position
x=(object->custom_pos>>16)&0xffff;
y=object->custom_pos&0xffff;
}
