/*
    This file is part of "Filter Foundry", a filter plugin for Adobe Photoshop
    Copyright (C) 2003-5 Toby Thain, toby@telegraphics.com.au

    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
*/

#include <controls.h>
#include <controldefinitions.h>
#include <dialogs.h>
#include <resources.h>
#include <textutils.h>

#include "str.h"

#include "ff.h"

extern Point preview_scroll;

CursHandle handcursor,ibeamcursor;
ControlActionUPP action_UPP,indaction_UPP;
DIALOGREF thedialog;
ControlRef exprctls[4];
int trackingitem;

pascal void preview_item(DialogRef dp,DialogItemIndex item);
pascal void slideraction(ControlRef theControl,short partCode);
pascal Boolean sliderfilter(DialogRef dialog,EventRecord *event,short *item);

void DoAbout(AboutRecordPtr prec){
	ModalFilterUPP filterproc_UPP = NewModalFilterUPP(aboutfilter);

	if(gdata->standalone){
		ParamText(gdata->parm.title,gdata->parm.author,gdata->parm.copyright,NULL);
		Alert(ID_ABOUTSTANDALONEDLG,filterproc_UPP);
	}else
		Alert(ID_ABOUTDLG,filterproc_UPP);

	DisposeModalFilterUPP(filterproc_UPP);
}

Boolean simplealert(char *s){
	int i;

	myc2pstr(s);
	ParamText((StringPtr)s,NULL,NULL,NULL);
	i = StopAlert(ID_SYNTAXALERT,NULL);
	myp2cstr((StringPtr)s);
	return i == ok;
}

/*
    NOTE ON CONTROL ACTION PROCS

    When using the TrackControl() call when tracking an indicator, the actionProc parameter
    (type ControlActionUPP) should be replaced by a parameter of type DragGrayRgnUPP
    (see Quickdraw.h).

    If, however, you are using the live feedback variants of scroll bars or sliders, you
    must pass a ControlActionUPP in when tracking the indicator as well. This functionality
    is available in Appearance 1.0 or later.
*/

pascal void slideraction(ControlRef theControl,short partCode){
	int old,delta = 0;

	ENTERCALLBACK();

	if(partCode){
		if(partCode != kControlIndicatorPart){
			switch(partCode){
			case kControlUpButtonPart:   delta = -1; break;
			case kControlDownButtonPart: delta = 1; break;
			case kControlPageUpPart:     delta = -SLIDERPAGE; break;
			case kControlPageDownPart:   delta = SLIDERPAGE; break;
			}
			SetControlValue(theControl,(old = GetControlValue(theControl)) + delta);
		}
		slidermoved(thedialog,trackingitem);
		recalc_preview(gpb,thedialog);
	}

	EXITCALLBACK();
}

pascal Boolean sliderfilter(DialogRef dialog,EventRecord *event,short *item){	
	int i;
	short part;
	ControlHandle c;
	Point pt,origscroll,newscroll;
	Boolean result = false,f;
	EventRecord ev;
	GrafPtr oldport;
	ControlRef focus;

	ENTERCALLBACK();

	GetPort(&oldport);
	SetPortDialogPort(dialog);

/* !(result = standardfilter(dialog,event,item)) && */

	if( !event->what || (event->what == updateEvt 
						 && (WindowRef)event->message != GetDialogWindow(dialog)) )
	{	// pass null events and update events to Photoshop
		gpb->processEvent(event);
	}
	else if(event->what == mouseDown){

		pt = event->where;
		GlobalToLocal(&pt);
	
		i = trackingitem = FindDialogItem(dialog,pt)+1;
/*			if( (c = FindControlUnderMouse(pt,GetDialogWindow(dialog),&part))
					&& part && HandleControlClick(c,pt,event->modifiers,action_UPP) )*/
		if( i>=FIRSTCTLITEM && i<=FIRSTCTLITEM+7
				&& (part = FindControl(pt,GetDialogWindow(dialog),&c))
				&& TrackControl(c,pt,action_UPP) ){
			*item = i;
			result = true;
		}else if(i == PREVIEWITEM){
			SetCursor(*handcursor);
			origscroll = preview_scroll;
			do{
				f = WaitNextEvent(mUpMask,&ev,5,NULL);
				newscroll.h = origscroll.h - zoomfactor*(ev.where.h - event->where.h);
				newscroll.v = origscroll.v - zoomfactor*(ev.where.v - event->where.v);
				if(!EqualPt(newscroll,preview_scroll)){
					preview_scroll = newscroll;
					recalc_preview(gpb,dialog);
				}
			}while(!f);

			*item = i;
			result = true;
		}
		
	}
	else{
		GetKeyboardFocus(GetDialogWindow(dialog),&focus);
		/* handle return keypresses */
		if( event->what == keyDown && (char)event->message == CR
				&& ( focus==exprctls[0] || focus==exprctls[1] 
				  || focus==exprctls[2] || focus==exprctls[3] ) )
			result = false;
		else
			result = StdFilterProc(dialog,event,item);
	}
		
	SetPort(oldport);

	EXITCALLBACK();

	return(result);
}

Boolean maindialog(FilterRecordPtr pb){
	short itemType, item;
	Handle itemHdl;
	DIALOGREF dp;
	int i;
	UserItemUPP preview_image_UPP = NewUserItemUPP(preview_item);
	ModalFilterUPP sliderfilter_UPP = NewModalFilterUPP(sliderfilter);

	action_UPP = NewControlActionUPP(slideraction);

	dp = thedialog = GetNewDialog(gdata->standalone ? ID_PARAMDLG : ID_MAINDLG,nil,(WindowPtr)-1);

	if(gdata->standalone)
		SetWTitle(GetDialogWindow(dp),gdata->parm.title);

	GetDialogItem(dp,PREVIEWITEM,&itemType,&itemHdl,&preview_rect);
	SetDialogItem(dp,PREVIEWITEM,itemType,(Handle)preview_image_UPP,&preview_rect);
	handcursor = GetCursor(ID_HANDCURSOR);
	ibeamcursor = GetCursor(iBeamCursor);
	
	SetDialogDefaultItem(dp,ok);
	SetDialogCancelItem(dp,cancel);
	SetDialogTracksCursor(dp,true);
	
	if(!gdata->standalone)
		for(i = 0; i < 4; ++i)
			GetDialogItemAsControl(dp,FIRSTEXPRITEM+i,&exprctls[i]);

	maindlginit(dp);
	do{
		InitCursor();
		ModalDialog(sliderfilter_UPP,&item);
	}while(maindlgitem(dp,item));

	DisposeDialog(dp);
	
	DisposeUserItemUPP(preview_image_UPP);
	DisposeModalFilterUPP(sliderfilter_UPP);
	DisposeControlActionUPP(action_UPP);
	
	return item == ok;
}

Boolean builddialog(FilterRecordPtr pb){
	short item;
	DIALOGREF dp;

	dp = thedialog = GetNewDialog(ID_BUILDDLG,nil,(WindowPtr)-1);
		
	SetDialogDefaultItem(dp,ok);
	SetDialogCancelItem(dp,cancel);

	builddlginit(dp);
	do{
		ModalDialog(NULL,&item);
	}while(builddlgitem(dp,item));

	DisposeDialog(dp);
	
	return item == ok;
}