/*

Directory Opus 4
Original GPL release version 4.12
Copyright 1993-2000 Jonathan Potter

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

All users of Directory Opus 4 (including versions distributed
under the GPL) are entitled to upgrade to the latest version of
Directory Opus version 5 at a reduced price. Please see
http://www.gpsoft.com.au for more information.

The release of Directory Opus 4 under the GPL in NO WAY affects
the existing commercial status of Directory Opus 5.

*/

#include "DOpus.h"

#define BUTPROP 1
#define BUTEXIT 2

static struct AppIcon *appicon;
static struct Image iconbutpropimage;
static struct PropInfo
	iconbutpropinfo={
		AUTOKNOB|FREEVERT|PROPNEWLOOK|PROPBORDERLESS,0,0,0,0x3000};

USHORT __chip
	uniconifydata[2][20]={
		{0x3f80,0xa0a0,0x2080,0xa0a0,0x3f80,0x8020,0x0000,0x8020,
			0x0000,0xaaa0,
		0x0000,0x1f00,0x1f00,0x1f00,0x0000,0x0000,0x0000,0x0000,
			0x0000,0x0000},
		{0xffe0,0x8020,0xffe0,0x8020,0x8020,0x8020,0x8020,0x8020,
			0x8020,0xffe0,
		0x0000,0x7fc0,0x0000,0x7fc0,0x7fc0,0x7fc0,0x7fc0,0x7fc0,
			0x7fc0,0x0000}};

struct Image
	uniconifyimage[2]={
		{0,0,11,10,2,uniconifydata[0],3,0,NULL},
		{0,0,11,10,2,uniconifydata[1],3,0,NULL}};

struct Gadget
	dummybordergad={
		NULL,-18,0,17,10,
		GFLG_GADGHNONE|GFLG_RELRIGHT,
		GACT_RIGHTBORDER,
		GTYP_BOOLGADGET,
		NULL,NULL,NULL,NULL,NULL,0,NULL},
	iconbutpropgad={
		&dummybordergad,-14,0,11,0,
		GFLG_GADGHNONE|GFLG_RELRIGHT,
		GACT_IMMEDIATE|GACT_RELVERIFY|GACT_FOLLOWMOUSE|GACT_RIGHTBORDER,
		GTYP_PROPGADGET,
		(APTR)&iconbutpropimage,NULL,NULL,NULL,(APTR)&iconbutpropinfo,BUTPROP,NULL},
	iconbutexitgad={
		&iconbutpropgad,0,0,11,10,
		GFLG_GADGIMAGE|GFLG_GADGHIMAGE|GFLG_RELRIGHT,
		GACT_RELVERIFY|GACT_RIGHTBORDER,
		GTYP_BOOLGADGET,(APTR)&uniconifyimage[0],(APTR)&uniconifyimage[1],
		NULL,NULL,NULL,BUTEXIT,NULL};

struct NewWindow
	icon_win={
		100,0,433,10,255,255,
		ICON_IDCMP,
		WFLG_CLOSEGADGET|WFLG_RMBTRAP|WFLG_DRAGBAR|WFLG_DEPTHGADGET,
		NULL,NULL,NULL,NULL,NULL,0,0,0,0,WBENCHSCREEN},
	appicon_win={
		0,0,1,1,255,255,ICON_IDCMP,
		WFLG_BACKDROP|WFLG_BORDERLESS|WFLG_SIMPLE_REFRESH|WFLG_NOCAREREFRESH,
		NULL,NULL,NULL,NULL,NULL,0,0,0,0,WBENCHSCREEN};

static int icon_tx,icon_ty,icon_len,icon_fpen,icon_bpen,icon_maxlen;
static int icon_type,icon_gotclock;
static struct TextFont *winfont;
static char icontitletext[200];
static struct DOpusRemember *icon_key;
static struct MsgPort *iconify_time_port;
static struct timerequest iconify_timereq;

