// 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;
}
// 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;
}
// Run PopUp function
void popup_run_func(PopUpExt *ext,BackdropObject *object,char *filename,Lister *source)
{
char *buffer,*ptr;
Cfg_Function *func=0;
PopUpExt *check;
// Lock PopUp list
lock_listlock(&GUI->popupext_list,FALSE);
// Check function is still valid
for (check=(PopUpExt *)GUI->popupext_list.list.lh_Head;
check->pe_Node.ln_Succ && check!=ext;
check=(PopUpExt *)check->pe_Node.ln_Succ);
// Valid?
if (check==ext)
{
// Allocate buffer
if ((buffer=AllocVec(580,MEMF_CLEAR)))
{
// Copy command name to buffer
stccpy(buffer,check->pe_Command,580);
// Get pointer to end
ptr=buffer+strlen(buffer);
// Add space
*(ptr++)=' ';
*ptr=0;
// Got filename?
if (filename)
{
// Add filename in quotes
lsprintf(ptr,"\"%s\"",filename);
}
// Got icon?
else
if (object)
{
BPTR lock;
// Disk?
if (object->type==BDO_DISK)
{
// Get device name
if (object->device_name)
{
// Add device name in quotes
lsprintf(ptr,"\"%s\"",object->device_name);
}
}
// Otherwise
else
{
// Add quote
*(ptr++)='\"';
// Get object lock
if ((lock=backdrop_icon_lock(object)))
{
// Get path
DevNameFromLockDopus(lock,ptr,512);
UnLock(lock);
}
// Add name to path
AddPart(ptr,object->name,512);
// Add trailing quote
strcat(ptr,"\"");
}
}
// Create function
func=new_default_function(buffer,global_memory_pool);
// Free buffer
FreeVec(buffer);
}
}
// Unlock list
unlock_listlock(&GUI->popupext_list);
// No function?
if (!func) return;
// Set flag to free function automatically
func->function.flags2|=FUNCF2_FREE_FUNCTION;
// Launch function
function_launch_quick(
FUNCTION_RUN_FUNCTION,
func,
source);
}
// 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);
}
// Snapshot objects
void backdrop_snapshot(BackdropInfo *info,BOOL unsnapshot,BOOL all,BackdropObject *icon)
{
BackdropObject *object;
Lister *lister;
IPCData *ipc;
BPTR old,lock;
short count=0,beep=0;
#ifdef DISTINCT_OK
BOOL save_env=0;
#endif
BOOL savepos=0;
// Lock backdrop list
lock_listlock(&info->objects,0);
// Lock lister list
lock_listlock(&GUI->lister_list,0);
// Lock group list
lock_listlock(&GUI->group_list,0);
// Go through backdrop list
for (object=(BackdropObject *)info->objects.list.lh_Head;
object->node.ln_Succ;
object=(BackdropObject *)object->node.ln_Succ)
{
BOOL ok=0;
// Icon supplied?
if (icon)
{
// Does it match?
if (object!=icon || !object->icon) continue;
}
// Is object selected?
else
if ((!object->state && !all) || !object->icon) continue;
beep=1;
// Appicon?
if (object->type==BDO_APP_ICON)
{
// Does icon support snapshot itself?
if (WB_AppIconFlags((struct AppIcon *)object->misc_data)&APPENTF_SNAPSHOT)
{
backdrop_appicon_message(object,(unsnapshot)?BAPPF_UNSNAPSHOT:0);
++count;
}
// Otherwise, fake snapshot
else
if (*object->name) ok=1;
}
// Otherwise, is it ok to snapshot?
else
if (object->type!=BDO_BAD_DISK) ok=1;
// Ok to snapshot?
if (ok)
{
short x,y;
// UnShapshot?
if (unsnapshot)
{
// Set "no position" position
x=-1;
y=-1;
}
// Snapshot
else
{
// Drawer?
if (object->icon->do_DrawerData)
{
// Group icon?
if (object->type==BDO_GROUP)
{
GroupData *group;
// See if group is open
if ((group=backdrop_find_group(object)))
{
// Update window position
*((struct IBox *)&object->icon->do_DrawerData->dd_NewWindow.LeftEdge)=group->dimensions;
}
}
// Otherwise go through listers
else
for (ipc=(IPCData *)GUI->lister_list.list.lh_Head;
ipc->node.mln_Succ;
ipc=(IPCData *)ipc->node.mln_Succ)
{
// Get lister
lister=IPCDATA(ipc);
// Is lister from this icon?
if (lister->backdrop==object)
{
// Update lister
PositionUpdate(lister,POSUPF_SAVE);
break;
}
}
}
// Get position
x=object->pos.Left;
y=object->pos.Top;
}
// AppIcon?
if (object->type==BDO_APP_ICON)
{
leftout_record *left;
// Lock position list
lock_listlock(&GUI->positions,TRUE);
// Look for entry for icon
for (left=(leftout_record *)&GUI->positions.list.lh_Head;
left->node.ln_Succ;
left=(leftout_record *)left->node.ln_Succ)
{
// Leftout?
if (left->node.ln_Type==PTYPE_APPICON)
{
// Match this icon?
if (strcmp(left->icon_label,object->name)==0)
break;
}
}
// Didn't find one?
if (!(left->node.ln_Succ) && !unsnapshot)
{
// Create a new entry
if ((left=AllocMemH(GUI->position_memory,sizeof(leftout_record))))
{
// Fill out entry
stccpy(left->icon_label,object->name,sizeof(left->icon_label));
left->node.ln_Name=left->name;
left->node.ln_Type=PTYPE_APPICON;
// Add to list
AddTail((struct List *)&GUI->positions,(struct Node *)left);
}
}
// Got one?
if (left->node.ln_Succ)
{
// Unsnapshot?
if (unsnapshot)
{
// Remove entry and free it
Remove((struct Node *)left);
FreeMemH(left);
}
// Update entry
else
{
ULONG iflags;
// Adjust for borders?
if (!((iflags=GetIconFlags(object->icon))&ICONF_BORDER_OFF) &&
(!(environment->env->desktop_flags&DESKTOPF_NO_BORDERS) || (iflags&ICONF_BORDER_ON)))
{
// Shift back by border size
x-=ICON_BORDER_X;
y-=ICON_BORDER_Y_TOP;
}
// Save position
left->icon_x=x;
left->icon_y=y;
left->flags&=~LEFTOUTF_NO_POSITION;
}
// Set flag to save positions
savepos=1;
}
// Can't snapshot for some reason
else
if (!unsnapshot) beep=1;
// Unlock position list
unlock_listlock(&GUI->positions);
}
// Left-out on desktop?
else
if (object->type==BDO_LEFT_OUT && !(object->flags&BDOF_DESKTOP_FOLDER) && info->flags&BDIF_MAIN_DESKTOP)
{
leftout_record *left;
// Lock position list
lock_listlock(&GUI->positions,0);
// Look for entry for icon
for (left=(leftout_record *)&GUI->positions.list.lh_Head;
left->node.ln_Succ;
left=(leftout_record *)left->node.ln_Succ)
{
// Leftout?
if (left->node.ln_Type==PTYPE_LEFTOUT)
{
// Match this icon?
if (object->misc_data==(ULONG)left) break;
}
}
// Got one?
if (left->node.ln_Succ)
{
// Save position
left->icon_x=x;
left->icon_y=y;
left->flags&=~LEFTOUTF_NO_POSITION;
// Set flag to save positions
savepos=1;
}
// Must be temporary
else beep=1;
// Unlock position list
unlock_listlock(&GUI->positions);
}
#ifdef DISTINCT_OK
// Distinct icon positions?
else
if (environment->env->desktop_flags&DESKTOPF_DISTINCT &&
info->flags&BDIF_MAIN_DESKTOP)
{
// Snapshot icon for this environment
desktop_snapshot_icon(object,x,y);
save_env=1;
}
#endif
// Group icon?
else
if (info->flags&BDIF_GROUP)
{
// Snapshot in group
group_snapshot_icon(info,object,x,y);
}
// Save to icon
else
{
// Using Workbench positions?
if (environment->env->display_options&DISPOPTF_ICON_POS)
{
// Set position
object->icon->do_CurrentX=(unsnapshot)?NO_ICON_POSITION:x-WBICONMAGIC_X;
object->icon->do_CurrentY=(unsnapshot)?NO_ICON_POSITION:y-WBICONMAGIC_Y;
// Removing Opus positions?
if (environment->env->display_options&DISPOPTF_REMOPUSPOS)
{
// Remove Opus position from icon
SetIconFlags(object->icon,GetIconFlags(object->icon)&~ICONF_POSITION_OK);
}
}
// Using Opus positions
else
{
// Set "position ok" flag
SetIconFlags(object->icon,GetIconFlags(object->icon)|ICONF_POSITION_OK);
// Update icon position
SetIconPosition(object->icon,x,y);
}
// Get icon lock
if ((lock=backdrop_icon_lock(object)))
{
// Change directory
old=CurrentDir(lock);
// Save this object out
if (!(WriteIcon((object->icon->do_Type==WBDISK)?"Disk":object->name,object->icon)))
beep=1;
// Success; is this in a lister?
else
if (info->lister)
{
char name[256];
// Get icon name
strcpy(name,(object->icon->do_Type==WBDISK)?"Disk":object->name);
strcat(name,".info");
// Reload the file
rexx_lister_reload_file(info->lister,name);
}
// Restore directory
CurrentDir(old);
UnLock(lock);
}
}
++count;
}
// Icon supplied?
if (icon) break;
}
// Failed to do anything?
if (!count && beep) DisplayBeep(info->window->WScreen);
// Unlock group list
unlock_listlock(&GUI->group_list);
// Unlock backdrop list
unlock_listlock(&info->objects);
// Unlock lister list
unlock_listlock(&GUI->lister_list);
#ifdef DISTINCT_OK
// Save environment file?
if (save_env && environment->env->flags&ENVF_CHANGED)
{
// Save environment
if (environment_save(environment,environment->path,0,0))
environment->env->flags&=~ENVF_CHANGED;
}
#endif
// Save positions?
if (savepos)
{
// Lock list
lock_listlock(&GUI->positions,0);
// Save list
SavePositions(&GUI->positions.list,GUI->position_name);
// Unlock list
unlock_listlock(&GUI->positions);
}
// If this is a lister, update its datestamp
if (info->lister) update_buffer_stamp(info->lister);
}
