// Display a buffer in a lister
// Called from LISTER PROCESS
void lister_show_buffer(Lister *lister,DirBuffer *buffer,int show,BOOL active)
{
// Different to current buffer?
if (lister->cur_buffer!=buffer)
{
// End a direct edit
lister_end_edit(lister,0);
// Clear lock pointer in current buffer
buffer_clear_lock(lister->cur_buffer,0);
// Free icons
backdrop_free_list(lister->backdrop_info);
// Store new buffer pointer
lister->cur_buffer=buffer;
buffer->buf_CurrentLister=lister;
// Remove buffer and add to head of list
Remove(&buffer->node);
AddHead(&GUI->buffer_list.list,&buffer->node);
// See if buffer needs to be resorted
lister_resort(lister,0);
// Clear save status flag
lister->flags&=~LISTERF_SAVE_STATUS;
// Does new buffer have a custom handler?
if (lister->cur_buffer->buf_CustomHandler[0] && active)
{
// Send active message
buffer_active(lister->cur_buffer,0);
}
// Add to history list
lister_add_history(lister);
}
// Initialise path field
if (show && lister_valid_window(lister))
{
// Is volume present?
if (!lister->cur_buffer->buf_CustomHandler[0] &&
VolumePresent(buffer))
{
BPTR lock;
struct FileInfoBlock __aligned fib;
// Lock path
if (lock=Lock(buffer->buf_Path,ACCESS_READ))
{
// Store full path
NameFromLock(lock,buffer->buf_ExpandedPath,512);
AddPart(buffer->buf_ExpandedPath,"",512);
// Examine object
Examine(lock,&fib);
UnLock(lock);
// Save object name
if (fib.fib_FileName[0])
strcpy(buffer->buf_ObjectName,fib.fib_FileName);
else
{
if (buffer->flags&DWF_ROOT)
{
char *ptr;
stccpy(buffer->buf_ObjectName,buffer->buf_ExpandedPath,GUI->def_filename_length-1);
if (ptr=strchr(buffer->buf_ObjectName,':')) *ptr=0;
}
else stccpy(buffer->buf_ObjectName,FilePart(buffer->buf_ExpandedPath),GUI->def_filename_length-1);
}
}
// Failed to lock
else strcpy(buffer->buf_ExpandedPath,buffer->buf_Path);
// Update disk name and size
lister_update_name(lister);
}
// No, refresh disk name from buffer
else lister_show_name(lister);
// Not showing icons?
if (!(lister->flags&LISTERF_VIEW_ICONS) || lister->flags&LISTERF_ICON_ACTION)
{
// Update path field
lister_update_pathfield(lister);
// Refresh window
lister_refresh_display(lister,REFRESHF_SLIDERS|REFRESHF_STATUS|REFRESHF_CLEAR_ICONS);
// Show selection information
select_show_info(lister,1);
}
}
}
// Add or remove fuel gauge
void lister_set_gauge(Lister *lister,BOOL refresh)
{
BOOL want,change=0;
// If lister is closed, problem is moot
if (!lister->window ||
(lister->more_flags&LISTERF_TITLEBARRED)) return;
// See if lister wants a gauge
want=lister_want_gauge(lister);
// Does lister have gauge and we don't want it to?
if (lister->gauge_gadget && !want)
{
// Remove the gadget
RemoveGList(lister->window,lister->gauge_gadget,1);
// Free gadget
DisposeObject((Object *)lister->gauge_gadget);
lister->gauge_gadget=0;
// Fix border width
lister->window->BorderLeft=lister->old_border_left;
// Free pens
lister_init_colour(lister,ENVCOL_GAUGE,TRUE);
// Set change flag
change=1;
}
// Or, do we not have it but want it?
else
if (!lister->gauge_gadget && want)
{
// Initialise pens
lister_init_colour(lister,ENVCOL_GAUGE,FALSE);
// Create gauge
if ((lister->gauge_gadget=(struct Gadget *)
NewObject(
0,
"dopusgaugeclass",
GA_ID,GAD_GAUGE,
GA_Left,0,
GA_Top,lister->window->BorderTop,
GA_Width,lister->window->BorderRight,
GA_RelHeight,-lister->window->BorderTop-lister->window->BorderBottom+3,
GA_LeftBorder,TRUE,
DGG_FillPen,lister->lst_Colours[ENVCOL_GAUGE].cr_Pen[0],
DGG_FillPenAlert,lister->lst_Colours[ENVCOL_GAUGE].cr_Pen[1],
TAG_END)))
{
// Fix border width
lister->window->BorderLeft=lister->window->BorderRight;
// Add gauge to window after parent button
AddGList(lister->window,lister->gauge_gadget,-1,1,0);
RefreshGList(lister->gauge_gadget,lister->window,0,1);
// Set change flag
change=1;
}
// Failed
else
{
// Free pens
lister_init_colour(lister,ENVCOL_GAUGE,TRUE);
}
}
// Changed?
if (change)
{
// Fix left border related things
lister->window->GZZWidth=lister->window->Width-lister->window->BorderLeft-lister->window->BorderRight;
lister->parent_button.Width=lister->window->BorderLeft;
}
// Changed and need to refresh?
if (change && refresh)
{
// Initialise and refresh
lister_init_display(lister);
lister_refresh(lister,LREFRESH_FULL|LREFRESH_FULL_ICON);
// If the path field is added, refresh it
if (lister->path_field && lister->flags&LISTERF_PATH_FIELD)
{
struct gpResize resize;
// Fill out resize packet
resize.MethodID=GM_RESIZE;
resize.gpr_GInfo=0;
resize.gpr_RPort=0;
resize.gpr_Size.Left=lister->window->BorderLeft;
resize.gpr_Size.Top=-(lister->window->BorderBottom+FIELD_FONT->tf_YSize+4);
resize.gpr_Size.Width=-(lister->window->BorderLeft+lister->window->BorderRight);
resize.gpr_Size.Height=FIELD_FONT->tf_YSize+4;
resize.gpr_Redraw=0;
resize.gpr_Window=lister->window;
resize.gpr_Requester=0;
// Tell string gadget to resize
DoMethodA((Object *)lister->path_field,(Msg)&resize);
// Erase behind path field
SetAPen(lister->window->RPort,3);
RectFill(
lister->window->RPort,
lister->window->BorderLeft,
lister->window->Height+lister->path_field->TopEdge-2,
lister->window->Width-lister->window->BorderRight-1,
lister->window->Height+lister->path_field->TopEdge+lister->path_field->Height+1);
// Refresh path field
RefreshGList(lister->path_field,lister->window,0,1);
}
// Refresh the window frame
RefreshWindowFrame(lister->window);
// Do we have the gauge?
if (lister->gauge_gadget)
{
// Refresh title and gauge
lister_show_name(lister);
}
}
}
