IPC_StartupCode(funced_init, FunctionStartup *, startup)
#endif
{
FuncEdData *data;
// Allocate data
if (!(data=AllocVec(sizeof(FuncEdData),MEMF_CLEAR)))
return 0;
// Store data
startup->data=data;
// Initialise some pointers
data->startup=startup;
data->function=startup->function;
data->locale=startup->locale;
// Create timer
if (!(data->drag.timer=AllocTimer(UNIT_VBLANK,0)))
return 0;
// Create lists
if (!(data->func_display_list=Att_NewList(0)) ||
!(data->flag_list=Att_NewList(0)) ||
!(data->function_list=Att_NewList(0)))
return 0;
// Create app port
data->appport=CreateMsgPort();
return 1;
}
IPC_StartupCode(_filetypeed_init, filetype_ed_data *, data)
#endif
{
short a;
// Store IPC pointer
data->ipc=ipc;
// Fill in new window
data->new_win.title=data->type->type.name;
data->new_win.flags=WINDOW_VISITOR|WINDOW_REQ_FILL|WINDOW_AUTO_KEYS;
// Create timer
if (!(data->drag.timer=AllocTimer(UNIT_VBLANK,0)))
return 0;
// Open window, create action list
if (!(data->window=OpenConfigWindow(&data->new_win)) ||
!(data->objlist=AddObjectList(data->window,data->obj_def)) ||
!(data->action_list=Att_NewList(0)))
{
CloseConfigWindow(data->window);
FreeTimer(data->drag.timer);
return 0;
}
// Store window for drag
data->drag.window=data->window;
// Set window ID
SetWindowID(data->window,0,WINDOW_BUTTON_CONFIG,(struct MsgPort *)data->ipc);
// Build action list
for (a=0;data->action_lookup[a];a+=2)
{
Att_NewNode(
data->action_list,
GetString(Locale,data->action_lookup[a]),
data->action_lookup[a+1],
0);
}
// Disable edit and delete buttons
DisableObject(data->objlist,GAD_FILETYPES_EDIT_ACTION,TRUE);
// Update action and icon list
filetypeed_update_actions(data);
filetypeed_update_iconmenu(data);
// Initialise process list
InitListLock(&data->proc_list,0);
return 1;
}
int __asm __saveds L_Module_Entry(
register __a0 struct List *files,
register __a1 struct Screen *callback1,
register __a2 IPCData *callback2,
register __a3 IPCData *main_ipc,
register __d0 ULONG mod_id,
register __d1 ULONG mod_data)
{
NewConfigWindow newwin;
struct Window *window;
ObjectList *objlist;
Att_List *list;
TimerHandle *timer;
short count=0;
struct Task *task;
rego_data test={0};
// Call back to main program
((void __asm (*)
(register __a0 struct List *,
register __a1 rego_data *,
register __a2 rego_data *,
register __a3 void **,
register __d0 ULONG))callback2)(files,&test,®o,&newwin.parent,global_checksum);
// Won't work with DOpus library > 55
if (DOpusBase->lib_Version>55)
return 0;
// Fix IPC
main_ipc->proc=(struct Process *)FindTask(0);
main_ipc->proc->pr_Task.tc_UserData=main_ipc;
main_ipc->list=0;
if (!main_ipc->command_port)
main_ipc->command_port=CreateMsgPort();
// Fill out new window
newwin.parent=0;
newwin.dims=&serial_window;
newwin.title=GetString(locale,MSG_TITLE);
newwin.locale=locale;
newwin.port=0;
newwin.flags=WINDOW_VISITOR|WINDOW_NO_CLOSE|WINDOW_REQ_FILL|WINDOW_AUTO_KEYS;
newwin.font=0;
// Initialise timer
if (!(timer=AllocTimer(UNIT_VBLANK,0)))
return 0;
// Open window
if (!(window=OpenConfigWindow(&newwin)) ||
!(objlist=AddObjectList(window,serial_objects)))
{
CloseConfigWindow(window);
FreeTimer(timer);
return 0;
}
// Set ok flag
*((ULONG *)mod_data)|=(1<<28);
// Display text
list=build_text_display(window,objlist,message0);
// Start timer
StartTimer(timer,DELAY,0);
// Event loop
FOREVER
{
struct IntuiMessage *msg;
BOOL break_flag=0;
// Timer returned?
if (CheckTimer(timer))
{
// Exit
break_flag=1;
}
// Any Intuition messages?
while (msg=GetWindowMsg(window->UserPort))
{
struct IntuiMessage copy_msg;
// Copy message and reply
copy_msg=*msg;
ReplyWindowMsg(msg);
// Gadget?
if (copy_msg.Class==IDCMP_GADGETUP)
{
struct Gadget *gadget;
// Get gadget
gadget=(struct Gadget *)copy_msg.IAddress;
// Look at gadget ID
switch (gadget->GadgetID)
{
// Ok
case GAD_SERIAL_OKAY:
break_flag=1;
break;
}
}
}
if (break_flag) break;
Wait(1<<window->UserPort->mp_SigBit|1<<timer->port->mp_SigBit);
}
// Close window
CloseConfigWindow(window);
// Free list and timer
Att_RemList(list,0);
FreeTimer(timer);
// Success
return 1;
}
// Initialise a new lister
IPC_StartupCode(lister_init, Lister *, lister, static)
{
// Store IPC and lister pointers
lister->ipc=ipc;
ipc->userdata=lister;
// Store IPC pointer in backdrop info
lister->backdrop_info->ipc=ipc;
// Path history list
lister->path_history=Att_NewList(LISTF_LOCK);
// Initialise reselection
InitReselect(&lister->reselect);
lister->abort_signal=-1;
// Create message ports and signals
if (!(lister->app_port=CreateMsgPort()) ||
!(lister->timer_port=CreateMsgPort()) ||
(lister->hot_name_bit=AllocSignal(-1))==-1 ||
(lister->abort_signal=AllocSignal(-1))==-1)
return 0;
// Allocate some timers
if (!(lister->busy_timer=AllocTimer(UNIT_VBLANK,lister->timer_port)) ||
!(lister->scroll_timer=AllocTimer(UNIT_VBLANK,lister->timer_port)) ||
!(lister->edit_timer=AllocTimer(UNIT_VBLANK,lister->timer_port)) ||
!(lister->foo_timer=AllocTimer(UNIT_VBLANK,lister->timer_port)))
return 0;
StartTimer(lister->foo_timer,5,0);
// Create regions
if (!(lister->title_region=NewRegion()) ||
!(lister->refresh_extra=NewRegion()))
return 0;
// Lock buffer list
lock_listlock(&GUI->buffer_list,TRUE);
// Allocate initial buffer
if (!(lister->cur_buffer=lister_get_empty_buffer()) &&
!(lister->cur_buffer=lister_new_buffer(lister)))
return 0;
lister->cur_buffer->buf_CurrentLister=lister;
// Unlock buffer list
unlock_listlock(&GUI->buffer_list);
// Allocate "special" buffer
if (!(lister->special_buffer=buffer_new()))
return 0;
// Build popup menu
lister_build_menu(lister);
// Initialise flags
lister->flags|=LISTERF_FIRST_TIME;
lister->flags2|=LISTERF2_UNAVAILABLE;
lister->tool_sel=-1;
lister->toolbar_offset=0;
// Fix priority
lister->normal_pri=environment->env->settings.pri_lister[0];
lister->busy_pri=environment->env->settings.pri_lister[1];
SetTaskPri((struct Task *)lister->ipc->proc,lister->normal_pri);
// Get font to use
lister->lister_font.ta_Name=lister->font_name;
lister->lister_font.ta_YSize=lister->font_size;
lister->lister_font.ta_Flags=0;
lister->lister_font.ta_Style=0;
// Open font
if ((lister->font=OpenDiskFont(&lister->lister_font)))
{
// Proportional font?
if (lister->font->tf_Flags&FPF_PROPORTIONAL)
lister->more_flags|=LISTERF_PROP_FONT;
// Set font in text area
InitRastPort(&lister->text_area.rast);
SetFont(&lister->text_area.rast,lister->font);
}
return 1;
}
// Check that a screen can close if Opus disappears
BOOL check_closescreen(struct Screen *screen)
{
ULONG lock;
struct Window *window=0;
TimerHandle *timer=0;
short a;
// Try this four times
for (a=0;a<4;a++)
{
// Lock IntuitionBase
lock=LockIBase(0);
// Go through window list
for (window=screen->FirstWindow;
window;
window=window->NextWindow)
{
// Not a Workbench tool window?
if (!(window->Flags&WFLG_WBENCHWINDOW))
{
// If this is one of Opus', GetWindowID() should know about it
if (GetWindowID(window)==WINDOW_UNKNOWN)
{
BOOL ok=0;
struct Task *task=0;
// Special case for IPrefs requester - get window's task
if (window->UserPort)
task=(struct Task *)window->UserPort->mp_SigTask;
// Valid name?
if (task && task->tc_Node.ln_Name)
{
// Owned by IPrefs?
if (strcmp(task->tc_Node.ln_Name,"« IPrefs »")==0) ok=1;
}
// If not ok, fail
if (!ok) break;
}
}
}
// Unlock IntuitionBase
UnlockIBase(lock);
// Ok to shut?
if (!window) break;
// Allocate timer if don't already have it
if (!timer &&
!(timer=AllocTimer(UNIT_VBLANK,0))) break;
// Start timer and wait for it
StartTimer(timer,0,250000);
while (!CheckTimer(timer))
WaitPort(timer->port);
}
// Free timer
FreeTimer(timer);
// If window==NULL we can shut
return (BOOL)(!window);
}