static struct DiskObject iconify_appicon={
	0,0,
		{NULL,0,0,80,41,GADGBACKFILL,0,0,
		(APTR)&appicon_image,NULL,NULL,NULL,NULL,NULL,NULL},
	0,NULL,NULL,NO_ICON_POSITION,NO_ICON_POSITION,NULL,NULL,NULL};

void iconify(louise,buttons,banknum)
int louise,buttons,banknum;
{
	ULONG class;
	USHORT code,gadgetid;
	struct DOpusDateTime dt;
	struct Screen scrbuf,*sptr;
	struct DrawInfo *drinfo;
	int
		wmes,chipc,fast,h,m,s,waitbits,
		a,b,nheight,nwidth,buttonrows,oldrows,olddata_gadgetrow_offset,x,y,x1,y1,c,d,w,
		fastnum,chipnum,bankcount,bankstep,menunum,itemnum,num,cdelay,
		usage,oldusage=100;
	char date[16],time[16],buf[50],buf1[50],buf2[50],ampm,formstring[100],*old;
	struct dopusgadgetbanks *bank,*oldbank,**bankarray;
	struct dopushotkey *hotkey;
	struct dopusfuncpar par;
	struct AppMessage *amsg;
	struct MenuItem *item;

	endnotifies();
	shutthingsdown(louise);

	status_iconified=1; status_flags&=~STATUS_ISINBUTTONS; cdelay=0;
	GetWBScreen(&scrbuf);
	nwidth=scrbuf.Width; nheight=scrbuf.Height;
	winfont=scrbuf.RastPort.Font;
	appicon=NULL; icon_key=NULL;
	icon_type=config->icontype;

	if (system_version2 && (sptr=LockPubScreen("Workbench"))) {
		drinfo=GetScreenDrawInfo(sptr);
		icon_fpen=drinfo->dri_Pens[FILLTEXTPEN];
		icon_bpen=drinfo->dri_Pens[FILLPEN];
		FreeScreenDrawInfo(sptr,drinfo);
		UnlockPubScreen(NULL,sptr);
	}
	else {
		icon_fpen=1; icon_bpen=0;
	}

	oldrows=config->gadgetrows;
	oldbank=dopus_curgadbank;
	olddata_gadgetrow_offset=data_gadgetrow_offset;

	if (buttons) {
		bank=dopus_firstgadbank; bankcount=0;
		while (bank) {
			++bankcount;
			bank=bank->next;
		}
		if ((bankarray=LAllocRemember(&icon_key,bankcount*4,MEMF_CLEAR))) {
			bank=dopus_firstgadbank;
			for (a=0;a<bankcount;a++) {
				bankarray[a]=bank;
				bank=bank->next;
			}
		}
		else bankcount=0;
		icon_win.LeftEdge=config->iconbutx; icon_win.TopEdge=config->iconbuty;
		icon_type&=~(ICON_NOWINDOW|ICON_APPICON);
		if (buttons>1) {
			buttonrows=buttons-1;
			if (buttonrows!=2 && buttonrows!=3 && buttonrows!=6)
				buttonrows=config->gadgetrows;
		}
		else buttonrows=config->gadgetrows;
		if (buttonrows<2) buttonrows=2;
		config->gadgetrows=buttonrows;
		scr_gadget_rows=buttonrows;
		bankstep=6/buttonrows;
	}
	else {
		icon_win.LeftEdge=config->iconx;
		icon_win.TopEdge=config->icony;

		if (icon_type&ICON_APPICON) {
			if (!system_version2 || !WorkbenchBase ||
				!(appicon=AddAppIconA(0,0,(UBYTE *)"Directory Opus",
				appmsg_port,NULL,&iconify_appicon,NULL)))
			icon_type&=~(ICON_APPICON);
		}
	}

	icon_gotclock=0;
	if (!(icon_type&(ICON_NOWINDOW|ICON_APPICON))) {
		icon_win.Title=(STRPTR)str_space_string;
		if (!(icon_type&(ICON_MEMORY|ICON_DATE|ICON_TIME|ICON_CPU))) {
			if (buttons) strcpy(buf,"WW");
			else strcpy(buf,"DirOpusWW");
		}
		else {
			strcpy(buf,"W");
			icon_gotclock=1;
			if (icon_type&ICON_MEMORY) {
				chipnum=getmaxmem(MEMF_CHIP,MEMF_ANY);
				fastnum=getmaxmem(MEMF_ANY,MEMF_CHIP);
				if (icon_type&ICON_BYTES) {
					chipnum+=3;
					fastnum+=3;
				}
				if (icon_type&ICON_C_AND_F) {
					if (fastnum<2) lsprintf(buf2,"%lc:",globstring[STR_CLOCK_MEM][0]);
					else lsprintf(buf2,"%lc:",globstring[STR_CLOCK_CHIP][0]);
					strcat(buf,buf2);
				}
				else {
					if (fastnum<2) strcat(buf,globstring[STR_CLOCK_MEM]);
					else strcat(buf,globstring[STR_CLOCK_CHIP]);
				}
				for (a=0;a<chipnum;a++) buf1[a]='8'; buf1[a]=0;
				strcat(buf,buf1);
				if (fastnum>1) {
					if (icon_type&ICON_C_AND_F) lsprintf(buf2," %lc:",globstring[STR_CLOCK_FAST][0]);
					else lsprintf(buf2," %s",globstring[STR_CLOCK_FAST]);
					strcat(buf,buf2);
					for (a=0;a<fastnum;a++) buf1[a]='8'; buf1[a]=0;
					strcat(buf,buf1);
				}
				strcat(buf," ");
			}
			if (icon_type&ICON_CPU) strcat(buf,"CPU:100% ");
			if (icon_type&ICON_DATE) strcat(buf,"88-WWW-88 ");
			if (icon_type&ICON_TIME) {
				strcat(buf,"88:88:88");
				if (config->dateformat&DATE_12HOUR) strcat(buf,"P");
				strcat(buf," ");
			}
			if ((icon_len=strlen(buf)) && buf[icon_len-1]!=' ') strcat(buf," ");
/*
			if (system_version2) strcat(buf,"W");
*/
		}
		icon_len=0;
		icon_win.Height=scrbuf.WBorTop+winfont->tf_YSize+(system_version2?1:0);
		icon_win.Width=dotextlength(&scrbuf.RastPort,buf,&icon_len,0);
		icon_ty=((icon_win.Height-winfont->tf_YSize)/2)+winfont->tf_Baseline;
		if (buttons) {
			icon_win.Height+=buttonrows*(scr_font[FONT_ICONIFY]->tf_YSize+2)+scrbuf.WBorBottom;
			icon_win.Width=scrbuf.Width;
			if (config->generalscreenflags&SCR_GENERAL_NEWLOOKMENU)
				icon_win.Flags|=WFLG_NEWLOOKMENUS;
			else icon_win.Flags&=~WFLG_NEWLOOKMENUS;

			if (system_version2) iconbutexitgad.LeftEdge=-14;
			else iconbutexitgad.LeftEdge=-16;

			iconbutexitgad.TopEdge=scrbuf.WBorTop+winfont->tf_YSize+3;
			dummybordergad.TopEdge=iconbutexitgad.TopEdge;
			iconbutpropgad.TopEdge=iconbutexitgad.TopEdge+12;
			iconbutpropgad.Height=icon_win.Height-iconbutpropgad.TopEdge-scrbuf.WBorBottom-1;
			dummybordergad.NextGadget=NULL;

			icon_win.FirstGadget=&iconbutexitgad;
		}
		else {
			if (system_version2) icon_win.Width+=50;
			else icon_win.Width+=88;
			icon_win.FirstGadget=NULL;
		}

		if (icon_win.LeftEdge+icon_win.Width>nwidth)
			icon_win.LeftEdge=nwidth-icon_win.Width;
		if (icon_win.TopEdge+icon_win.Height>nheight)
			icon_win.TopEdge=nheight-icon_win.Height-1;
		if (icon_win.LeftEdge<0) icon_win.LeftEdge=0;
		if (icon_win.TopEdge<0) icon_win.TopEdge=0;

		if (!(Window=(struct Window *) OpenWindow(&icon_win))) goto uniconify;
		main_rp=Window->RPort;

		if (WorkbenchBase) dopus_appwindow=AddAppWindowA(APPWINID,0,Window,appmsg_port,NULL);

		if (buttons) {
			get_colour_table();
			FixSliderBody(Window,&iconbutpropgad,(bankcount*6)/buttonrows,1,1);
			if (!system_version2) {
				SetAPen(main_rp,screen_pens[1].pen);
				Move(main_rp,Window->Width-Window->BorderRight,Window->BorderTop);
				Draw(main_rp,Window->Width-Window->BorderRight,Window->Height-Window->BorderBottom);
				Move(main_rp,Window->Width-Window->BorderRight+1,Window->BorderTop);
				Draw(main_rp,Window->Width-Window->BorderRight+1,Window->Height-Window->BorderBottom);
			}
			SetFont(main_rp,scr_font[FONT_ICONIFY]);
			scrdata_drive_width=0;
			data_gadgetrow_offset=0;
			if ((dopus_curgadbank=dopus_firstgadbank)) {
				for (a=0;a<banknum;a++) {
					if (!dopus_curgadbank->next) break;
					dopus_curgadbank=dopus_curgadbank->next;
				}
			}
			FixSliderPot(Window,&iconbutpropgad,a*bankstep,(bankcount*6)/buttonrows,1,1);
			w=Window->Width-Window->BorderLeft-Window->BorderRight;
			scrdata_gadget_width=w/7;
			scrdata_gadget_xpos=((w-(scrdata_gadget_width*7))/2)+Window->BorderLeft;
			if (scrdata_gadget_xpos<Window->BorderLeft) scrdata_gadget_xpos=Window->BorderLeft;
			scrdata_gadget_offset=0;
			scrdata_gadget_height=scr_font[FONT_ICONIFY]->tf_YSize+2;
			scrdata_gadget_ypos=Window->BorderTop+1;
			drawgadgets(1,0);
			layout_menus();
			status_flags|=STATUS_ISINBUTTONS;
		}
		else SetFont(main_rp,winfont);

		if (!system_version2) {
			icon_tx=30;
			if (config->icontype&ICON_APPICON) icon_type&=~(ICON_APPICON);
		}

		SetDrMd(main_rp,JAM2);
		if (icon_gotclock) {
			if ((iconify_time_port=LCreatePort(0,0))) {
				OpenDevice(TIMERNAME,UNIT_VBLANK,&iconify_timereq.tr_node,0);
				iconify_timereq.tr_node.io_Message.mn_ReplyPort=iconify_time_port;
				iconify_timereq.tr_node.io_Command=TR_ADDREQUEST;
				iconify_timereq.tr_node.io_Flags=0;
				iconify_timereq.tr_time.tv_secs=0;
				iconify_timereq.tr_time.tv_micro=2;
				SendIO(&iconify_timereq.tr_node);
			}
			else icon_gotclock=0;
		}
		else {
			if (buttons) SetWindowTitles(Window,globstring[STR_BUTTON_STRIP],(char *)-1);
			else SetWindowTitles(Window,"DirOpus",(char *)-1);
		}
	}
	else if (icon_type&ICON_APPICON)
		Window=OpenWindow(&appicon_win);

	if (!(status_flags&STATUS_DONEREXX)) {
		status_flags|=STATUS_DONEREXX;
		rexx_command(config->startupscript,NULL);
	}

	FOREVER {
		waitbits=0;
		if (WorkbenchBase) {
			if (icon_type&ICON_APPICON || dopus_appwindow)
				waitbits|=1<<appmsg_port->mp_SigBit;
		}
		if (icon_gotclock) {
			if (!system_version2) strcpy(formstring," ");
			else formstring[0]=0;
			if (icon_type&ICON_MEMORY) {
				chipc=AvailMem(MEMF_CHIP);
				fast=AvailMem(MEMF_ANY)-chipc;
				if (!(icon_type&ICON_BYTES)) {
					chipc/=1024;
					fast/=1024;
				}
				if (fastnum>1) {
					if (icon_type&ICON_C_AND_F) {
						lsprintf(buf1,"%lc:%%%ldld %lc:%%%ldld ",
							globstring[STR_CLOCK_CHIP][0],chipnum,
							globstring[STR_CLOCK_FAST][0],fastnum);
					}
					else {
						lsprintf(buf1,"%s%%%ldld %s%%%ldld ",
							globstring[STR_CLOCK_CHIP],chipnum,
							globstring[STR_CLOCK_FAST],fastnum);
					}
					lsprintf(buf,buf1,chipc,fast);
				}
				else {
					if (icon_type&ICON_C_AND_F) {
						lsprintf(buf1,"%lc:%%%ldld ",
							globstring[STR_CLOCK_MEM][0],chipnum);
					}
					else {
						lsprintf(buf1,"%s%%%ldld ",
							globstring[STR_CLOCK_MEM],chipnum);
					}
					lsprintf(buf,buf1,chipc);
				}
				strcat(formstring,buf);
			}
			if (icon_type&ICON_CPU) {
				if (!(usage=(getusage()/10))) usage=oldusage;
				lsprintf(buf,"CPU:%3ld%% ",usage);
				strcat(formstring,buf);
				oldusage=usage;
			}
			DateStamp(&(dt.dat_Stamp));
			initdatetime(&dt,date,time,0);
			if (icon_type&ICON_DATE) {
				strcat(formstring,date);
				strcat(formstring," ");
			}
			if (icon_type&ICON_TIME) {
				if (config->dateformat&DATE_12HOUR) {
					h=dt.dat_Stamp.ds_Minute/60; m=dt.dat_Stamp.ds_Minute%60;
					s=dt.dat_Stamp.ds_Tick/TICKS_PER_SECOND;
					if (h>11) { ampm='P'; h-=12; }
					else ampm='A';
					if (h==0) h=12;
					lsprintf(time,"%2ld:%02ld:%02ld%lc",h,m,s,ampm);
				}
				strcat(formstring,time);
				strcat(formstring," ");
			}
			if (!cdelay) {
				formstring[icon_len]=0;
				iconstatustext(formstring,buttons);
			}
			waitbits|=1<<iconify_time_port->mp_SigBit;
		}
		if (Window) waitbits|=1<<Window->UserPort->mp_SigBit;
		waitbits|=INPUTSIG_UNICONIFY|rexx_signalbit|INPUTSIG_HOTKEY;
		if ((wmes=Wait(waitbits))&INPUTSIG_HOTKEY) {
			if (dopus_globalhotkey==(struct dopushotkey *)-1) {
				cleanupiconify();
				status_iconified=0;
				quit();
			}
			else if (dopus_globalhotkey==(struct dopushotkey *)-2) {
				dopus_globalhotkey=NULL;
				continue;
			}
			else if (dopus_globalhotkey) {
				hotkey=dopus_globalhotkey; dopus_globalhotkey=NULL;
				CopyMem((char *)&hotkey->func.which,(char *)&par,sizeof(struct dopusfuncpar));
				par.which&=FLAG_OUTWIND|FLAG_NOQUOTE|FLAG_SHELLUP|FLAG_DOPUSUP;
				par.which|=FLAG_ASYNC;
				if (par.which&FLAG_OUTWIND) par.which|=FLAG_WB2F;
				status_flags|=STATUS_FROMHOTKEY;
				dofunctionstring(hotkey->func.function,hotkey->name,NULL,&par);
				status_flags&=~STATUS_FROMHOTKEY;
			}
		}
		if (WorkbenchBase) {
			if ((icon_type&ICON_APPICON || dopus_appwindow) &&
				wmes&1<<appmsg_port->mp_SigBit) {
				if (dopus_appwindow) ActivateWindow(Window);
				while (amsg=(struct AppMessage *)GetMsg(appmsg_port)) {
					if (amsg->am_Type==MTYPE_APPICON && amsg->am_NumArgs==0) {
						ReplyMsg((struct Message *)amsg);
						goto endiconify;
					}
					else if ((amsg->am_Type==MTYPE_APPICON && Window) ||
						(amsg->am_Type==MTYPE_APPWINDOW && amsg->am_ID==APPWINID)) {
						for (a=0;a<amsg->am_NumArgs;a++) {
							if (amsg->am_ArgList[a].wa_Lock) {
								if (status_flags&STATUS_ISINBUTTONS &&
									amsg->am_MouseY>Window->BorderTop) {
									if (dopus_curgadbank && (b=gadgetfrompos(amsg->am_MouseX,amsg->am_MouseY))!=-1) {
										b+=data_gadgetrow_offset*7;
										if (isvalidgad(&dopus_curgadbank->gadgets[b])) {
											PathName(amsg->am_ArgList[a].wa_Lock,func_external_file,256);
											if (func_external_file[0] &&
												func_external_file[(strlen(func_external_file)-1)]==':' &&
												!amsg->am_ArgList[a].wa_Name[0])
												TackOn(func_external_file,"Disk.info",256);
											else TackOn(func_external_file,amsg->am_ArgList[a].wa_Name,256);
											if (!(CheckExist(func_external_file,NULL)))
												StrConcat(func_external_file,".info",256);
											dofunctionstring(dopus_curgadbank->gadgets[b].function,
												dopus_curgadbank->gadgets[b].name,
												NULL,(struct dopusfuncpar *)&dopus_curgadbank->gadgets[b].which);
											if (!status_iconified) break;
											cdelay=3;
											ModifyIDCMP(Window,ICON_IDCMP);
										}
									}
								}
								else {
									if (amsg->am_ArgList[a].wa_Name[0]) {
										char pathbuf[256];

										PathName(amsg->am_ArgList[a].wa_Lock,pathbuf,256);
										strcpy(func_external_file,pathbuf);
										TackOn(func_external_file,amsg->am_ArgList[a].wa_Name,256);
										ftype_doubleclick(pathbuf,amsg->am_ArgList[a].wa_Name,0);
										ModifyIDCMP(Window,ICON_IDCMP);
										unbusy();
									}
								}
							}
						}
						func_external_file[0]=0;
					}
					ReplyMsg((struct Message *)amsg);
					if (!status_iconified) return;
				}
			}
		}
		if (wmes&rexx_signalbit) {
			func_global_function=0;
			rexx_dispatch(0);
			if (func_global_function==FUNC_UNICONIFY) wmes=INPUTSIG_UNICONIFY;
			else if (func_global_function==FUNC_QUIT) {
				cleanupiconify();
				status_iconified=0;
				quit();
			}
		}
		if (wmes&INPUTSIG_UNICONIFY) {
endiconify:
			status_iconified=-1;
			cleanupiconify();
			goto uniconify;
		}
		if (Window && wmes&1<<Window->UserPort->mp_SigBit) {
			while (getintuimsg()) {
				class=IMsg->Class; code=IMsg->Code;
				x=IMsg->MouseX; y=IMsg->MouseY;
				if (class==IDCMP_GADGETUP || class==IDCMP_GADGETDOWN)
					gadgetid=((struct Gadget *)IMsg->IAddress)->GadgetID;
				ReplyMsg((struct Message *)IMsg);
				switch (class) {
					case IDCMP_MENUPICK:
						if (!buttons) break;
						Window->Flags|=RMBTRAP;
						if (Window->MenuStrip && code!=MENUNULL) {
							menunum=menu_real_number[MENUNUM(code)];
							num=ITEMNUM(code);
							item=menu_menus[menunum].FirstItem;
							for (a=0,itemnum=0;a<num && item;a++) {
								if (item->Flags&ITEMTEXT) ++itemnum;
								item=item->NextItem;
							}
							if (item) {
								a=(menunum*20)+itemnum;
								if (!isvalidgad(&config->menu[a])) break;
								dofunctionstring(config->menu[a].function,config->menu[a].name,
									NULL,(struct dopusfuncpar *)&config->menu[a].which);
								if (!status_iconified) return;
								cdelay=3;
								ModifyIDCMP(Window,ICON_IDCMP);
							}
						}
						break;
					case IDCMP_GADGETDOWN:
						if (!buttons || gadgetid!=BUTPROP || !bankcount) break;
						FOREVER {
							bank=dopus_curgadbank; b=data_gadgetrow_offset;
							data_gadgetrow_offset=GetSliderPos(&iconbutpropgad,(bankcount*6)/buttonrows,1);
							a=data_gadgetrow_offset/bankstep;
							data_gadgetrow_offset%=bankstep; data_gadgetrow_offset*=buttonrows;
							dopus_curgadbank=bankarray[a];
							if (bank!=dopus_curgadbank || data_gadgetrow_offset!=b) drawgadgets(0,0);
							if (getintuimsg()) {
								class=IMsg->Class;
								ReplyMsg((struct Message *)IMsg);
								if (class==IDCMP_MOUSEMOVE) continue;
								if (class==IDCMP_GADGETUP) break;
							}
							Wait(1<<Window->UserPort->mp_SigBit);
						}
						FixSliderPot(Window,&iconbutpropgad,(a*bankstep)+(data_gadgetrow_offset/buttonrows),
							(bankcount*6)/buttonrows,1,1);
						break;
					case IDCMP_GADGETUP:
						if (!buttons) break;
						if (gadgetid>=MAIN_GAD_BASE && gadgetid<MAIN_GAD_BASE+GADCOUNT) {
							a=(gadgetid-MAIN_GAD_BASE)+(data_gadgetrow_offset*7);
							if (!dopus_curgadbank || !(isvalidgad(&dopus_curgadbank->gadgets[a]))) break;
							dofunctionstring(dopus_curgadbank->gadgets[a].function,
								dopus_curgadbank->gadgets[a].name,
								NULL,(struct dopusfuncpar *)&dopus_curgadbank->gadgets[a].which);
							if (!status_iconified) return;
							cdelay=3;
							ModifyIDCMP(Window,ICON_IDCMP);
						}
						else if (gadgetid==BUTEXIT) goto deiconify;
						break;
					case IDCMP_DISKREMOVED:
					case IDCMP_DISKINSERTED:
						setupchangestate();
						break;
					case IDCMP_CLOSEWINDOW:
						if (!(a=simplerequest(globstring[STR_REALLY_QUIT],
							globstring[STR_QUIT],str_cancelstring,globstring[STR_UNICONIFY],NULL))) break;
						if (a==2) goto endiconify;
						cleanupiconify();
						status_iconified=0;
						quit();
						break;
					case IDCMP_MOUSEBUTTONS:
						if (code!=MENUDOWN) {
							if (!(icon_type&ICON_MEMORY|ICON_DATE|ICON_TIME|ICON_CPU))
								iconstatustext("Dir Opus",buttons);
							break;
						}
						if (buttons) {
							if (x<0 || y<Window->BorderTop ||
								x>Window->Width || y>Window->Height) {
								quickfixmenus();
								break;
							}
							for (c=0;c<buttonrows;c++) {
								a=42+((data_gadgetrow_offset+c)*7);
								for (d=0;d<7;d++,a++) {
									if (isvalidgad(&dopus_curgadbank->gadgets[a])) {
										y1=(c*scrdata_gadget_height)+scrdata_gadget_ypos-1;
										x1=scrdata_gadget_xpos+(d*scrdata_gadget_width);
										if (x>=x1 && x<x1+scrdata_gadget_width && y>=y1 && y<y1+scrdata_gadget_height) {
											if (!(dormbgadget(x1,y1,
												&dopus_curgadbank->gadgets[a-42],
												&dopus_curgadbank->gadgets[a]))) {
												dofunctionstring(dopus_curgadbank->gadgets[a].function,
													dopus_curgadbank->gadgets[a].name,
													NULL,(struct dopusfuncpar *)&dopus_curgadbank->gadgets[a].which);
												if (!status_iconified) return;
												cdelay=3;
												ModifyIDCMP(Window,ICON_IDCMP);
												c=buttonrows;
												break;
											}
										}
									}
								}
							}
							break;
						}
deiconify:
						status_iconified=-1;
						cleanupiconify();
uniconify:
						config->gadgetrows=oldrows;
						dopus_curgadbank=oldbank; data_gadgetrow_offset=olddata_gadgetrow_offset;
						SetUp(louise);
						if (Window && status_publicscreen) ScreenToFront(Window->WScreen);
						rexx_command(config->uniconscript,NULL);
						startnotifies();
						LFreeRemember(&icon_key);
						return;
				}
			}
		}
		if (icon_gotclock && CheckIO(&iconify_timereq.tr_node)) {
			WaitIO(&iconify_timereq.tr_node);
			iconify_timereq.tr_time.tv_secs=1;
			iconify_timereq.tr_time.tv_micro=0;
			SendIO(&iconify_timereq.tr_node);
			if (cdelay) {
				if (!(--cdelay) && !system_version2) {
					old=Window->Title;
					SetWindowTitles(Window,str_space_string,(char *)-1);
					SetWindowTitles(Window,old,(char *)-1);
				}
			}
		}
	}
}

void remiclock()
{
	if (!(CheckIO(&iconify_timereq.tr_node))) AbortIO(&iconify_timereq.tr_node);
	WaitIO(&iconify_timereq.tr_node);
	CloseDevice(&iconify_timereq.tr_node);
	LDeletePort(iconify_time_port);
}

getmaxmem(type,nottype)
ULONG type,nottype;
{
	struct MemHeader *memory;
	ULONG size=0;
	int a;

	Forbid();
	memory=(struct MemHeader *)SysBase->MemList.lh_Head;
	while (memory->mh_Node.ln_Succ) {
		if ((!type || (memory->mh_Attributes&type)) &&
			(!nottype || !(memory->mh_Attributes&nottype))) {
			size+=(ULONG)((ULONG)memory->mh_Upper-(ULONG)memory->mh_Lower);
		}
		memory=(struct MemHeader *)memory->mh_Node.ln_Succ;
	}
	Permit();
	size=(size+1023)/1024;
	for (a=1;;a++) if (!(size/=10)) break;
	return(a);
}

void iconstatustext(buf,buttons)
char *buf;
int buttons;
{
	int a;

	if (system_version2) {
		strcpy(icontitletext,buf);
		SetWindowTitles(Window,icontitletext,(char *)-1);
	}
	else {
		if (IntuitionBase->ActiveWindow==Window) {
			SetAPen(main_rp,icon_fpen);
			SetBPen(main_rp,icon_bpen);
		}
		else {
			SetAPen(main_rp,0);
			SetBPen(main_rp,1);
		}
		if (buttons) SetFont(main_rp,winfont);
		a=strlen(buf);
		Move(main_rp,icon_tx,icon_ty);
		Text(main_rp,buf,a);
		if (a<icon_len) Text(main_rp,str_space_string,icon_len-a);
		if (buttons) SetFont(main_rp,scr_font[FONT_ICONIFY]);
	}
}

void cleanupiconify()
{
	if (icon_type&ICON_APPICON) {
		RemoveAppIcon(appicon);
		appicon=NULL;
		if (Window) {
			CloseWindow(Window);
			Window=NULL;
		}
	}
	else {
		if (Window) {
			if (status_flags&STATUS_ISINBUTTONS) {
				free_colour_table();
				if (WorkbenchBase && dopus_appwindow) {
					RemoveAppWindow(dopus_appwindow);
					dopus_appwindow=NULL;
				}
				config->iconbutx=Window->LeftEdge;
				config->iconbuty=Window->TopEdge;
			}
			else {
				config->iconx=Window->LeftEdge;
				config->icony=Window->TopEdge;
			}
		}
		if (icon_gotclock) remiclock();
		if (Window) {
			if (Window->MenuStrip) ClearMenuStrip(Window);
			CloseWindow(Window); Window=NULL;
		}
	}
	LFreeRemember(&icon_key);
}